Inhoudsopgave
Deze zelfstudie laat zien hoe u de functie VBA opmaken kunt gebruiken om tijd te formatteren.
Formaat Functie en Tijd
VBA-formaat Tijd met vooraf gedefinieerde formaten
De functie VBA-formaat kan worden gebruikt om een getal om te zetten in een tekenreeks met een vooraf gedefinieerd formaat. De beschikbare formaten voor tijd zijn lange tijd, gemiddelde tijd en korte tijd.
1234567891011121314 | SubformaatTijdVoorbeeld_1()Dim DateEx als datumDatumEx = 18-04-2020 18:05:07 #MsgBox Format (DateEx, "Lange tijd") 'Resultaat is: 18:05:07 PM'MsgBox Format (DateEx, "Medium Time") 'Resultaat is: 18:05 PM'MsgBox Format (DateEx, "Short Time") 'Resultaat is: 18:05'DatumEx = #2/18/2021 6:05:07 AM#MsgBox Format (DateEx, "Lange tijd") 'Resultaat is: 6:05:07 AM'MsgBox Format (DateEx, "Medium Time") 'Resultaat is: 06:05 AM'MsgBox Format (DateEx, "Short Time") 'Resultaat is: 06:05'Einde sub |
VBA-notatietijd met aangepaste notaties
De functie VBA-formaat kan worden gebruikt om een getal om te zetten in een tekenreeks met aangepaste notaties. Symbolen h en hh worden gebruikt voor uren, n en nn voor minuten, s en ss voor seconden, ttttt voor fulltime volgens systeeminstellingen en AM/PM, am/pm, A/P, a/p, AMPM voor de am -pm systeem.
1234567891011121314151617 | SubformaatTijdVoorbeeld_2()Dim DateEx als datumDatumEx = 18-04-2020 18:05:07 #MsgBox Format (DateEx, "hh:nn:ss") 'Resultaat is: 18:05:07MsgBox Format (DateEx, "h:n:s AM/PM") 'Resultaat is: 18:5:7 PMMsgBox Format(DateEx, "h") 'Resultaat is: 18MsgBox Format(DateEx, "hh") 'Resultaat is: 18MsgBox Format (DateEx, "h:n") 'Resultaat is: 18:5'MsgBox Format (DateEx, "hh:nn") 'Resultaat is: 18:05'MsgBox Format (DateEx, "hh:nn:s") 'Resultaat is: 18:05:7MsgBox Format (DateEx, "hh:nn:ss") 'Resultaat is: 18:05:07MsgBox-indeling (DateEx, "\T\i\m\e\ \i\s\:\ hh:nn:ss")'Resultaat is: Tijd is: 18:05:07'Einde sub |