So, als kleine Gegenleistung für die "Seitenkorrektur", zwei simple, aber praktische Funktionen:
Function ShowDate()
Dim s, i, d
d = Right(date(),4)
s = s & "<SELECT NAME=""Day"">" & vbNewLine
FOR i = 1 TO 31
IF i < 10 THEN i = "0" & i
s = s & " <OPTION VALUE=""" & i & """"
IF Request("Day") = i THEN s = s & " SELECTED"
s = s & ">" & i & "</OPTION>" & vbNewLine
NEXT
s = s & "</SELECT>" & vbNewLine &_
"<SELECT NAME=""Month"">" & vbNewLine
FOR i = 1 TO 12
IF i < 10 THEN i = "0" & i
s = s & " <OPTION VALUE=""" & i & """"
IF Request("Month") = i THEN s = s & " SELECTED"
s = s & ">" & i & "</OPTION>" & vbNewLine
NEXT
s = s & "</SELECT>" & vbNewLine &_
"<SELECT NAME=""Year"">" & vbNewLine
FOR i = 1900 TO d
s = s & " <OPTION VALUE=""" & i & """"
IF Request("Year") = i THEN s = s & " SELECTED"
s = s & ">" & i & "</OPTION>" & vbNewLine
NEXT
s = s & "</SELECT>" & vbNewLine
ShowDate = s
End Function
Function CombineDate(d,m,y)
CombineDate = cDate(d & "." & m & "." & y)
End Function
Als alternative Variante vermeidet diese Funktion einige seltsame Fehler. Zum Beispiel akzeptiert die Funktion Dateserial auch einen 31. Februar - den ich ja mit obigen Boxen auswählen kann - sie macht dann halt den 3. März oder so draus.
Function CombineDate2(d,m,y)
CombineDate = DateSerial(y, m, d)
End Function