V tem članku bomo ustvarili makro za oblikovanje časa v obliki hh: mm.sss.
Neobdelani podatki za ta primer so sestavljeni iz določenih časovnih vrednosti v stolpcu E.
V tem članku smo ustvarili uporabniško definirano funkcijo (ali funkcijo po meri) »HHMMSSSFormat«. Ta funkcija vzame vrsto datuma kot vhod in vrne izhod v podatkovnem tipu niza v obliki hh: mm.sss.
Logična razlaga
V funkciji »HHMMSSSFormat« za pretvorbo 60 sekund v trimestno število smo sekunde v definirani vrednosti časa razdelili na 60, da dobimo ulomek za določene sekunde, nato pa ga pomnožimo s tisoč, da dobimo trimestno število.
Funkcijo »HHMMSSSFormat« lahko uporabite tako, da pokličete neposredno na Excelovem listu ali pa uporabite funkcijo znotraj drugega postopka (ali makra).
Spodnja slika prikazuje, kako smo v Excelovem listu uporabili funkcijo »HHMMSSSFormat« za izvajanje časa v formatu hh: mm.sss.
Ustvarili smo tudi makro »GettingCurrentTimeinHHMMSSSFormat«, ki uporablja funkcijo »HHMMSSSFormat« za prikaz trenutnega časa v obliki hh: mm.sss v polju za sporočila. Spodnja slika prikazuje izhod, ko ta makro zaženemo ob 3: 54: 30s.
Za kodo sledite spodaj
Možnost Eksplicitna funkcija HHMMSSSFormat (DateTime As Date) As String "funkcija vrne vrednost niza" Razglasitev celoštevilske spremenljivke Dim SecondValue As Integer "Izvlečenje sekund iz parametra DateTime SecondValue = Second (DateTime)" Pretvorba sekundne vrednosti v trimestno število SecondValue = (SecondValue / 60) * 1000 'Spremeni oblikovanje časa v zahtevani obliki HHMMSSSFormat = Format (Ura (DateTime), "00") & ":" & _ Format (Minuta (DateTime), "00") & ". & Format (SecondValue, "000") End Function Sub GettingCurrentTimeinHHMMSSSFormat () 'Razglasitev spremenljivke niza Dim CurrentTime kot niz' Klicanje funkcije po meri HHMMSSSFormat CurrentTime = HHMMSSSFormat (Zdaj) 'Prikaz okna s sporočilom samo z gumbom OK MsgBok Trenutni čas, v "Konec pod
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte
