Fillzero-Funktion: Wenn die beiden Daten Monat und Tag ungerade Zahlen sind, fügen Sie vorne eine 0 hinzu. Das allgemeine Format vom 3. März 2011 besteht beispielsweise darin, dass 2011-3-3 durch eine Funktion in ein Format wie 2011-03-03 konvertiert wird. Kopieren Sie den Codecode wie folgt:
öffentliche Funktion fillzero(l1)
wenn len(l1)=1 dann
fillzero=0&l1
anders
fillzero=l1
Ende wenn
Endfunktion
Anwendungsbeispiele:
Kopieren Sie den Codecode wie folgt:
Antwort Jahr (jetzt) & Monat (jetzt) & Tag (jetzt) Ergebnis: 201116
Antwort Jahr(jetzt)&fillzero(Monat(jetzt))&fillzero(Tag(jetzt)) Ergebnisse anzeigen:20110106
So steuern Sie die Anzeige des langen Datumsformats und des kurzen Datumsformats:
Kurzes Datum:FORMATDATETIME(DATE,vbShortDate)
Langes Datum:FORMATDATETIME(DATE,vbLongDate)
Wenn ein Datum basierend auf dem Gebietsschema Großbritannien (USA) angezeigt wird, wird das Datum im folgenden Format angezeigt:
Kurzes Datum: 09.07.97
Langes Datum: Mittwoch, 9. Juli 1997
Hinweis: Das kurze Datumsformat sieht genauso aus wie ohne Formatierung. Standardmäßig werden Datumsangaben im kurzen Datumsformat angezeigt.
So verwenden Sie die Funktion FORMATDATETIME(), um die Zeit zu manipulieren:
Kurze Zeit:FORMATDATETIME(TIME,vbShortTime)
Lange Zeit:FORMATDATETIME(TIME,vbLongTime)
Bei der Anzeige der Uhrzeit im Gebietsschema „Vereinigtes Königreich (USA)“ wird die Uhrzeit wie folgt formatiert:
Kurze Zeit: 03:20
Lange Zeit: 3:20:08 Uhr
Kopieren Sie den Codecode wie folgt:
<%
Funktion FillZero(str)
ttt=str
wenn len(str)=1 dann
ttt=0&str
Ende wenn
FillZero=ttt
Endfunktion
„Umrechnungsdatum, Null zu einer Ziffer hinzufügen 2003-1-2 -> 2003-01-02.“
Funktion ConvertDate(tDate)
ttt=tDate
if isdate(tDate) then
ttt=year(tDate) & - & FillZero(month(tDate)) & - & FillZero(day(tDate))
Ende wenn
ConvertDate=ttt
Endfunktion
„Geben Sie eine Datums- und Uhrzeitzeichenfolge ein, konvertieren Sie sie in vier erwachsene Ziffern und die anderen beiden Ziffern in eine neue Datums- und Uhrzeitzeichenfolge
Funktion ConvertDateTime(tDateTime)
ttt=tDateTime
if isdate(tDateTime) then
ttt=year(tDateTime) & - & FillZero(month(tDateTime)) & - & FillZero(day(tDateTime)) & & FillZero(cstr(hour(tDateTime))) & : & FillZero(cstr(minute(tDateTime)) ) & : & FillZero(cstr(second(tDateTime)))
Ende wenn
ConvertDateTime=ttt
Endfunktion
%>