Funktion FormatDateTime [VBA]

Überträgt ein Datums- und/oder Zeitformat in einen Datumsausdruck und gibt das Ergebnis als eine Zeichenfolge zurück.

Diese Konstante, diese Funktion oder dieses Objekt wird durch Platzierung der Anweisung Option VBASupport 1 vor dem auszuführenden Programmcode des Moduls aktiviert.

Syntax:


        FormatDateTime (Date As Date [, NamedFormat As Integer])

Rückgabewert:

String

Parameter:

Date: Der zu formatierende Datumsausdruck.

NamedFormat: Eine optionale Aufzählung vbDateTimeFormat, die das Format festlegt, das auf den Datums- und Zeitausdruck anzuwenden ist. Falls fehlend, wird der Wert vbGeneralDate verwendet.

Datums- und Zeitformate (vbDateTimeFormat Aufzählung)

Benannte Konstante	Wert	Beschreibung
vbGeneralDate	0	Zeigt ein Datum und/oder eine Zeit, wie sie in Ihren Systemeinstellungen festgelegt ist. Falls nur ein Datum, wird keine Zeit angezeigt; Falls nur eine Zeit, wird kein Datum angezeigt.
vbLongDate	1	Zeigt ein Datum im langen Datumsformat an, wie in Ihren Systemeinstellungen festgelegt.
vbShortDate	2	Zeigt ein Datum im kurzen Datumsformat an, wie in Ihren Systemeinstellungen festgelegt.
vbLongTime	3	Zeigt eine Zeit an, wie in Ihren Systemeinstellungen festgelegt.
vbShortTime	4	Zeigt eine Zeit im 24-Stunden-Format an (hh:mm).

Fehlercodes:

13 Datentyp kann nicht konvertiert werden

Beispiel:


        REM  *****  BASIC  *****
        Option VBASupport 1
        Sub DateFormat
         Dim d as Date
         d = ("1958-01-29 00:25")
         msgbox("Allgemeines Datumsformat: " & FormatDateTime(d))
         msgbox("Langes Datumsformat: " & FormatDateTime(d,vbLongDate))
         msgbox("Kurzes Datumsformat: " & FormatDateTime(d,vbShortDate))
         msgbox("Langes Zeitformat: " & FormatDateTime(d,3))
         msgbox("Kurzes Zeitformat: " & FormatDateTime(d,vbShortTime))
        End Sub

VBA – Zeit- und Datumsfunktionen