Was Variablen, Datentypen und Konstanten sind, haben wir bereits in unserem Tutorial zu VBA-Datentypen - Variablen und Konstanten besprochen. In diesem Tutorial werden wir behandeln, wie man eine Variable als Datum deklariert.
In VBA wird der Datumsdatentyp als Dezimalzahl gespeichert. In diesem Datentyp können sowohl Datums- als auch Uhrzeiten gespeichert werden. Der VBA-Datumsdatentyp kann Werte zwischen dem 1. Januar 100 und dem 31. Dezember 9999 speichern.
VBA-Datumsvariable
Sie deklarieren eine Variable als Datum mit dem Schlüsselwort Dim:
| 1 | DatumEins als Datum dimmen |
Anschließend können Sie der Datumsvariablen ein Datum zuweisen. Es gibt mehrere Möglichkeiten, Daten zu generieren, die Variablen zugewiesen werden:
Heute zu Variable zuweisen
Die Datumsfunktion gibt das heutige Datum zurück:
| 123 | Dim dtHeutedtHeute = Datum |
Jetzt Variable zuweisen
Die Now-Funktion gibt das heutige Datum und die aktuelle Uhrzeit zurück:
| 123 | Dim dNowdJetzt = Jetzt |
Variable Zeit zuweisen
Die Zeitfunktion gibt die aktuelle Uhrzeit zurück:
| 123 | tTime dimmentZeit = Zeit |
Zuweisen eines Datums zu einer Variablen mit DateSerial
Die DateSerial-Funktion gibt ein Datum basierend auf einem eingegebenen Jahr, Monat und Tag zurück:
| 123 | Dim dsDatedsDate = DateSerial(2010, 11, 11) |
Weisen Sie einer Variablen mit TimeSerial eine Zeit zu
Die TimeSerial-Funktion gibt eine Uhrzeit basierend auf einer eingegebenen Stunde, Minute und Sekunde zurück:
| 123 | tsTime dimmentsTime = TimeSerial (10, 10, 45) |
Sie müssen Datumsangaben mit # oder ” einschließen, wenn Sie sie in Ihrem Code verwenden, wie unten gezeigt:
VBA DateValue-Funktion
Die VBA DateValue-Funktion kann verwendet werden, um ein Datum zu initialisieren. Der folgende Code kann verwendet werden, um ein Datum in VBA zu initialisieren:
| 1 | MsgBox DateValue("01.01.2010) |
VBA TimeValue-Funktion
| 1 | MsgBox TimeValue("21:30:57") |
Beispiel für eine Excel-VBA-Datumsvariable
Dieses Verfahren zeigt, wie Sie Datumsvariablen erstellen, ihnen Werte zuweisen und sie in ein Excel-Arbeitsblatt ausgeben:
| 12345678910111213 | Sub DeclaringAVariableAsADate()Dim dateOne As DateDim dateTwo As DatedateOne = #1/1/2019#dateTwo = "1/2/2019"Range("A1").Value = dateOneRange("A2").Value = dateTwoEnd Sub |
Das Ergebnis ist:
In diesem Tutorial erfahren Sie mehr über Datumsfunktionen.
VBA-Datumsvariable in Access
Die Datumsvariable funktioniert in Access VBA genauso wie in Excel VBA.
Dieses Verfahren zeigt, wie Sie eine Datumsvariable erstellen und ein Feld in einer Zugriffstabelle mit dem Wert aktualisieren.
| 12345 | Sub DeclaringAVariableAsADate()dtWork als Datum dimmendtArbeit = #05/10/2020#DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & "# WHERE JobNo = 6"End Sub |
