Fonction VBA CDATE

Fonction CDATE dans VBA

VBA CDATE est une fonction de conversion de type de données qui convertit un type de données qui est soit du texte soit une chaîne en un type de données de date. Une fois la valeur convertie en type de données de date, nous pouvons jouer avec des éléments de date.

Syntaxe de CDATE

Voici la syntaxe de la fonction CDATE dans VBA.

Expression: l' expression peut être une chaîne ou une valeur de texte ou une variable contenant une valeur à convertir en type de données date.

CDATE identifie le format de date et d'heure de l'ordinateur sur lequel nous travaillons et convertit la valeur fournie dans le même type de données de date. Si vous n'indiquez que le jour et le mois et ignore l'année, la fonction CDATE prend l'année du système, s'affiche avec le jour et le mois fournis.

Nous verrons de plus en plus d'exemples dans la section ci-dessous.

Comment utiliser la fonction CDATE dans Excel VBA?

Exemples de fonction CDATE dans Excel vba.

Vous pouvez télécharger ce modèle Excel VBA CDATE ici - Modèle Excel VBA CDATE

Exemple 1

Avant de vous montrer l'exemple de CDATE, regardez d'abord le code ci-dessous.

Code:

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

Dans ce qui précède pour la variable «k», j'ai attribué la valeur «25-12». Lorsque j'exécute ce code, nous verrons la même valeur dans la boîte de message dans VBA.

Mais cela peut être converti à ce jour en utilisant la fonction VBA CDATE. Pour cela, définissez une autre variable comme Date.

Code:

 Dim k1 comme date

Pour cette variable «k1», attribuez la fonction CDATE et fournissez la variable «k» qui contient la chaîne «25-12». Et pour la boîte de message, affichez la valeur de la variable «k1» au lieu de «k».

Code:

k1 = CDate (k)

Maintenant, exécutez le code et voyez le résultat dans une boîte de message.

Le résultat est donc «25/12/2019».

Regardez attentivement la valeur que nous avons fournie, nous avons fourni le «25-12» que nous n'avons pas fourni l'année.

Lors de l'écriture de cet article, l'année en cours dans mon système était 2019, donc VBA CDATE a converti la valeur de chaîne «25-12» à ce jour et y a ajouté l'année système 2019. Les résultats finaux se lisent donc comme ceci 25/12/2019 soit 25 décembre 2019.

Exemple # 2

Maintenant, regardez le code ci-dessous.

Code:

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

Dans le code ci-dessus pour la variable «k», j'ai appliqué le nombre «43889». Nous savons tous qu'il s'agit d'un numéro de série, mais pour une autre variable «KResult», nous avons converti cette valeur à ce jour en utilisant la fonction «CDATE».

Le même résultat de la variable «kResult» affiché dans la boîte de message.

Exécutez le code et voyez la magie de la fonction «CDATE».

Il affiche le résultat comme "28/02/2020", si vous n'êtes pas familier avec les dates dans Excel, vous devez vous demander comment cela s'est passé.

Par exemple, entrez le même numéro (43889) dans l'une des cellules de la feuille de calcul.

Pour cela, appliquez le format «JJ-MM-AAAA».

Cliquez maintenant sur Ok et voyez le résultat.

Maintenant, le résultat est passé d'un numéro de série à ce jour. Parce que nous avons appliqué le format de date en haut du numéro de série, il a montré la date respective.

Cela signifie donc que le numéro de série 43889 est égal à la date 28-02-2020.

Donc, dans notre code VBA, la fonction CDATE a exécuté la même chose en convertissant la valeur de chaîne en un type de données de date.

Exemple # 3

Pour cet exemple, regardez le code ci-dessous.

 Sub CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "24 décembre 2019" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( Valeur3) End Sub

Lorsque nous exécuterons ce code, nous obtiendrons les résultats ci-dessous.

Ainsi, toutes les valeurs sont converties dans le type de données date avec la fonction CDATE.

Choses à retenir

  • CDATE convertit uniquement les nombres et les valeurs de chaîne en type de données date.
  • Ceci est utile lorsque nous l'utilisons avec d'autres fonctions.
  • Si la mauvaise valeur de type de données est fournie, nous obtiendrons une erreur d'incompatibilité de type.
  • Étant donné que la date et l'heure font partie du numéro de série, il convertit l'heure ainsi que l'heure appropriée.