dim datum1
dim datum2
dim verschil
do while not isdate(datum1)
datum1=inputbox("Geef de eerste datum")
loop
do while not isdate(datum2)
datum2=inputbox("Geef de tweede datum")
loop
verschil="Tussen " & datum1 & " en " & datum2 & " liggen" & vbcrlf
verschil = verschil & datediff("yyyy", datum1, datum2) & " jaar, of" & vbcrlf
verschil = verschil & datediff("q", datum1, datum2) & " kwartalen, of" & vbcrlf
verschil = verschil & datediff("m", datum1, datum2) & " maanden, of" & vbcrlf
verschil = verschil & datediff("ww", datum1, datum2) & " weken, of" & vbcrlf
verschil = verschil & datediff("d", datum1, datum2) & " dagen, of" & vbcrlf
verschil = verschil & datediff("h", datum1, datum2) & " uur, of" & vbcrlf
verschil = verschil & datediff("n", datum1, datum2) & " minuten, of" & vbcrlf
verschil = verschil & datediff("s", datum1, datum2) & " seconden"
msgbox verschil