Validering af dato fra formfelt mod dato i DB

Dette skulle virke:
if Cdbl(date1)<Cdbl(date2) then
  'nu er date1 nyere end date2
else
...
end if

det foudsætter selvfølgelig at de to datoer er i korrekt format.

ups: jeg kom til at vende ulighedstegnet forkert.
hvis Cdbl(date1)>Cdbl(date2)
så er date 1 nyere end date 2
(10.09.2003>09.09.2003)

hej

jeg har ofte brugt datediff("s",dato1,dato2) < 0 THEN

denne finder heller ikke selv ud af formattet

/hiks

Hvorfor ikke
if CDate(request.form("dato")) < rs("dato") then
  'submit
else
  'skriv fejl
end if

Hvis du har brug for at konvertere til access SQL format gør nedenstående funktion det for dig

Function ConvertDate(dtmDate)
    Months = right("00" & DatePart("m", dtmDate) ,2)
    Days = right("00" & DatePart("d", dtmDate) ,2)
    Years = right(DatePart("yyyy", dtmDate), 4)
        OutDate = Months&"/" & Days & "/" & Years
    ConvertDate = OutDate
End Function