VBA DATEVALUE

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, der über den mit Microsoft Excel verknüpften Visual Basic-Editor eingegeben wird.

In diesem Artikel lernen wir Beispiele für VBA DATEVALUE und wie man es mit klarer 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, der den Zeitwert vermeidet.

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 bei der Erstellung 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.

Sie können diese VBA DateValue Excel-Vorlage hier herunterladen - VBA DateValue Excel-Vorlage

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", setzen Sie den Cursor auf eine 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).

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, die zum VBA-Projekt umgeleitet wird, und schreiben Sie den Code zwischen die Befehlsschaltfläche Private Sub und End Sub.

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 Beispiel ist 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.

Hinweis: Diese Schritte müssen klar befolgt werden, um genaue Ergebnisse zu erzielen.

Beispiel 2 - Verwenden des DateParts zum Abrufen der verschiedenen Teile des Datums

Schritt 1: Gehen Sie zur Registerkarte "Excel-Entwickler", setzen Sie den Cursor auf eine 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, um zum Visual Basic-Editor zu gelangen und wie folgt anzuzeigen.

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 und die Excel-Tastenkombination F5 verwenden.

The code first displays the full date then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value respectively.

Things to Remember About the VBA DATEVALUE

The following things must be remembered while using the DateValue function in Excel VBA

  • Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is proper text format
  • When we try to get the only date from the string argument with code ‘msgbox date (argument name)’, it displays the type mismatch error.
  • We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program
  • When DatePart is used to get the values, the appropriate format should be followed. Otherwise, it leads ‘run time error 5’ with message invalid procedure call or argument.