start = 19800101
end = 19900101
Loop
MsgBox, , , % RandomDate(start, end), 0.5
RandomDate(start, end) {
EnvSub, end, start, days
Random, day, 0, %end%
EnvAdd, start, %day%, days
FormatTime, var, %start%, dd.MM.yyyy
Return var
}
Сгенерировать три случайных числа, затем записать их в переменную через точку.
Ага, и получить в общем случае такие даты, как 31.02.1981 
А если к начальной дате прибавлять рандомное число через EnvAdd? По-моему, так можно, но проверить нет возможности.
А как сделать рандомной вывод даты рождения за определенный период?
Например от 01.01.1980 до 01.01.1990.
Без проверки на высокосный год.
filedelete, daterandom.txt
loop, 100 {
random, year, 1980, 1990
if year = 1990 ;Ограничиваем дату рандома до 01 месяца
mmonth = 1
else
mmonth = 12
random, month, 1, mmonth
if month in 4,6,9,11 ;Проверка на месяца с 31-им днем
dday := 30
else if month = 2
dday := 28
else
dday := 31
if year = 1990 ;Ограничение по дням
dday = 1
random, day, 1, dday
date = %day%.%month%: %year%
fileappend, %date%`n, daterandom.txt
}Space::
While GetKeyState("Space", "P")
{
Random, Randelay, 10, 100
TrayTip,, % Randelay
; TrayTip,, % Round(Randelay, -1) ; округлено
Sleep, 100
}
Return