DateDiff

Die DateDiff-Funktion gibt die Anzahl der Zeitintervalle zwischen zwei Terminen zurück.

Syntax
Result := DateDiff(Interval, Date1, Date2 [, FirstDayOfWeek [, FirstWeekOfYear] ])
Rückgabewert
Typ	Beschreibung
Long	Zahl der Zeitintervalle
Parameter
Verwendung	Name	Typ	Übergabe	Beschreibung
Erforderlich	Interval	String	ByVal	s.u.
Erforderlich	Date1	Double	ByVal	Gibt das 1. Datum an
Erforderlich	Date2	Double	ByVal	Gibt das 2. Datum an
Optional	FirstDayOfWeek	Variant	ByVal	Bestimmt den 1. Tag der Woche
Optional	FirstWeekOfYear	Variant	ByVal	Bestimmt die 1. Woche des Jahres

Interval bestimmt das Zeitintervall, das zur Berechnung der Differenz zwischen Date1 und Date2 verwendet werden soll. Folgende Werte können für Interval angegeben werden:

Interval	Beschreibung
yyyy	Jahr
q	Quartal
m	Monat
y	Tag des Jahres
d	Tag
w	Wochentag
ww	Woche
h	Stunde
n	Minute
s	Sekunde

Über den optionalen Parameter FirstDayOfWeek können Sie den ersten Tag der Woche definieren.

FirstDayOfWeek	Beschreibung
1	Sonntag (=Defaultwert, wenn nicht angegeben)
2	Montag
3	Dienstag
4	Mittwoch
5	Donnerstag
6	Freitag
7	Samstag

Der optionale Parameter FirstWeekOfYear bestimmt die erste Woche des Jahres, die defaultmäßig als die Woche definiert ist, in der der 1. Januar liegt. Folgende Definitionen sind hier möglich:

FirstWeekOfYear	Beschreibung
1	Woche, in der der 1. Januar liegt
2	Woche, in der mindestens vier Tage des neuen Jahres liegen
3	erste vollständige Woche des neuen Jahres

Beispiel:

Dim Diff As Long

Diff := DateDiff("d", ToDate("06.05.2000"), ToDate("07.05.2000")) # ergibt 1

Diff := DateDiff("d", ToDate("07.05.2000"), ToDate("06.05.2000")) # ergibt -1

Diff := DateDiff("ww", ToDate("07.05.2000"), ToDate("07.06.2000")) # ergibt 5