I denne artikel vil vi oprette en makro til at formatere tiden i hh: mm.sss -format.
Rådata for dette eksempel består af visse tidsværdier i kolonne E.
I denne artikel har vi oprettet en brugerdefineret funktion (eller brugerdefineret funktion) "HHMMSSSFormat". Denne funktion tager datotype som input og returnerer output i strengdatatype i formatet hh: mm.sss.
Logisk forklaring
I funktionen "HHMMSSSFormat" til at konvertere 60 sekunder til et trecifret tal, har vi delt sekunder i den definerede tidsværdi med 60 for at få brøkdel i definerede sekunder og derefter ganget det med tusind for at få det trecifrede tal.
“HHMMSSSFormat” -funktionen kan bruges ved at ringe enten direkte i Excel -arket eller ved at bruge funktionen inde i den anden procedure (eller makro).
Billedet herunder viser, hvordan vi har brugt “HHMMSSSFormat” -funktionen i Excel -arket til at udlede tiden i hh: mm.sss -format.
Vi har også oprettet en "GettingCurrentTimeinHHMMSSSFormat" -makro, der bruger funktionen "HHMMSSSFormat" til at vise den aktuelle tid i hh: mm.sss -format i en meddelelsesboks. Billedet herunder viser output, når vi kører denne makro på 3: 54: 30s.
Følg venligst nedenstående for koden
Option Eksplicit funktion HHMMSSSFormat (DateTime As Date) As String '-funktionen returnerer strengværdi' Declaring integer variable Dim SecondValue As Integer 'Extracting seconds from DateTime parameter SecondValue = Second (DateTime)' Converting seconds value to three digit number SecondValue = (SecondValue / 60) * 1000 'Skift tidens formatering i det nødvendige format 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 message box with Ok button only MsgBox CurrentTime, "vbOK "Afslut Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet