VBA – Datum-Variable

Was Variablen, Datentypen und Konstanten sind, haben wir bereits in unserem VBA-Tutorial Datentypen – Variablen und Konstanten behandelt. In diesem Tutorial werden wir uns damit beschäftigen, wie man eine Variable als Datum deklariert.

In VBA wird der Datentyp Datum als Dezimalzahl gespeichert. Sowohl Datums- als auch Zeitangaben können in diesem Datentyp gespeichert werden. Der VBA-Datumsdatentyp kann Werte zwischen dem 1. Januar 100 und dem 31. Dezember 9999 speichern.

VBA-Datum-Variable

Sie deklarieren eine Variable als Datum mit dem Schlüsselwort Dim:

Dim datumEins As Date

Dann können Sie der Datum-Variablen ein Datum zuweisen. Es gibt mehrere Möglichkeiten, Datumsangaben für die Zuweisung an Variablen zu erzeugen:

Das heutige Datum einer Variablen zuweisen

Die Funktion Date gibt das heutige Datum zurück:

Dim dtHeute

dtHeute = Date

Die aktuelle Uhrzeit einer Variablen zuweisen

Die Funktion Now gibt das heutige Datum und die aktuelle Uhrzeit zurück:

Dim dJetzt

dJetzt = Now

Zuweisung der aktuellen Uhrzeit einer Variablen

Die Funktion Time gibt die aktuelle Uhrzeit zurück:

Dim tUnrzeit 

tUnrzeit = Time

Zuweisung eines Datums einer Variablen mit DateSerial

Die Funktion DateSerial gibt ein Datum zurück, das auf einer Eingabe von Jahr, Monat und Tag basiert:

Dim dsDatum 

dsDatum = DateSerial(2010, 11, 11)

Zuweisung einer Uhrzeit einer Variablen mit TimeSerial

Die Funktion TimeSerial gibt eine Uhrzeit zurück, die auf der Eingabe von Stunde, Minute und Sekunde basiert:

Dim tsUhrzeit

tsUhrzeit = TimeSerial (10, 10, 45)

Wenn Sie Datumsangaben in Ihrem Code verwenden, müssen Sie diese mit einem # oder „, wie unten gezeigt, einschließen:

VBA-Funktion DateValue

Die VBA-Funktion DateValue kann verwendet werden, um ein Datum zu initialisieren. Der folgende Code kann verwendet werden, um ein Datum in VBA zu initialisieren:

MsgBox DateValue("1/1/2010")

VBA-Funktion TimeValue

Die Funktion TimeValue erzeugt eine Uhrzeit:

MsgBox TimeValue("21:30:57")

Excel VBA – Beispiel für Datum-Variable

Diese Prozedur demonstriert, wie man Datum-Variablen erstellt, ihnen Werte zuweist und sie in einem Excel-Arbeitsblatt ausgibt:

Sub EineVariableAlsDatumDeklarieren()

Dim datumEins As Date
Dim datumZwei As Date


datumEins = #1/1/2019#
datumZwei = "1/2/2019"

Range("A1").Value = datumEins
Range("A2").Value = datumZwei

End Sub

Das Ergebnis ist:

Mehr über Datumsfunktionen erfahren Sie in diesem Turorial.

VBA-Datum-Variable in Access

Die Datum-Variable funktioniert in Access-VBA genau so wie in Excel-VBA.

Diese Prozedur demonstriert, wie man eine Datum-Variable erstellt und ein Feld in einer Access-Tabelle mit dem Wert aktualisiert.

Sub EineVariableAlsDatumDeklarieren()
   Dim dtWork As Date
   dtWork = #05/10/2020#
   DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & "# WHERE JobNo = 6"
 End Sub