Obsah

# Funkce FormatDateTime [VBA]

Použije formát data a/nebo času na výraz pro datum a vrátí výsledek jako řetězec.

Tato konstanta, funkce nebo objekt se povoluje příkazem Option VBASupport 1, který je umístěn v modulu před spustitelným programem.

### Syntaxe:

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

### Návratový typ:

String

### Parametry:

Date: Výraz pro datum, který se má zformátovat.

NamedFormat: Nepovinná hodnota výčtu vbDateTimeFormat určující formát, který se na výraz pro datum a čas použije. Je-li vynechána, použije se hodnota vbGeneralDate.

### Formáty data a času (výčet vbDateTimeFormat)

Pojmenovaná konstanta | Hodnota | Popis
--- | --- | ---
vbGeneralDate | 0 | Zobrazí datum a/nebo čas podle systémového nastavení obecného data. Jedná-li se pouze o datum, čas se nezobrazí; jedná-li se pouze o čas, nezobrazí se datum.
vbLongDate | 1 | Zobrazí datum pomocí dlouhého formátu data určeného v místních nastavením počítače.
vbShortDate | 2 | Zobrazí datum pomocí krátkého formátu data určeného v místních nastavením počítače.
vbLongTime | 3 | Zobrazí čas podle dlouhého formátu času z nastavení systému.
vbShortTime | 4 | Zobrazí čas pomocí 24hodinového formátu (hh:mm).

### Chybové kódy:

13 Datové typy nesouhlasí

### Příklad:

            REM  *****  BASIC  *****
            Option VBASupport 1
            Sub DateFormat
             Dim d as Date
             d = ("1958-01-29 00:25")
             msgbox("Obecný formát data: " & FormatDateTime(d))
             msgbox("Dlouhý formát data: " & FormatDateTime(d,vbLongDate))
             msgbox("Krátký formát data: " & FormatDateTime(d,vbShortDate))
             msgbox("Dlouhý formát času: " & FormatDateTime(d,3))
             msgbox("Dlouhý formát času: " & FormatDateTime(d,3))
            End Sub

Související témata

Funkce VBA času a data

Podpořte nás!