I denne artikkelen vil vi lage en makro for å formatere tiden i hh: mm.sss -format.
Rådata for dette eksemplet består av visse tidsverdier i kolonne E.
I denne artikkelen har vi opprettet en brukerdefinert funksjon (eller tilpasset funksjon) "HHMMSSSFormat". Denne funksjonen tar datotype som input og returnerer output i strengdatatype i formatet hh: mm.sss.
Logisk forklaring
I “HHMMSSSFormat” -funksjonen for å konvertere 60 sekunder til et tresifret tall, har vi delt sekunder i den definerte tidsverdien med 60 for å få brøkdel i definerte sekunder og deretter multiplisert det med tusen for å få det tresifrede tallet.
“HHMMSSSFormat” -funksjonen kan brukes ved å ringe enten direkte i Excel -arket eller ved å bruke funksjonen inne i den andre prosedyren (eller makroen).
Bildet nedenfor viser hvordan vi har brukt “HHMMSSSFormat” -funksjonen i Excel -arket for å avlede tiden i hh: mm.sss -format.
Vi har også opprettet en “GettingCurrentTimeinHHMMSSSFormat” -makro som bruker “HHMMSSSFormat” -funksjonen for å vise gjeldende tid i hh: mm.sss -format i en meldingsboks. Bildet nedenfor viser utgangen når vi kjører denne makroen på 3: 54: 30s.
Følg koden nedenfor
Alternativ Eksplisitt funksjon HHMMSSSFormat (DateTime As Date) As String '-funksjonen vil returnere strengverdi' Declaring integer variable Vari SecondValue As Integer 'Extracting seconds from DateTime parameter SecondValue = Second (DateTime)' Converting second value to three digit number SecondValue = (SecondValue / 60) * 1000 'Endre tidens formatering i det nødvendige formatet HHMMSSSFormat = Format (Time (DateTime), "00") & ":" & _ Format (Minute (DateTime), "00") & "." & Format (SecondValue, "000") End Function Sub GettingCurrentTimeinHHMMSSSFormat () 'Declaring string variable Dim CurrentTime As String' Calling custom function HHMMSSSFormat CurrentTime = HHMMSSSFormat (Now) 'Displaying box box with Ok button only MsgBox CurrentTime, "VbOK "Slutt Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post
