In diesem Artikel erstellen wir ein Makro, um die Uhrzeit im Format hh:mm.sss zu formatieren.
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.
Logikerklä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 Bruchteil für definierte Sekunden zu erhalten, und dann mit Tausend multipliziert, um die dreistellige Zahl zu erhalten.
Die Funktion „HHMMSSSFormat“ kann verwendet werden, indem Sie entweder direkt in der Excel-Tabelle aufrufen oder die Funktion innerhalb der anderen Prozedur (oder des Makros) verwenden.
Das Bild unten zeigt, wie wir die Funktion „HHMMSSSFormat“ in der Excel-Tabelle verwendet haben, um die Uhrzeit im Format hh:mm.sss abzuleiten.
Außerdem haben wir ein Makro „GettingCurrentTimeinHHMMSSSFormat“ erstellt, das die Funktion „HHMMSSSFormat“ verwendet, um die aktuelle Uhrzeit im Format hh:mm.sss in einer Messagebox anzuzeigen. Das Bild unten zeigt die Ausgabe, wenn wir dieses Makro bei 3:54:30s ausführen.
Bitte folgen Sie unten für den Code
Option Explizite Funktion HHMMSSSFormat(DateTime As Date) As String 'Funktion gibt String-Wert zurück 'Integer-Variable deklarieren Dim SecondValue As Integer 'Sekunden aus DateTime-Parameter extrahieren SecondValue = Second(DateTime) 'Sekundenwert in dreistellige Zahl umwandeln SecondValue = (SecondValue / 60) * 1000 'Ändern Sie die Formatierung der Uhrzeit in das gewünschte Format HHMMSSSFormat = Format(Hour(DateTime), "00") & ":" & _ Format(Minute(DateTime), "00") & "." & Format(SecondValue, "000") End Function Sub GettingCurrentTimeinHHMMSSSFormat() 'Stringvariable Dim CurrentTime As String deklarieren 'Benutzerdefinierte Funktion aufrufen HHMMSSSFormat CurrentTime = HHMMSSSFormat(Now) 'Nachrichtenbox nur mit Ok-Taste anzeigen MsgBox CurrentTime, vbOKOnly, "Current Time " End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site