V tomto článku vytvoríme makro na formátovanie času vo formáte hh: mm.sss.
Surové údaje pre tento príklad pozostávajú z určitých časových hodnôt v stĺpci E.
V tomto článku sme vytvorili používateľom definovanú funkciu (alebo vlastnú funkciu) „HHMMSSSFormat“. Táto funkcia používa ako vstup typ dátumu a vracia výstup v dátovom type reťazca vo formáte hh: mm.sss.
Logické vysvetlenie
Vo funkcii „HHMMSSSFormat“ na konverziu 60 sekúnd na trojciferné číslo sme rozdelili sekundy v definovanej časovej hodnote na 60, aby sme získali zlomok na definované sekundy, a potom ho vynásobili tisíckami, aby sme získali trojciferné číslo.
Funkciu „HHMMSSSFormat“ je možné použiť buď volaním priamo v hárku programu Excel, alebo použitím funkcie v rámci iného postupu (alebo makra).
Nasledujúci obrázok ukazuje, ako sme na odvodenie času vo formáte hh: mm.sss použili funkciu „HHMMSSSFormat“ v hárku programu Excel.
Tiež sme vytvorili makro „GettingCurrentTimeinHHMMSSSFormat“, ktoré používa funkciu „HHMMSSSFormat“ na zobrazenie aktuálneho času vo formáte hh: mm.sss v poli so správou. Nasledujúci obrázok ukazuje výstup, keď spustíme toto makro o 3: 54: 30 s.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Možnosť Explicitná funkcia HHMMSSSFormat (DateTime As Date) As String “funkcia vráti hodnotu reťazca„ Deklarácia celočíselnej premennej Dim SecondValue As Integer “Extrahovanie sekúnd z parametra DateTime SecondValue = Second (DateTime)„ Konverzia hodnoty sekúnd na trojciferné číslo SecondValue = (SecondValue / 60) * 1000 'Zmeňte formátovanie času v požadovanom formáte HHMMSSSFormat = Format (Hour (DateTime), "00") & ":" & _ Format (Minute (DateTime), "00") & "." & Format (SecondValue, "000") End Function Sub GettingCurrentTimeinHHMMSSSFormat () 'Deklarujúca premenná reťazca Dim CurrentTime ako reťazec' Volanie vlastnej funkcie HHMMSSSFormat CurrentTime = HHMMSSSFormat (teraz) 'Zobrazenie okna správy iba s tlačidlom Ok MsgBox CurrentTime, vbOK „Koniec sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku