U ovom ćemo članku stvoriti makro za oblikovanje vremena u formatu hh: mm.sss.
Sirovi podaci za ovaj primjer sastoje se od određenih vremenskih vrijednosti u stupcu E.
U ovom članku stvorili smo korisnički definiranu funkciju (ili prilagođenu funkciju) “HHMMSSSFormat”. Ova funkcija uzima vrstu datuma kao ulaz i vraća izlaz u nizu podataka u formatu hh: mm.sss.
Logično objašnjenje
U funkciji “HHMMSSSFormat” za pretvaranje 60 sekundi u troznamenkasti broj, podijelili smo sekunde u definiranoj vrijednosti vremena sa 60 da bismo dobili ulomak na definirane sekunde, a zatim je pomnožili s tisuću kako bismo dobili troznamenkasti broj.
Funkcija "HHMMSSSFormat" može se koristiti pozivom izravno na Excel tablici ili pomoću funkcije unutar drugog postupka (ili makronaredbe).
Donja slika prikazuje kako smo koristili funkciju “HHMMSSSFormat” u Excelovom listu za izvođenje vremena u formatu hh: mm.sss.
Također smo stvorili makronaredbu “GettingCurrentTimeinHHMMSSSFormat” koja koristi “HHMMSSSFormat” funkciju za prikaz trenutnog vremena u formatu hh: mm.sss u okviru za poruku. Donja slika prikazuje izlaz kada pokrenemo ovaj makro u 3: 54: 30s.
Molimo slijedite dolje za kôd
Opcija Eksplicitna funkcija HHMMSSSFormat (DateTime As Date) As String 'funkcija će vratiti vrijednost niza' Deklariranje cjelobrojne varijable Dim SecondValue As Integer 'Izdvajanje sekundi iz parametra DateTime SecondValue = Second (DateTime)' Pretvaranje sekundi u troznamenkasti broj SecondValue = (SecondValue / 60) * 1000 'Promijenite oblikovanje vremena u traženom formatu HHMMSSSFormat = Format (Sat (DateTime), "00") & ":" & _ Format (Minute (DateTime), "00") & "." & Format (SecondValue, "000") Završna funkcija Sub GettingCurrentTimeinHHMMSSSFormat () 'Deklariranje varijable niza Dim CurrentTime kao niz' Pozivanje prilagođene funkcije HHMMSSSFormat CurrentTime = HHMMSSSFormat (Sada) 'Prikaz okvira s porukom samo tipkom OK MsgBok Trenutno vrijeme, "Kraj podmornice
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte