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.

ArrowSampleData

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.

ArrowCustomFunction

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.

ArrowMacroOutput

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]