Beispiele für Datums- und Uhrzeitfunktionen für die ASP-Website-Entwicklung

Beispiele für Datums- und Uhrzeitfunktionen für die ASP-Website-Entwicklung

Beispiel für eine Funktionssyntaxbeschreibung

Now Now() Ruft das aktuelle Datum und die aktuelle Uhrzeit des Systems ab. Dim MyVar MyVar = Now

'' MyVar enthält das aktuelle Datum und die aktuelle Uhrzeit.

Date Date() Ruft das aktuelle Datum des Systems ab. Dim MyDate MyDate = Date

'' MyDate enthält das aktuelle Systemdatum.

Time Time() ermittelt die aktuelle Systemzeit. Dim MyTime MyTime = Time

'' Gibt die aktuelle Systemzeit zurück.

Year Year(Date) Ruft das Jahr des angegebenen Datums ab. Dim MyDate, MyYear

MyDate = #19. Oktober 1962#

Beispiel für eine Funktionssyntaxbeschreibung

Now Now() Ruft das aktuelle Datum und die aktuelle Uhrzeit des Systems ab. Dim MyVar MyVar = Now

'' MyVar enthält das aktuelle Datum und die aktuelle Uhrzeit.

Date Date() Ruft das aktuelle Datum des Systems ab. Dim MyDate MyDate = Date

'' MyDate enthält das aktuelle Systemdatum.

Time Time() ermittelt die aktuelle Systemzeit. Dim MyTime MyTime = Time

'' Gibt die aktuelle Systemzeit zurück.

Year Year(Date) Ruft das Jahr des angegebenen Datums ab. Dim MyDate, MyYear

MyDate = #19. Oktober 1962#

„Vergeben Sie ein Datum.

MyYear = Year(MyDate)

'' MyYear enthält 1962.

Month Month(Date) Ruft den Monat des angegebenen Datums ab Dim MyVar MyVar = Month(Now)

'' MyVar enthält die Zahl, die dem aktuellen Monat entspricht.

Tag Day(Datum) Ermittelt das Datum des angegebenen Datums. Dim MyDay MyDay = Day(19. Oktober 1962)

''MyDay enthält 19.

Stunde Stunde(Zeit) Ruft die Stunde der angegebenen Zeit ab Dim MyTime, MyHour

MyTime = Now MyHour = Hour(MyTime)

'' MyHour enthält einen numerischen Wert, der die aktuelle Uhrzeit darstellt.

Minute Minute(time) Ruft die Minute Dim MyVar der angegebenen Zeit ab

MyVar = Minute(Jetzt)

Second Second(time) Ermittelt die Anzahl der Sekunden der angegebenen Zeit Dim MySec

MySec = Second(Jetzt)

''MySec enthält eine Zahl, die die aktuelle Sekunde darstellt.

WeekDay WeekDay(Date) Ruft die Ganzzahl des Wochentags für das angegebene Datum ab, 1 bedeutet Sonntag, 2 bedeutet Montag usw. Dim MyDate, MyWeekDay

MyDate = #19. Oktober 1962#

'' Zuweisungsdatum

MyWeekDay = Wochentag(MyDate)

„MyWeekDay enthält 6, MyDate steht für Freitag.“

DateDiff DateDiff(Var,Var1,Var2)

Var: Datums- oder Zeitintervallfaktor mit den folgenden Parametern:

jjjj Jahr m Monat d Tag ww Woche h Stunde s Sekunde Var1: das erste Datum oder die erste Uhrzeit

Var2: Das zweite Datum oder die zweite Uhrzeit, die nach Var1 liegt, berechnet das Intervall zwischen zwei Datums- oder Uhrzeitangaben. DateDiff(d,Date(),#1/1/2005#)

''Geben Sie an, wie viele Tage bis zum Neujahrstag 2005 verbleiben

DateDiff(h,Date(),#1/1/2005#)

''Geben Sie an, wie viele Stunden bis zum Neujahrstag 2005 verbleiben

DateDiff(d,#1/1/2003#,#1/1/2005#)

''Gibt die Anzahl der Tage zwischen zwei Daten zurück

DateAdd DateDiff(Var,Var1,Var2)

Var: Datums- oder Zeitintervallfaktor:

Var1: Vielfaches des Datums- oder Zeitintervalls

Var2: Datums- oder Zeitbasis hinzufügen. Das folgende Beispiel fügt einen Monat zum 31. Januar 1995 hinzu.

NewDate = DateAdd(m, 1, 31-Jan-95)

In diesem Beispiel gibt DateAdd den 28. Februar 1995 zurück, nicht den 31. Februar 1995. Wenn das Datum der 31. Januar 1996 ist, wird der 29. Februar 1996 zurückgegeben, da 1996 ein Schaltjahr ist.

Wenn das berechnete Datum vor 100 n. Chr. liegt, tritt ein Fehler auf.

FormatDateTime FormatDateTime(Date,vbShortDate) In kurzes Datumsformat konvertieren FromatDateTime(Date(),vbLongDate)

Anzeige im langen Datumsformat

FormatDateTime(Date,vbLongDate) In langes Datumsformat konvertieren

FormatDateTime(Date,vbShortTime) In Kurzzeitformat konvertieren

FormatDateTime(Date,vbLongTime) In Langzeitformat konvertieren