Obsah
Tento tutoriál předvede, jak použít funkci Format VBA k formátování času.
Funkce formátu a čas
Čas formátu VBA s předdefinovanými formáty
Funkci VBA Format lze použít k převodu čísla na řetězec s předdefinovaným formátem. Dostupné formáty času jsou dlouhé, střední a krátké.
| 1234567891011121314 | Sub FormatTimeExample_1 ()Dim DateEx As DateDateEx = #18. 4. 2020 18:05:07 #Formát MsgBox (DateEx, „Long Time“) 'Výsledek je: 18:05:07 PMFormát MsgBox (DateEx, „Medium Time“) 'Výsledek je: 18:05Formát MsgBox (DateEx, „Short Time“) 'Výsledek je: 18:05DateEx = #2/18/2021 6:05:07 AM #Formát MsgBox (DateEx, "Long Time") 'Výsledek je: 6:05:07 dopFormát MsgBox (DateEx, „Medium Time“) 'Výsledek je: 06:05Formát MsgBox (DateEx, „Short Time“) 'Výsledek je: 06:05End Sub |
Čas pro formát VBA s vlastními formáty
Funkci VBA Format lze použít k převodu čísla na řetězec s vlastními formáty. Symboly h a hh se používají pro hodiny, n a nn pro minuty, s a ss pro sekundy, ttttt pro plný čas podle nastavení systému a AM/PM, am/pm, A/P, a/p, AMPM pro am -systém pm.
| 1234567891011121314151617 | Sub FormatTimeExample_2 ()Dim DateEx As DateDateEx = #18. 4. 2020 18:05:07 #Formát MsgBox (DateEx, "hh: nn: ss") 'Výsledek je: 18:05:07Formát MsgBox (DateEx, "h: n: s AM/PM") 'Výsledek je: 6: 5: 7 PMFormát MsgBox (DateEx, "h") 'Výsledek je: 18Formát MsgBox (DateEx, "hh") 'Výsledek je: 18Formát MsgBox (DateEx, "h: n") 'Výsledek je: 18: 5Formát MsgBox (DateEx, "hh: nn") 'Výsledek je: 18:05Formát MsgBox (DateEx, "hh: nn: s") 'Výsledek je: 18: 05: 7Formát MsgBox (DateEx, "hh: nn: ss") 'Výsledek je: 18:05:07Formát MsgBox (DateEx, "\ T \ i \ m \ e \ \ i \ s \: \ hh: nn: ss")„Výsledek je: Čas je: 18:05:07End Sub |
