Turinys
Ši pamoka parodys, kaip naudoti formatą VBA formatuoti laiką.
Formato funkcija ir laikas
VBA formato laikas naudojant iš anksto nustatytus formatus
VBA formato funkciją galima naudoti norint konvertuoti skaičių į eilutę iš anksto nustatytu formatu. Galimi laiko formatai yra ilgas, vidutinis ir trumpas.
| 1234567891011121314 | Sub FormatTimeExample_1 ()Dim DateEx kaip dataDateEx = 2020-04-18 18:05:07 #„MsgBox“ formato (DateEx, „Ilgas laikas“) rezultatas: 18:05:07„MsgBox“ formato (DateEx, „Vidutinis laikas“) rezultatas: 06:05 PM„MsgBox“ formato (DateEx, „Trumpas laikas“) rezultatas: 18:05DateEx = #2/18/2021 6:05:07 #„MsgBox“ formato (DateEx, „Ilgas laikas“) rezultatas: 6:05:07 AM„MsgBox“ formato (DateEx, „Vidutinis laikas“) rezultatas: 06:05„MsgBox“ formato (DateEx, „Trumpas laikas“) rezultatas: 06:05Pabaiga Sub |
VBA formato laikas naudojant pasirinktinius formatus
VBA formato funkciją galima naudoti norint konvertuoti skaičių į eilutę naudojant pasirinktinius formatus. Simboliai h ir hh naudojami valandoms, n ir nn minutėms, s ir ss sekundėms, ttttt visą laiką pagal sistemos nustatymus ir AM/PM, am/pm, A/P, a/p, AMPM -pm sistema.
| 1234567891011121314151617 | SubformatasTimeExample_2 ()Dim DateEx kaip dataDateEx = 2020-04-18 18:05:07 #„MsgBox“ formatas (DateEx, „hh: nn: ss“) 'Rezultatas: 18:05:07„MsgBox“ formatas (DateEx, „h: n: s AM/PM“) „Rezultatas: 18: 5: 7 PM„MsgBox“ formatas (DateEx, „h“) „Rezultatas: 18„MsgBox“ formatas (DateEx, „hh“) „Rezultatas: 18„MsgBox“ formatas (DateEx, „h: n“) 'Rezultatas: 18: 5„MsgBox“ formatas (DateEx, „hh: nn“) 'Rezultatas: 18:05„MsgBox“ formatas (DateEx, „hh: nn: s“) 'Rezultatas: 18: 05: 7„MsgBox“ formatas (DateEx, „hh: nn: ss“) 'Rezultatas: 18:05:07„MsgBox“ formatas („DateEx“, „\ T \ i \ m \ e \ \ i \ s \: \ hh: nn: ss“)Rezultatas: laikas: 18:05:07Pabaiga Sub |
