ASP Datums-Select-Felder

Sprache: Deutsch
Programmiersprache: VBScript
Veröffentlicht von: Stefan [nicht registriert]
Letzte Änderung: 08.05.2006
Aufrufe: 1060

Beschreibung

Zwei simple, aber praktische Funktionen.

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.

Code

Zeilennummern anzeigen

1 Function ShowDate() 2 Dim s, i, d 3 d = Right(date(),4) 4 s = s & "<SELECT NAME=""Day"">" & vbNewLine 5 6 7 FOR i = 1 TO 31 8 IF i < 10 THEN i = "0" & i 9 s = s & " <OPTION VALUE=""" & i & """" 10 IF Request("Day") = i THEN s = s & " SELECTED" 11 s = s & ">" & i & "</OPTION>" & vbNewLine 12 NEXT 13 s = s & "</SELECT>" & vbNewLine &_ 14 "<SELECT NAME=""Month"">" & vbNewLine 15 16 17 FOR i = 1 TO 12 18 IF i < 10 THEN i = "0" & i 19 s = s & " <OPTION VALUE=""" & i & """" 20 IF Request("Month") = i THEN s = s & " SELECTED" 21 s = s & ">" & i & "</OPTION>" & vbNewLine 22 NEXT 23 s = s & "</SELECT>" & vbNewLine &_ 24 "<SELECT NAME=""Year"">" & vbNewLine 25 26 27 FOR i = 1900 TO d 28 s = s & " <OPTION VALUE=""" & i & """" 29 IF Request("Year") = i THEN s = s & " SELECTED" 30 s = s & ">" & i & "</OPTION>" & vbNewLine 31 NEXT 32 s = s & "</SELECT>" & vbNewLine 33 34 35 ShowDate = s 36 End Function 37 38 39 Function CombineDate(d,m,y) 40 CombineDate = cDate(d & "." & m & "." & y) 41 End Function 42 43 Function CombineDate2(d,m,y) 44 CombineDate = DateSerial(y, m, d) 45 End Function

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *