Spisie treści
Ten samouczek pokaże, jak używać funkcji Formatuj VBA do formatowania czasu.
Funkcja formatu i czas
Czas formatu VBA z predefiniowanymi formatami
Funkcja Format VBA może służyć do konwersji liczby na ciąg o wstępnie zdefiniowanym formacie. Dostępne formaty czasu to długi czas, średni czas i krótki czas.
| 1234567891011121314 | Pod FormatCzasPrzykład_1()Dim DateEx As DateDataEx = 18.04.2020 18:05:07 #MsgBox Format(DateEx, "Długi czas") 'Wynik to: 18:05:07MsgBox Format(DateEx, "Średni czas") 'Wynik to: 18:05MsgBox Format(DateEx, "Krótki czas") 'Wynik to: 18:05DataEx = #2/18/2021 6:05:07 AM#MsgBox Format(DateEx, "Długi czas") 'Wynik to: 6:05:07 AMMsgBox Format(DateEx, "Średni czas") 'Wynik to: 06:05 AMMsgBox Format(DateEx, "Krótki czas") 'Wynik to: 06:05Napis końcowy |
Czas formatu VBA z niestandardowymi formatami
Funkcja Format VBA może służyć do konwersji liczby na ciąg z niestandardowymi formatami. Symbole h i hh są używane dla godzin, n i nn dla minut, s i ss dla sekund, ttttt dla pełnego czasu zgodnie z ustawieniami systemu oraz AM/PM, am/pm, A/P, a/p, AMPM dla am -pm system.
| 1234567891011121314151617 | PodformatCzasPrzykład_2()Dim DateEx As DateDataEx = 18.04.2020 18:05:07 #MsgBox Format(DateEx, "hh:nn:ss") 'Wynik: 18:05:07MsgBox Format(DateEx, "h:n:s AM/PM") 'Wynik: 18:5:7 PMMsgBox Format(DateEx, "h") 'Wynik to: 18MsgBox Format(DateEx, "hh") 'Wynik to: 18MsgBox Format(DateEx, "h:n") 'Wynik: 18:5MsgBox Format(DateEx, "hh:nn") 'Wynik: 18:05MsgBox Format(DateEx, "hh:nn:s") 'Wynik to: 18:05:7MsgBox Format(DateEx, "hh:nn:ss") 'Wynik: 18:05:07MsgBox Format(DateEx, "\T\i\m\e\ \i\s\:\ hh:nn:ss")„Wynik: Czas to: 18:05:07”Napis końcowy |
