I den här artikeln kommer vi att skapa ett makro för att formatera tiden i hh: mm.sss -format.
Rådata för detta exempel består av vissa tidsvärden i kolumn E.
I den här artikeln har vi skapat en användardefinierad funktion (eller anpassad funktion) "HHMMSSSFormat". Denna funktion tar datatyp som inmatning och returnerar utdata i strängdatatyp i formatet hh: mm.sss.
Logisk förklaring
I funktionen "HHMMSSSFormat" för att konvertera 60 sekunder till ett tresiffrigt tal har vi delat sekunder i det definierade tidsvärdet med 60 för att få bråkdel för definierade sekunder och sedan multiplicerat med tusen för att få det tresiffriga talet.
"HHMMSSSFormat" -funktionen kan användas genom att ringa antingen direkt i Excel -arket eller genom att använda funktionen inuti den andra proceduren (eller makrot).
Bilden nedan visar hur vi har använt funktionen "HHMMSSSFormat" i Excel -arket för att härleda tiden i hh: mm.sss -format.
Vi har också skapat ett "GettingCurrentTimeinHHMMSSSFormat" -makro som använder funktionen "HHMMSSSFormat" för att visa aktuell tid i hh: mm.sss -format i en meddelanderuta. Bilden nedan visar resultatet när vi kör detta makro vid 3: 54: 30s.
Följ koden nedan
Alternativ Explicit Function HHMMSSSFormat (DateTime As Date) As String 'function will return string value' Declaring integer variable Vari SecondValue As Integer 'Extracting seconds from DateTime parameter SecondValue = Second (DateTime)' Converting second value to three digit number SecondValue = (SecondValue / (SecondValue / 60) * 1000 'Ändra tidens formatering i önskat format HHMMSSSFormat = Format (Hour (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 "Avsluta sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen