2001: broncode

Dim d
Do
Do
    d = inputbox("Geef een datum in 2001")
Loop Until Isdate(d)
Loop Until year(d)=2001
Msgbox "De datum is " & d

[VB Web] - [hlrnet] - [copyright]