Validering af dato med reg.exp

du kan vel matche på udtrykket (\d\d-\d\d-\d\d\d\d)
Hvad mener du med at datoen ikke må være overskredet ?

altså reg delen
---
<%
Function RegTest(strString, strRegPattern)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = strRegPattern
  RegTest = regEx.Test(strString)
  Set regEx = Nothing
End Function
 
If RegTest("11-11-2005","(\d\d-\d\d-\d\d\d\d)") Then
  Response.Write "ok"
End If
%>

det tjekker formatet dd-mm-yyyy
Derudover kan du jo så lave en IsDate() for at finde ud af om det er en "rigtig" dato
Og så til sidst konvertere med CDate

Det jeg mener er, at når man skriver en dato, må den ikke være ældre end i dag.

Gider du lave eksempelet med der isdate og cdate (har aldrig brugt det) ?

/Goose

<%
' Funktiontil at køre et reg.exp på en streng
Function RegTest(strString, strRegPattern)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = strRegPattern
  RegTest = regEx.Test(strString)
  Set regEx = Nothing
End Function

dato = "11-11-2005"
' test om en dato har det rigtige format
If RegTest(dato,"(\d\d-\d\d-\d\d\d\d)") Then
  If IsDate(dato) Then
    dato = CDate(dato)
    If DateDiff("d",Now,dato) < 0 Then
      response.write "Datoen er ok"
    Else
      response.write "Datoen er gammel"
    End Is
  Else
    response.write "Datoen eksisterer ikke"
  End If
Else
  response.write "Du skal lave en dato i formatet dd-mm-yyyy"
End If
%>

Sådan vil jeg mene, så tester den både for formatet, for om datoen er gyldig altså at der ikke står 99-99-9999, og at datoen ikke er ældre end dags dato
Jeg er kun i tvivl om
If DateDiff("d",Now,dato) < 0 Then
måske skal være
If DateDiff("d",Now,dato) > 0 Then
For kan aldrig huske rækkefølgen :o)

Tusinde tak for det, jeg rettede det dog lige til:

If DateDiff("d",now,dato) > -1 Then

for at få muligheden for dags dato med :o)

/Goose