dim geboortedatum
dim msg
do
geboortedatum = inputbox("Geef je geboortedatum")
loop until isdate(geboortedatum)
msg="Je bent " & int((now-cdate(geboortedatum))/365.24) & "
jaar"
msg=msg & vbcrlf & "Je bent " &
int((now-cdate(geboortedatum))/30.4375) & " maand"
msg=msg & vbcrlf & "Je bent " & int((now-cdate(geboortedatum))/7)
& " weken"
msg=msg & vbcrlf & "Je bent " & int((now-cdate(geboortedatum)))
& " dagen"
msgbox msg