Validering af dato

På www.activeserverpages.dk og www.netcoders.dk findes flere små programmer der laver dato formatering.

-Per

Prøv denne funktion:

Function ValiderDato(ByVal strDatoStreng)

  Dim objRegExp

  Set objRegExp = New RegExp

  objRegExp.Pattern = \"^\\d\\d?-\\d\\d?-\\d\\d(\\d\\d)?$\"
 
  ValiderDato = objRegExp.Test(strDatoStreng)

End Function

Den godkender datoer som 1-2-98, 10-11-1999 og 31-1-2001.

>>mwittrock 

Den validere tldels rigtigt....med de godkender også 32-50-2001....og det dur jo ikke!

Hvordan sætter man begræsning på 31 \\ 12 \\ på henholdsvis dag og måned?

Strengen kommer fra ét textfelt som brugeren udfylder.

hilsen
anne

Ups, jeg har vist dummet mig... VBScript funktionen IsDate() returnerer True hvis du kalder den med noget, der kan konverteres til en dato, og ellers False. Hvis du _vil_ have en dato på formen dd-mm-yyyy, kan du bruge den funktion jeg skrev, og bagefter kalde IsDate(), for at se om datoen er gyldig. Hvis du blot vil have en gyldig dato, kan du nøjes med at kalde IsDate().

Jeg tror jeg kan kombinere dem....

men skal følgende:

objRegExp.Pattern = \"^\\d\\d?-\\d\\d?-\\d\\d(\\d\\d)?$\"

Ikke være:

objRegExp.Pattern = \"^\\d\\d?-\\m\\m?-\\y\\y(\\y\\y)?$\"

hilsen
anne

Nej, \\d er blot en forkortelse for [0-9], dvs. \\d repræsenterer ét tal i det regulære udtryk.

Hvis du vil indbygge IsDate i funktionen, kan du ændre den sidste linie fra:

ValiderDato = objRegExp.Test(strDatoStreng)

til:

ValiderDato = objRegExp.Test(strDatoStreng) And IsDate(strDatoStreng)

Hvordan sikre jeg så at de første to cifre er dag og ikke måned?

IsDate() godkender både 13-12-2001 og 12-13-2001 som en valid dato, men jeg vil jo gerne have den entydigt dd-mm-yyyy

Denne funktion fungerer som den ovenstående, men tilføjer at dd skal være mellem 1 og 31, at mm skal være mellem 1 og 12, og at det hele er en gyldig dato:

Function ValiderDato(ByVal strDatoStreng)

  Dim objRegExp, intD, intM

  Set objRegExp = New RegExp

  objRegExp.Pattern = \"^(\\d\\d?)-(\\d\\d?)-\\d\\d(\\d\\d)?$\"
 
  If objRegExp.Test(strDatoStreng) Then
    intD = CInt(objRegExp.Execute(strDatoStreng)(0).SubMatches(0))
    intM = CInt(objRegExp.Execute(strDatoStreng)(0).SubMatches(1))
    ValiderDato = intD >= 1 And intD <= 31 And intM >= 1 And intM <= 12 And IsDate(strDatoStreng)
  Else
    ValiderDato = False
  End If

End Function

Bemærk dog, at den kræver en nylig version af VBScript p.g.a. anvendelsen af SubMatches i det regulære udtryk.

Alternativ version der ikke bruger SubMatches:

Function ValiderDato(ByVal strDatoStreng)

  Dim objRegExp, arrDatoParts, intD, intM

  Set objRegExp = New RegExp

  objRegExp.Pattern = \"^(\\d\\d?)-(\\d\\d?)-\\d\\d(\\d\\d)?$\"
 
  If objRegExp.Test(strDatoStreng) Then
    arrDatoParts = Split(objRegExp.Execute(strDatoStreng)(0).Value, \"-\")
    intD = arrDatoParts(0)
    intM = arrDatoParts(1)
    ValiderDato = intD >= 1 And intD <= 31 And intM >= 1 And intM <= 12 And IsDate(strDatoStreng)
  Else
    ValiderDato = False
  End If

End Function

Det virker perfekt......mange 1000 tak

det var lige det jeg ledte efter

hilsen
anne

Selv tak, god fornøjelse.