Was ist die VBA DateValue-Funktion?
Eine DateValue-Funktion ist eine in Excel VBA integrierte Funktion unter der Kategorie Datums- / Zeitfunktion. Es funktioniert sowohl als VBA-Funktion als auch als Arbeitsblattfunktion in VBA. Diese Funktion gibt die Seriennummer oder den Wert von Date zurück, die im Zeichenfolgendarstellungsformat angegeben sind, wobei die von der Datumszeichenfolge bereitgestellten Zeitinformationen ignoriert werden. Es wird in Excel auf zwei verschiedene Arten verwendet. Diese Funktion wird als Arbeitsblattformel verwendet, die in eine Arbeitsblattzelle eingegeben wird. Es wird als Makrocode in der VBA-Anwendung verwendet und über den mit Microsoft Excel verknüpften Visual Basic-Editor eingegeben.
In diesem Artikel lernen wir Beispiele für VBA DATEVALUE und wie man es mit einer klaren Erklärung verwendet.
Erläuterung der VBA-Datumswertfunktion
In VBA verwendet DATEVALUE die folgende Syntax.
Diese Funktion verwendet nur das einzelne Argument oder den einzelnen Parameter
- Datum : Dies ist das Datum, das im Zeichenfolgenformat dargestellt wird
- Rückgabe : Diese Funktion gibt den Wert des Datums zurück, an dem sie als VBA-Funktion verwendet wird. Es gibt den Datumswert zurück, wenn es als Arbeitsblattfunktion verwendet wird
Die VBA DateValue-Funktion kann Daten interpretieren, die im Textformat dargestellt werden, das in einem gültigen Excel-Format angegeben ist. Der Datumswert kann nicht zurückgegeben werden, wenn die Zeichenfolge die Textdarstellung des Wochentags enthält.
Die Vorteile der VBA DateValue-Funktion bestehen darin, den Datumswert aus der Zeichenfolge zu extrahieren und das Datum mit der Uhrzeit in das einzige Datum zu konvertieren. Wir können einfach sagen, dass, wenn ein Datum mit der Zeit angegeben wird, diese Funktion nur einen Datumswert enthält, wobei der Zeitwert vermieden wird.
Wie verwende ich Excel VBA DATEVALUE?
Um die DateValue-Funktion in Excel verwenden zu können, muss zuerst der VBA-Editor geöffnet werden.
Die Befehlsschaltfläche muss im Excel-Arbeitsblatt platziert werden, um die Zeilen des VBA-Programms hinzuzufügen. Um die Programmzeilen zu implementieren, muss der Benutzer auf die Befehlsschaltfläche in der Excel-Tabelle klicken. Um eine gültige Ausgabe des Programms zu erhalten, wird eine gültige Eingabe über das Argument angegeben. Der folgende Code hilft beispielsweise beim Erstellen eines Makros zum Ausführen der DateValue-Funktion, um den Datumswert aus dem Text in VBA zu extrahieren.
VBA-Programm:
Sub Datebutton () Dim myDate As Date myDate = DateValue ("15. August 1991") MsgBox Date (myDate) End Sub
Dieser Code ergibt das Datum 15 aus der angegebenen Eingabe.
Beispiele für Excel VBA DATEVALUE
Unten finden Sie Beispiele für DateValue in Excel VBA.
Beispiel 1 - Ermitteln Sie Tag, Monat und Jahr von einem Datum
Es werden nur wenige Schritte ausgeführt, um das Programm in VBA zu erstellen und auszuführen. Dazu gehören
Schritt 1: Gehen Sie zur Registerkarte "Entwickler", platzieren Sie den Cursor auf einer Zelle in der Excel-Tabelle, klicken Sie auf die Option "Einfügen" und wählen Sie "Befehlsschaltfläche" unter ActiveX Control, wie in der Abbildung gezeigt.
Ziehen Sie die Schaltfläche an die gewünschte Stelle und geben Sie die Beschriftung als Datumsschaltfläche aus dem Eigenschaftenfenster ein.
Schritt 2: Doppelklicken Sie auf die Schaltfläche. Es wird zum VBA-Projekt umgeleitet und der Code zwischen der Befehlsschaltfläche Private Sub und dem End Sub geschrieben.
Der Code sollte wie folgt entwickelt werden, um Datum, Monat und Jahr zu erhalten.
Code:
Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("April 19,2019") MsgBox Date MsgBox Year (Exampledate) MsgBox Month (Exampledate) End Sub
In diesem Code ist Datebutton1_Click () der Name und das Beispieldatum sind variabel mit dem Datentyp Datum und Msgbox, um die Ausgabe anzuzeigen.
Schritt 3: Während der Codeentwicklung treten Fehlanpassungsfehler vom Typ VBA auf, die behoben werden müssen.
Schritt 4: Führen Sie in diesem Schritt das Programm aus, indem Sie auf die Ausführungsoption klicken.
Oder wir können das Programm Schritt für Schritt überprüfen oder debuggen, indem wir im Menü Debug die Option Schritt in auswählen. Wenn unser Code fehlerfrei ist, wird die Ausgabe angezeigt.
Schritt 5 : Wenn das Programm ausgeführt wird, wird zuerst das Meldungsfeld mit dem in der Texteingabe angegebenen Datum angezeigt. Klicken Sie anschließend auf OK, um den Jahreswert erneut anzuzeigen. Klicken Sie im Meldungsfeld auf OK, um den Monatswert anzuzeigen.
Beispiel 2 - Verwenden des DateParts zum Abrufen der verschiedenen Teile des Datums
Schritt 1: Gehen Sie zur Registerkarte "Excel-Entwickler", platzieren Sie den Cursor auf einer Zelle in der Excel-Tabelle, klicken Sie auf die Option "Einfügen" und wählen Sie unter "ActiveX-Steuerung" die Option "Befehlsschaltfläche" (siehe Abbildung).
Schritt 2: Ziehen Sie die Schaltfläche und geben Sie die Beschriftung als DatePart unter Eigenschaften ein.
Doppelklicken Sie auf diese Schaltfläche. Es verweist auf das Visual Basic-Editorblatt und wird wie folgt angezeigt.
Schritt 3: Entwickeln Sie den Code mit dem DatePart mit DateValue, wie in der Abbildung gezeigt.
Code:
Private Sub Datepart1_Click () Dim partdate As Variant partdate = DateValue ("15.08.1991") MsgBox partdate MsgBox Datepart ("jjjj", partdate) MsgBox Datepart ("dd", partdate) MsgBox Datepart ("mm", partdate) MsgBox Datepart ("q", partdate) End Sub
In diesem Programm ist DatePart1 der Makroname und partDate der Argumentname mit dem Datentyp 'variante'. Für die Anzeige von Jahr, Datum, Monat und einem Quartal wird das Format als "JJJJ", "TT", "M" und "Q" angewendet. Wenn wir im Format einen Fehler machen, wird der folgende Fehler angezeigt.
Schritt 4: Führen Sie das Programm nach erfolgreichem Debuggen des Programms aus, indem Sie auf die Schaltfläche Ausführen klicken, um die Excel-Tastenkombination F5 zu verwenden.
Der Code zeigt zuerst das vollständige Datum an und zeigt dann nach dem Klicken auf jedes OK in der Nachrichtenbox den Jahreswert nach diesem Datumswert, Monatswert bzw. Quartalswert an.
Dinge, die Sie über den VBA-DATENWERT beachten sollten
Die folgenden Dinge müssen bei der Verwendung der DateValue-Funktion in Excel VBA beachtet werden
- Der Laufzeitfehler 13 mit der Meldung Typ Nicht übereinstimmend wird angezeigt, wenn das für die DateValue-Funktion angegebene Datum nicht in ein gültiges Datum konvertiert werden kann. Wir brauchen Datum ist ein richtiges Textformat
- Wenn wir versuchen, das einzige Datum aus dem Zeichenfolgenargument mit dem Code 'msgbox date (Argumentname)' abzurufen, wird der Typkonfliktfehler angezeigt.
- Wir können die Ausgabe der DateValue-Funktion sehen, ohne den VBA-Editor zu öffnen. Klicken Sie dazu auf die Befehlsschaltfläche und wählen Sie das für das jeweilige Programm erstellte Makro aus.
- Wenn DatePart zum Abrufen der Werte verwendet wird, sollte das entsprechende Format eingehalten werden. Andernfalls führt es zu 'Laufzeitfehler 5' mit einem ungültigen Prozeduraufruf oder Argument.
