Съдържание
Този урок ще покаже как да използвате функцията Format VBA за форматиране на времето.
Функция за форматиране и време
Време за форматиране на VBA с предварително зададени формати
Функцията VBA Format може да се използва за преобразуване на число в низ с предварително зададен формат. Наличните формати за време са дълго, средно и кратко време.
1234567891011121314 | ПодформатTimeExample_1 ()Dim DateEx като датаDateEx = #4/18/2020 18:05:07 PM #MsgBox Format (DateEx, "Long Time") 'Резултатът е: 18:05:07 PMФормат на MsgBox (DateEx, "Средно време") Резултатът е: 18:05 чФормат на MsgBox (DateEx, "Кратко време") 'Резултатът е: 18:05DateEx = #2/18/2021 6:05:07 AM #MsgBox Format (DateEx, "Long Time") 'Резултатът е: 06:05:07 AMФормат на MsgBox (DateEx, "Средно време") "Резултатът е: 06:05 сутринтаФормат на MsgBox (DateEx, "Кратко време") Резултатът е: 06:05End Sub |
Време за форматиране на VBA с персонализирани формати
Функцията VBA Format може да се използва за преобразуване на число в низ с персонализирани формати. Символите h и hh се използват за часове, n и nn за минути, s и ss за секунди, ttttt за пълен работен ден според системните настройки и AM/PM, am/pm, A/P, a/p, AMPM за am -pm система.
1234567891011121314151617 | ПодформатTimeExample_2 ()Dim DateEx като датаDateEx = #4/18/2020 18:05:07 PM #Формат на MsgBox (DateEx, "hh: nn: ss") 'Резултатът е: 18:05:07MsgBox Format (DateEx, "h: n: s AM/PM") 'Резултатът е: 6: 5: 7 PMФормат на MsgBox (DateEx, "h") 'Резултатът е: 18Формат на MsgBox (DateEx, "hh") 'Резултатът е: 18Формат на MsgBox (DateEx, "h: n") 'Резултатът е: 18: 5Формат на MsgBox (DateEx, "hh: nn") 'Резултатът е: 18:05Формат на MsgBox (DateEx, "hh: nn: s") 'Резултатът е: 18: 05: 7Формат на MsgBox (DateEx, "hh: nn: ss") 'Резултатът е: 18:05:07Формат на MsgBox (DateEx, "\ T \ i \ m \ e \ \ i \ s \: \ hh: nn: ss")„Резултатът е: Часът е: 18:05:07End Sub |