Hej
Jeg har lavet en validering af data fra en formular der skal
placeres i en access database. I valideringen sammenligner jeg en
startdato med en slutdato for at sikre mig, at startdatoen ikke
ligger efter slutdatoen. Min kode ser således ud:
først splitter jeg datoen op:
Function strDateToSql (value)
Dim dArr
dArr=split( value & "","-")
If ubound(dArr) = 2 AND checknumArr (dArr) then
strDateToSql= "Dateserial ( " & _
Cint (dArr(2)) & ", " &_
Cint (dArr(1)) & ", " &_
Cint (dArr(0)) & ")"
Else
'Fejl - Forkert datoformat
strDateToSql = "Null"
End If
End function
Function checkNumArr (varArr)
Dim i, boolOK
boolOK = True
for i = 0 To Ubound(varArr)
If not IsNumeric (varArr(i)) Then
boolOK = False
Exit For
End If
Next
checkNumArr =boolOK
End Function
strDateToSql(value)
...
senere kør jeg valideringen:
If strDateToSql(Request.Form("startdato"))>
strDateToSql(Request.Form("slutdato"))OR
Request.Form("startdato") ="" then
Response.write "<img src='image/stop.jpg' height='80' border='0'
alt='Du har lavet en fejl' ><br><b>Stop!</b><br><b>Start datoen
må ikke være senere end slutdatoen!</b><br> Gå et skridt tilbage
og indkasser ikke 200 kr."
Response.write "<br>Startdato:
"&FormatDateTime(Request.Form("startdato"),vbLongDate) &"<br>
Slutdato: "& FormatDateTime(Request.Form("slutdato"),vbLongDate)
Af en eller enden grund aktiveres fejlmeddelsen hvis min
startdato hedder 30-09-2006 og slutdatoen hedder 01-10-2006.
Umiddelbart ville jeg da mene, at 01-10-2006 ligger efter d.
30-09-2006. Hvad gør jeg galt??
Mvh
Laurits
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials