codice:
If CDate(data1) < CDate(data2) then
.....
End If