Dieses Tutorial zeigt, wie Sie das heutige Datum in VBA erhalten.
Es gibt mehrere Möglichkeiten, das heutige Datum im VBA-Code zu erhalten, nämlich die Verwendung von VBA Datum() Funktion oder die VBA Jetzt() Funktionen.
Date()-Funktion
Die Datum() Mit dieser Funktion können wir einer Variablen das heutige Datum zuweisen und das Datum dann im Direktfenster im VBE-Editor anzeigen, um das heutige Datum anzuzeigen.
| 123 | Dim dtHeute als DatumdtHeute = Datum()Debug.Print dtToday |
Alternativ können wir das Datum in einer Messagebox anzeigen.
| 12345 | NebentestdatumDim dtHeute als DatumdtHeute = Datum()Msgbox "Das heutige Datum ist " & dtTodayEnd Sub |
Now() Funktion
Die Jetzt() Die Funktion funktioniert genauso wie die Datumsfunktion, enthält jedoch die Uhrzeit.
| 12345 | Untertestdatum()Dim dtHeute als DatumdtHeute = Jetzt()MsgBox "Das heutige Datum ist " & dtTodayEnd Sub |
Datumsformatierung mit VBA
In beiden Datum() und der Jetzt() Funktionen wird das Datum in einem Standardstil formatiert, der von den Einstellungen auf unserem PC bestimmt wird. Wir können diese Formatierung mit dem VBA anpassen Format Funktion. Da die Formatfunktion einen String zurückgibt, müssen wir a . deklarieren STRING variabel statt a DATUM Variable.
| 12345 | Untertestdatum()Dim dtToday As StringdtToday = Format (Datum, "tt mmmm jjjj")MsgBox "Das heutige Datum ist " & dtTodayEnd Sub |
Wir können die auch formatieren Jetzt() Funktion, um den Zeitabschnitt in einem benutzerdefinierten Format einzuschließen.
| 12345 | UnterformatNow()Dim dtToday As StringdtToday = Format(Now(), "dd mmmm yy hh:mm:ss am/pm")MsgBox dtTodayEnd Sub |
Vergleich von 2 Daten mit VBA
Wir können auch die Datumsfunktion verwenden, um das heutige Datum mit einem anderen Datum zu vergleichen - wir möchten vielleicht berechnen, wie viele Tage es bis zu einem Ereignis gibt! Wir können dies mit der VBA tun DatumDiff() Funktion, die eine Zahl zurückgibt. Wir können daher eineGANZE ZAHL Variable, in der der zurückgegebene Wert gespeichert wird.
| 123456789 | Unter TestDatumDiff()Dim dtHeute als DatumDim dtSomeDay As DateiDays als Integer dimmendtHeute = DatumdtSomeDay = "05.06.2021"iDays = DateDiff("d", dtToday, dtSomeDay)MsgBox "Es liegen " & iDays & " Tage zwischen den 2 Daten"End Sub |
Da Datumsangaben als Zahlen gespeichert werden, können wir auch das zweite Datum vom ersten abziehen, um die gleiche Antwort zu erhalten.
| 1 | iDays = dtToday - dtSomeDay |
