VBA-Datumsfunktion "DateDiff()"

Die Funktion "DateDiff()" gibt einen Wert vom Typ Variant (Long) zurück, der die Anzahl der Zeitintervalle zwischen den angegebenen Datumswerten angibt. Nachfolgend ein Beispiel:

Code:

x = DateDiff("d", "15.04.2003", "20.04.2003") ' x enthält als Ergebnis 5

Die Funktion kann mit folgenden Zeitintervallen arbeiten:

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

Zusätzlich können die Argumente "firstdayofweek" und "firstweekofyear" in der Funktion angegeben werden. Weitere Informationen zur Funktion "DateDiff()" finden Sie in der Hilfe von Microsoft Access.

VBA-Datumsfunktion "DateSerial()"

Die Funktion gibt einen Wert vom Typ Variant (Date) zurück, der die angegebene Jahres-, Monats- und Tageszahl enthält. Nachfolgend zwei Beispiele:

Code:

x = DateSerial(2003, 4, 15) ' x enthält als Ergebnis "15.04.2003"   x = DateSerial(2003, 4, 1 - 1) ' x enthält als Ergebnis "31.03.2003"

Die Funktion "DateSerial()" lässt sich prima dazu verwenden um z.B. eine Geburtstagsliste zu erzeugen, die nach dem tatsächlichen Geburtstag des aktuellen Jahres sortiert ist. Nachfolgend ein Beispiel dazu.

Legen Sie sich eine Tabelle mit folgenden Feldern an und speichern diese unter dem Namen "Geburtstage":

GebNam - Text
GebTag - Datum/Uhrzeit

Füllen Sie die Tabelle mit ein paar Test-Namen und zugehörigem Geburtstag. Erstellen Sie nun eine neue Abfrage und kopieren den nachfolgenden SQL-String in den SQL-Text der Abfrage:

Code:

SELECT Geburtstage.GebNam, Geburtstage.GebTag, DateSerial(Year(Now()),Month([GebTag]),Day([GebTag])) AS GebSort FROM Geburtstage ORDER BY DateSerial(Year(Now()),Month([GebTag]),Day([GebTag]));

VBA-Datumsfunktion "DateSerial()"

Die Funktion "Now()" gibt einen Wert vom Typ Variant (Date) zurück, der das aktuelle Datum und die aktuelle Uhrzeit des Systemdatums und der Systemzeit auf Ihrem Computer angibt.

Code:

x = Now() ' x enthält als Ergebnis 08.04.2003 00:12:26

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!