V tomto článku vytvoříme makro pro formátování času ve formátu hh: mm.sss.
Nezpracovaná data pro tento příklad se skládají z určitých časových hodnot ve sloupci E.
V tomto článku jsme vytvořili uživatelem definovanou funkci (nebo vlastní funkci) „HHMMSSSFormat“. Tato funkce bere jako vstup typ data a vrací výstup v řetězcovém datovém typu ve formátu hh: mm.sss.
Logické vysvětlení
Ve funkci „HHMMSSSFormat“ pro převod 60 sekund na trojciferné číslo jsme v definované časové hodnotě dělili sekundy na 60, abychom získali zlomek za definované sekundy, a poté jej vynásobili tisíci, abychom získali trojciferné číslo.
Funkci „HHMMSSSFormat“ lze použít voláním buď přímo v listu aplikace Excel, nebo pomocí funkce uvnitř jiné procedury (nebo makra).
Následující obrázek ukazuje, jak jsme použili funkci „HHMMSSSFormat“ v listu aplikace Excel k odvození času ve formátu hh: mm.sss.
Vytvořili jsme také makro „GettingCurrentTimeinHHMMSSSFormat“, které pomocí funkce „HHMMSSSFormat“ zobrazuje aktuální čas ve formátu hh: mm.sss v okně zprávy. Následující obrázek ukazuje výstup, když toto makro spustíme v 3: 54: 30 s.
Pro kód prosím postupujte níže
Možnost Explicitní funkce HHMMSSSFormat (DateTime As Date) As String 'funkce vrátí hodnotu řetězce' Deklarace celočíselné proměnné Dim SecondValue As Integer 'Extrahování sekund z parametru DateTime SecondValue = Second (DateTime)' Převod sekundové hodnoty na třímístné číslo SecondValue = (SecondValue / 60) * 1000 'Změňte formátování času v požadovaném formátu HHMMSSSFormat = Format (Hour (DateTime), "00") & ":" & _ Format (Minute (DateTime), "00") & "." & Format (SecondValue, "000") Koncová funkce Sub GettingCurrentTimeinHHMMSSSFormat () 'Deklarace proměnné řetězce Dim CurrentTime jako řetězec' Volání vlastní funkce HHMMSSSFormat CurrentTime = HHMMSSSFormat (Nyní) 'Zobrazení okna zprávy pouze tlačítkem Ok MsgBox CurrentTime, vbOK „Konec Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail
