Hej!
Håller på med en sida där besökare skall kunna registrera sig.
De skall bland annat ange födelsedatum.
För att se efter så att de inte angivit ett datum som inte finns så tänkte jag att man kunde skriva så här:

If Str_dMonth="02" and Str_dDay > 28 Then
Err_Message=Err_Message&"Ogiltligt födelsedatum.<BR>"&vbCrLf
else
end if

If Str_dMonth="04" or "06" or "09" or "11" and Str_dDay > 30 Then
Err_Message=Err_Message&"Ogiltligt födelsedatum.<BR>"&vbCrLf
else
end if

...Men det gick inte något vidare. Datumet blir hela tiden ogiltligt. Varför?
Felet borde ligga i den andra frågan. Alltså:
If Str_dMonth="04" or "06" or "09" or "11" and Str_dDay > 30 Then
Err_Message=Err_Message&"Ogiltligt födelsedatum.<BR>"&vbCrLf
else
end if

Ett enkelt sätt...

<code>
if isdate( år & "-" & right("0" & månad ,2) & "-" & right("0" & dag ,2)) then
'riktig datum
else
'inte riktig datum
end if
</code>


/Fredrik

coolt...

Fattade inte riktigt den koden. Tror inte riktigt det var det jag var ute efter.
Fixade det dock själv. Koden blev dock inte allt för vacker:

<code>
If Str_dMonth="02" and Str_dDay > 28 Then
Err_Message=Err_Message&"Ogiltligt födelsedatum.<BR>"&vbCrLf
else
end if
If Str_dMonth="04" and Str_dDay > 30 Then
Err_Message=Err_Message&"Ogiltligt födelsedatum.<BR>"&vbCrLf
else
end if
If Str_dMonth="06" and Str_dDay > 30 Then
Err_Message=Err_Message&"Ogiltligt födelsedatum.<BR>"&vbCrLf
else
end if
If Str_dMonth="09" and Str_dDay > 30 Then
Err_Message=Err_Message&"Ogiltligt födelsedatum.<BR>"&vbCrLf
else
end if
Str_ar=Cint(Str_dYear)
Str_month=Cint(Str_dMonth)
Str_dag=Cint(Str_dDay)
If Str_month="11" and Str_dDay > 30 Then
Err_Message=Err_Message&"Ogiltligt födelsedatum.<BR>"&vbCrLf
else
end if
If Str_ar="0" or Str_month="0" or Str_dag="0" Then
Err_Message=Err_Message&"Ogiltligt födelsedatum.<BR>"&vbCrLf
else
end if
</code>

Vad är det du inte förstår?

Du kan ju prova:
<code>
If IsDate(Str_dYear & "-" & Str_dMonth & "-" Str_dDay) Then
Else
Err_Message = Err_Message & "Ogiltligt födelsedatum.<BR>" & vbCrLf
End If
</code>