Bei der Erstellung von Websites stößt Asp häufig auf Probleme bei der Verarbeitung des Datumsformats. Wir führen eine nützliche VBScript-Funktion ein: Für das Datum, das im Datums-/Uhrzeittypfeld der Access-Datenbank gespeichert ist, wird der Anzeigeeffekt beispielsweise direkt aus der Datenbank gelesen. 13.06.2009 18:00 Uhr, was soll ich tun, wenn ich nur das Datum anzeigen möchte?
Vbscrip hat eine Funktion FormatDateTime(). Seine Beschreibung lautet wie folgt:
Gibt einen als Datum oder Uhrzeit formatierten Ausdruck zurück.
FormatDateTime(Date[, NamedFormat])
Parameter
Datum
Erforderlich. Der zu formatierende Datumsausdruck.
NamedFormat
Optional. Ein numerischer Wert, der das verwendete Datums-/Uhrzeitformat angibt. Wenn er weggelassen wird, wird vbGeneralDate verwendet.
aufstellen
Der NamedFormat-Parameter kann die folgenden Werte haben:
Konstante | Wert | beschreiben |
vbGeneralDate | 0 | Datum und/oder Uhrzeit anzeigen. Wenn ein Datumsteil vorhanden ist, zeigen Sie diesen Teil im kurzen Datumsformat an. Wenn ein Zeitteil vorhanden ist, zeigen Sie diesen Teil im Langzeitformat an. Wenn beide vorhanden sind, werden alle Abschnitte angezeigt. |
vbLongDate | 1 | Zeigt das Datum im langen Datumsformat an, das in den regionalen Einstellungen des Computers festgelegt ist. |
vbShortDate | 2 | Zeigt das Datum im kurzen Datumsformat an, das in den regionalen Einstellungen des Computers festgelegt ist. |
vbLongTime | 3 | Zeigt die Uhrzeit im Zeitformat an, das in den regionalen Einstellungen des Computers angegeben ist. |
vbShortTime | 4 | Zeigt die Uhrzeit im 24-Stunden-Format (hh:mm) an. |
Strdate=formatdatetime(rs(date),2).
Da es in vbscript nur eine Computerregion gibt, nämlich die Vereinigten Staaten, gibt es nur ein Kurzformat
jjjj-mm-tt.
ASP-Zeit- und Datumsformatierte Ausgabe
1, 10.10.2010 00:00:00
2, 10.10.2010
3, 10.10.2010
4, 10. Oktober 2010 00 Stunden 00 Minuten 00 Sekunden
5, 10-10 00:00:00
6,10/10
7., 10. Oktober
Weitere Transformationen können je nach Programm selbst hinzugefügt werden.
Kopieren Sie den Codecode wie folgt:
'Konvertieren Sie die Zeit in das Zeitformat
Funktion formatDate(Byval t,Byval ftype)
dim y, m, d, h, mi, s
formatDate=
Wenn IsDate(t)=False, dann Funktion beenden
y=cstr(Jahr(t))
m=cstr(Monat(t))
Wenn len(m)=1, dann ist m=0 & m
d=cstr(Tag(t))
Wenn len(d)=1, dann ist d=0 & d
h = cstr(Stunde(t))
Wenn len(h)=1, dann ist h=0 & h
mi = cstr(Minute(t))
Wenn len(mi)=1, dann mi=0 & mi
s = cstr(Sekunde(t))
Wenn len(s)=1, dann ist s=0 & s
Fall auswählen cint(ftype)
Fall 1
'JJJJ-MM-TT
formatDate=y & - & m & - & d
Fall 2
'JJ-MM-TT
formatDate=right(y,2) & - & m & - & d
Fall 3
'MM-TT
formatDate=m & - & d
Fall 4
'JJJJ-MM-TT hh:mm:ss
formatDate=y & - & m & - & d & & h & : & mi & : & s
Fall 5
'hh:mm:ss
formatDate=h & : & mi & : & s
Fall 6
'JJJJ Jahr mm Monat TT Tag
formatDate=y & Jahr & m & Monat & d & Tag
Fall 7
'JJJJMMTT
formatDate=y&m&d
Fall 8
'jjjjmmtthhmmss
formatDate=y & m & t & h & mi & s
Ende auswählen
Funktion beenden