Inhalte

# 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ückgabetyp:

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

Verwandte Themen

VBA – Zeit- und Datumsfunktionen

Bitte unterstützen Sie uns!