VBA CDATE-Funktion

CDATE-Funktion in VBA

VBA CDATE ist eine Datentypkonvertierungsfunktion, die einen Datentyp, der entweder Text oder Zeichenfolge ist, in einen Datumsdatentyp konvertiert. Sobald der Wert in den Datumsdatentyp konvertiert wurde, können wir mit Datumsangaben herumspielen.

Syntax von CDATE

Unten finden Sie die Syntax der CDATE-Funktion in VBA.

Ausdruck: Der Ausdruck kann eine Zeichenfolge oder ein Textwert oder eine Variable sein, die einen Wert enthält, der in den Datumsdatentyp konvertiert werden soll.

CDATE identifiziert das Datums- und Uhrzeitformat auf dem Computer, an dem wir arbeiten, und konvertiert den angegebenen Wert in denselben Datumsdatentyp. Wenn Sie nur Tag und Monat angeben und das Jahr ignorieren, übernimmt die CDATE-Funktion das Systemjahr und wird zusammen mit dem angegebenen Tag und Monat angezeigt.

Wir werden im folgenden Abschnitt immer mehr Beispiele sehen.

Wie verwende ich die CDATE-Funktion in Excel VBA?

Beispiele für die CDATE-Funktion in Excel VBA.

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

Beispiel 1

Bevor ich Ihnen das Beispiel von CDATE zeige, schauen Sie sich zuerst den folgenden Code an.

Code:

 Sub CDATE_Example1 () Dim k As String k = "25-12" MsgBox k End Sub

Oben für die Variable "k" habe ich den Wert "25-12" zugewiesen. Wenn ich diesen Code ausführe, wird der gleiche Wert im Meldungsfeld in VBA angezeigt.

Dies kann jedoch mithilfe der VBA CDATE-Funktion auf den neuesten Stand gebracht werden. Definieren Sie dazu eine weitere Variable als Datum.

Code:

 Dim k1 As Date

Weisen Sie für diese Variable "k1" die CDATE-Funktion zu und geben Sie die Variable "k" an, die die Zeichenfolge "25-12" enthält. Zeigen Sie für das Meldungsfeld den Variablenwert "k1" anstelle von "k" an.

Code:

k1 = CDate (k)

Führen Sie nun den Code aus und sehen Sie das Ergebnis in einem Meldungsfeld.

Das Ergebnis ist also „25.12.2019“.

Schauen Sie sich den Wert, den wir geliefert haben, genau an. Wir haben „25-12“ geliefert, die wir seit einem Jahr nicht geliefert haben.

Während ich diesen Artikel schrieb, war das aktuelle Jahr in meinem System 2019, daher konvertierte VBA CDATE den Zeichenfolgenwert "25-12" auf das Datum und fügte das Systemjahr 2019 hinzu. Die endgültigen Ergebnisse lauten also wie folgt: 25.12.2019, dh 25. Dezember 2019.

Beispiel 2

Schauen Sie sich nun den folgenden Code an.

Code:

 Sub CDATE_Example2 () Dim k als Variante Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub

Im obigen Code für die Variable "k" habe ich die Nummer "43889" angewendet. Wir alle wissen, dass dies eine Seriennummer ist, aber für eine andere Variable „KResult“ haben wir diesen Wert mithilfe der Funktion „CDATE“ auf den neuesten Stand gebracht.

Das gleiche Ergebnis der Variablen "kResult" wird im Meldungsfeld angezeigt.

Führen Sie den Code aus und sehen Sie die Magie der Funktion „CDATE“.

Das Ergebnis wird als „28.02.2020“ angezeigt. Wenn Sie mit Excel-Daten nicht vertraut sind, müssen Sie sich fragen, wie dies geschehen ist.

Geben Sie beispielsweise dieselbe Nummer (43889) in eine der Zellen in der Tabelle ein.

Wenden Sie dazu das Format „TT-MM-JJJJ“ an.

Klicken Sie nun auf OK und sehen Sie das Ergebnis.

Jetzt hat sich das Ergebnis von einer Seriennummer auf das Datum geändert. Da wir das Datumsformat über der Seriennummer angewendet haben, wird das entsprechende Datum angezeigt.

Dies bedeutet, dass die Seriennummer 43889 dem Datum 28-02-2020 entspricht.

In unserem VBA-Code hat die CDATE-Funktion dasselbe ausgeführt, indem sie den Zeichenfolgenwert in einen Datumsdatentyp konvertiert hat.

Beispiel 3

Schauen Sie sich für dieses Beispiel den folgenden Code an.

 Sub CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "24. Dezember 2019" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Wert1) MsgBox CDate (Value2) MsgBox CDate ( Wert3) End Sub

Wenn wir diesen Code ausführen, erhalten wir die folgenden Ergebnisse.

Daher werden alle Werte mit der CDATE-Funktion in den Datumsdatentyp konvertiert.

Dinge, an die man sich erinnern sollte

  • CDATE konvertiert nur Zahlen und Zeichenfolgenwerte in den Datumsdatentyp.
  • Dies ist nützlich, wenn wir es mit anderen Funktionen verwenden.
  • Wenn der falsche Datentypwert angegeben wird, wird ein Typkonfliktfehler angezeigt.
  • Da Datum und Uhrzeit Teil der Seriennummer sind, werden sowohl die Uhrzeit als auch die korrekte Uhrzeit umgerechnet.