Innholdsfortegnelse
Denne opplæringen vil demonstrere hvordan du bruker Format VBA -funksjonen til å formatere tid.
Formater funksjon og tid
VBA -formattid med forhåndsdefinerte formater
VBA -formatfunksjonen kan brukes til å konvertere et tall til en streng med et forhåndsdefinert format. De tilgjengelige formatene for tid er lang tid, middels tid og kort tid.
1234567891011121314 | Sub FormatTimeExample_1 ()Dim DateEx As DateDateEx = #4/18/2020 18:05:07 PM #MsgBox Format (DateEx, "Long Time") 'Resultat er: 18:05:07 PMMsgBox -format (DateEx, "Medium Time") 'Resultat er: 18:05MsgBox Format (DateEx, "Short Time") 'Resultat er: 18:05DateEx = #2/18/2021 06:05:07 AM #MsgBox -format (DateEx, "Long Time") 'Resultat er: 06:05:07MsgBox -format (DateEx, "Medium Time") 'Resultat er: 06:05MsgBox Format (DateEx, "Short Time") 'Resultat er: 06:05Slutt Sub |
VBA -formattid med tilpassede formater
VBA -formatfunksjonen kan brukes til å konvertere et tall til en streng med tilpassede formater. Symbolene h og hh brukes i timer, n og nn i minutter, s og ss i sekunder, ttttt på heltid i henhold til systeminnstillinger og AM/PM, am/pm, A/P, a/p, AMPM for am -pm system.
1234567891011121314151617 | Sub FormatTimeExample_2 ()Dim DateEx As DateDateEx = #4/18/2020 18:05:07 PM #MsgBox Format (DateEx, "hh: nn: ss") 'Resultat er: 18:05:07MsgBox Format (DateEx, "h: n: s AM/PM") 'Resultat er: 18: 17: 19MsgBox Format (DateEx, "h") 'Resultat er: 18MsgBox Format (DateEx, "hh") 'Resultat er: 18MsgBox Format (DateEx, "h: n") 'Resultat er: 18: 5MsgBox Format (DateEx, "hh: nn") 'Resultat er: 18:05MsgBox Format (DateEx, "hh: nn: s") 'Resultat er: 18: 05: 7MsgBox Format (DateEx, "hh: nn: ss") 'Resultat er: 18:05:07MsgBox -format (DateEx, "\ T \ i \ m \ e \ \ i \ s \: \ hh: nn: ss")'Resultatet er: Tid er: 18:05:07Slutt Sub |