Zeigen Sie die Zeit in hh: mm.sss Format VBA
an In diesem Artikel erstellen wir ein Makro zum Formatieren der Zeit im Format hh: mm.sss.
Die Rohdaten für dieses Beispiel bestehen aus bestimmten Zeitwerten in Spalte E.
In diesem Artikel haben wir eine benutzerdefinierte Funktion (oder benutzerdefinierte Funktion) „HHMMSSSFormat“ erstellt. Diese Funktion verwendet den Datumstyp als Eingabe und gibt die Ausgabe im Zeichenfolgendatentyp im Format hh: mm.sss zurück.
Logische Erklärung
In der Funktion „HHMMSSSFormat“ zum Konvertieren von 60 Sekunden in eine dreistellige Zahl haben wir Sekunden im definierten Zeitwert durch 60 geteilt, um einen Bruch für definierte Sekunden zu erhalten, und ihn dann mit Tausend multipliziert, um die dreistellige Zahl zu erhalten.
Die Funktion „HHMMSSSFormat“ kann verwendet werden, indem entweder direkt in der Excel-Tabelle aufgerufen wird oder die Funktion in der anderen Prozedur (oder im Makro) verwendet wird.
Das folgende Bild zeigt, wie wir die Funktion „HHMMSSSFormat“ in der Excel-Tabelle verwendet haben, um die Zeit im Format hh: mm.sss abzuleiten.
Wir haben auch ein Makro „GettingCurrentTimeinHHMMSSSFormat“ erstellt, das die Funktion „HHMMSSSFormat“ verwendet, um die aktuelle Zeit im Format hh: mm.sss in einem Meldungsfeld anzuzeigen. Das Bild unten zeigt die Ausgabe, wenn wir dieses Makro um 3: 54: 30s ausführen.
Bitte folgen Sie unten für den Code
Option Explicit Function HHMMSSSFormat(DateTime As Date) As String 'function will return string value '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 'Change the formatting of time in the required 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 message box with Ok button only MsgBox CurrentTime, vbOKOnly, "Current Time" End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]