Funkcja FormatDateTime [VBA]
Stosuje format daty i / lub czasu do wyrażenia daty i zwraca wynik jako ciąg.
Ta stała, funkcja lub obiekt włączane są przez instrukcję Option VBASupport 1 umieszczoną w module przed programem wykonywalnym.
FormatDateTime (Date As Date [, NamedFormat As Integer])String
Date: Wyrażenie daty do sformatowania.
NamedFormat: Opcjonalne wyliczenie wyliczenie vbDateTimeFormat określające format, który ma być zastosowany do daty i godziny. Jeśli zostanie pominięty, używana jest wartość vbGeneralDate.
Formaty daty i godziny (wyliczanie vbDateTimeFormat)
|
Nazwana stała |
Wartość |
Opis |
|---|---|---|
|
vbGeneralDate |
0 |
Wyświetla datę i / lub czas zgodnie z ustawieniem daty ogólnej systemu. Jeśli jest wyświetlana tylko data, nie wyświetla się czas; Jeśli jest to tylko czas, nie jest wyświetlana żadna data. |
|
vbLongDate |
1 |
Wyświetl datę przy użyciu formatu daty podanej w ustawieniach regionalnych komputera. |
|
vbShortDate |
2 |
Wyświetl datę przy użyciu krótkiego formatu daty określonego w ustawieniach regionalnych komputera. |
|
vbLongTime |
3 |
Wyświetla czas zdefiniowany w ustawieniach Długiego czasu twojego systemu. |
|
vbShortTime |
4 |
Wyświetl czas w formacie 24-godzinnym (hh: mm). |
REM ***** BASIC *****
Option VBASupport 1
Sub DateFormat
Dim d as Date
d = ("1958-01-29 00:25")
msgbox("Ogólny format daty : " & FormatDateTime(d))
msgbox("Długi format daty : " & FormatDateTime(d,vbLongDate))
msgbox("Krótki format daty : " & FormatDateTime(d,vbShortDate))
msgbox("Długi format czasu : " & FormatDateTime(d,3))
msgbox("Krótki formatczasu : " & FormatDateTime(d,vbShortTime))
End Sub