Der Zeitwert in VBA ist eine integrierte Funktion, die auch in VBA unter der Datums- und Uhrzeitfunktion kategorisiert ist. Diese Funktion gibt, wie der Name schon sagt, den numerischen Wert des als Argument angegebenen Datums an. Es wird ein einzelnes Argument verwendet, nämlich Datum und Uhrzeit Gibt den numerischen Wert aus dem Argument zurück.
Was macht die Zeitwertfunktion in VBA?
Die Zeitwertfunktion in VBA Excel gibt den Zeitwertanteil vom vollständigen Datum und der Uhrzeit zurück. Datum und Uhrzeit werden in Excel als Seriennummern gespeichert. Die Seriennummer steht für das DATUM und die Dezimalzahl für die Uhrzeit. Mit der TimeValue-Funktion können wir nur die Zeitseriennummer, dh die Dezimalzahl, abrufen.
Syntax der VBA TimeValue-Funktion
Die Syntax der VBA TimeValue-Funktion lautet wie folgt.
Wie bereits erwähnt, gibt die TimeValue-Funktion den Seriennummer-Teil des angegebenen Datums zurück, der als Textwert gespeichert wird. Die Zeit ist nichts anderes als die tatsächliche Zeit, zu der wir nach der Seriennummer suchen. Merken Zeitwert kann nur die Seriennummer aus der Zeit abrufen, die als Text gespeichert ist, nicht als ZEIT.
Beispiele für die TimeValue-Funktion mit Excel VBA
Nachfolgend finden Sie Beispiele für die VBA TimeValue-Funktion.
Sie können diese VBA TimeValue-Funktionsvorlage hier herunterladen - VBA TimeValue-FunktionsvorlageVBA TimeValue Beispiel # 1
Schauen Sie sich nun das einfache Beispiel der VBA TimeValue-Funktion an.
Code:
Sub TIMEVALUE_Function_Example1 () 'Konvertiert die angegebene Eingabezeichenfolge in eine gültige Zeit und zeigt sie auf dem Bildschirm an.' Variablendeklaration Dim MyTime As Date 'Weisen Sie einer Variablen MyTime = TimeValue Zeit zu ("28-05-2019 16:50:45")' Anzeige der Ausgabe auf dem Bildschirm MsgBox "Aktuelle Zeit ist:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub 
Als erstes habe ich die Variable "MyTime" als Datum deklariert .
Dim MyTime As Date
Dann habe ich der Variablen den Wert zugewiesen, indem ich TimeValue angewendet habe.
MyTime = TimeValue ("28-05-2019 16:50:45")Dann habe ich im Meldungsfeld das variable Ergebnis zugewiesen.
MsgBox "Gelieferte Zeit ist:" & MyTime, vbInformation, "TIMEVALUE Function".
Wenn ich den Code mit der Taste F5 oder manuell ausführe, erhalten wir das Ergebnis wie folgt.
VBA TimeValue Beispiel # 2
Für den gleichen Code werde ich die VBA-Variable als "Double" deklarieren.
Code:
Sub TIMEVALUE_Function_Example1 () 'Konvertiert die angegebene Eingabezeichenfolge in eine gültige Zeit und zeigt sie auf dem Bildschirm an.' Variablendeklaration Dim MyTime As Double 'Weisen Sie einer Variablen MyTime = TimeValue Zeit zu ("28-05-2019 16:50:45")' Anzeige der Ausgabe auf dem Bildschirm MsgBox "Aktuelle Zeit ist:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub 
Wenn ich nun den VBA-Code manuell oder durch Drücken der Taste F5 ausführe, wird die Seriennummer zeitweise 16:50:45 angezeigt.
Zum besseren Verständnis werde ich zuerst die im VBA-Meldungsfeld angegebenen Nummern in eine der Zellen eingeben.
Jetzt werde ich das Zeitformat anwenden, um das genaue Ergebnis zu überprüfen.
Wenn Sie es in ein Zeitformat konvertieren, können Sie die genaue Zeit sehen.
VBA TimeValue Beispiel # 3
Schauen Sie sich nun die folgenden Daten an.
Wir haben Daten und Zeit zusammen von A1 bis A14 Zellen. Für die zweite Spalte müssen wir nur den Zeitwert extrahieren. Da wir mehr als eine Zelle haben, müssen wir Schleifen verwenden, um die gleichen Aufgaben für alle Zellen auszuführen.
Wir haben Daten von der 1. bis zur 14. Zelle, daher sollte unsere Schleife 14 Mal ausgeführt werden. Wir müssen die FOR NEXT-Schleife in VBA verwenden, um die Untergrenze und die Obergrenze zu erwähnen. Der folgende Code ist der bereits geschriebene Code zum Extrahieren des Zeitwerts aus der Kombination aus Datum und Uhrzeit.
Code:
Sub TimeValue_Example3 () Dim k As Integer Für k = 1 bis 14 Zellen (k, 2) .Value = TimeValue (Zellen (k, 1) .Value) Next k End Sub
Wenn wir den Code ausführen, erhalten wir die folgenden Werte.
Wenn Sie die Uhrzeit anzeigen möchten, wenden Sie das TIME-Format darauf an.
So funktioniert die Funktion TIME VALUE in VBA und Excel.
