Microsoft Office Access 2007 - Das Handbuch

Kapitel 36

Funktionen und Methoden

774

Rechnen mit Datum und Uhrzeit

Mit

Day()

,

Month()

bzw.

Year()

ermitteln Sie Tag, Monat bzw. Jahr eines als Argument übergebenen

Datumswerts. Mit

Weekday()

erhalten Sie eine Zahl zwischen 1 und 7, je nachdem, auf welchen

Wochentag das übergebene Datum fällt.

Now

liefert als Ergebniswert das heutige Datum und die Zeit zurück, während

Date

nur das heutige

Datum zurückgibt.

Das nächste Listing zeigt eine Lösung, den Wochentag des übergebenen Datums als Zeichenkette

zurückzugeben.

Übrigens können Sie es einfacher haben, wenn Sie die

Format()

-Funktion zu Hilfe nehmen:

Zum Rechnen mit Datumswerten bieten sich auch die Funktionen

DateAdd()

,

DateDiff()

,

DateSerial()

und

DatePart()

an. Im nächsten Listing wird die Funktion

DateAdd()

verwendet, die

zu einem Tag eine Anzahl von Tagen, Wochen, Monaten usw. hinzuzählt. Das erste Argument der

Funktion ist ein String, der die Beschreibung für den zweiten Parameter enthält, also ob Tage,

Wochen, Monate usw. zum Addieren übergeben werden.

Arbeiten Sie mit SQL-Befehlen in Ihren Visual Basic-Programmen, so müssen Datumswerte in der

Form

#mm/tt/jjjj#

, also in amerikanischer Datumsschreibweise, eingeschlossen von »#«-Zeichen,

angegeben werden. Die folgende Funktion

erstellt eine solche Datumszeichenkette. Mit der Funktion

DateValue()

können Sie übrigens ein in

einer beliebigen Schreibweise angegebenes Datum in einen Datumswert umwandeln.

Function Wochentag(dateTag As Date) As String

Dim aWochentage As Variant

aWochentage = Array("So", "Mo", "Di", "Mi", "Do", "Fr", "Sa")

Wochentag = aWochentage(WeekDay(dateTag) – 1)

End Function

Function Wochentag2(dateTag As Date) As String

Wochentag2 = Format(dateTag, "ddd")

End Function

Function Wochen(dateTag As Date, dblWochen As Double) As Date

' Formatstring ww als Wochen

Wochen = DateAdd("ww", dblWochen, dateTag)

End Function

Function DateString(d As Date) As String

' Gibt einen Datumswert in der Form #mm/dd/yyyy# zurück

DateString = "#" & Month(d) & "/" & Day(d) & _

"/" & Year(d) & "#"

End Function