Qu'est-ce que la fonction VBA DateValue?
Une fonction DateValue est une fonction intégrée dans Excel VBA sous la catégorie Fonction Date / heure. Il fonctionne à la fois comme fonction VBA et fonction de feuille de calcul dans VBA. Cette fonction renvoie le numéro de série ou la valeur de Date fournie dans le format de représentation sous forme de chaîne en ignorant les informations d'heure fournies par la chaîne Date. Il est utilisé de deux manières différentes dans Excel. Cette fonction est utilisée comme une formule de feuille de calcul entrant dans une cellule de feuille de calcul. Il est utilisé comme code de macro dans l'application VBA, en le saisissant via Visual Basic Editor associé à Microsoft Excel.
Dans cet article, nous allons apprendre des exemples de VBA DATEVALUE et comment l'utiliser avec une explication claire.
Explication de la fonction de valeur de date VBA
Dans VBA, DATEVALUE utilise la syntaxe suivante.
Cette fonction utilise uniquement le seul argument ou paramètre
- Date : il s'agit de la date représentée au format chaîne
- Renvoie: Cette fonction renvoie la valeur de la date lorsqu'elle est utilisée comme fonction VBA. Il renvoie la valeur de la date lorsqu'il est utilisé comme fonction de feuille de calcul
La fonction VBA DateValue est capable d'interpréter les données représentées au format texte qui est mentionné dans un format Excel valide. Il n'est pas en mesure de renvoyer la valeur de date si la chaîne comprenait la représentation textuelle du jour de la semaine.
Les avantages de la fonction VBA DateValue sont l'extraction de la valeur de date de la chaîne et la conversion de la date avec l'heure en date unique. On peut simplement que lorsqu'une date est donnée avec l'heure, cette fonction n'a qu'une valeur de date en évitant la valeur d'heure.
Comment utiliser Excel VBA DATEVALUE?
Pour utiliser la fonction DateValue dans Excel, vous devez d'abord ouvrir l'éditeur VBA.
Le bouton de commande doit être placé dans la feuille de calcul Excel pour y ajouter les lignes du programme VBA. Pour implémenter les lignes du programme, l'utilisateur doit cliquer sur le bouton de commande dans la feuille Excel. Pour avoir une sortie valide du programme, une entrée valide est donnée via l'argument. Par exemple, le code suivant facilite la création d'une macro pour exécuter la fonction DateValue pour extraire la valeur de date du texte dans VBA.
Programme VBA:
Sub Datebutton () Dim myDate As Date myDate = DateValue («August 15, 1991») MsgBox Date (myDate) End Sub
Ce code donne la date à 15 à partir de l'entrée donnée.
Exemples d'Excel VBA DATEVALUE
Voici les exemples de DateValue dans Excel VBA.
Exemple # 1 - Obtenir le jour, le mois et l'année à partir d'une date
Quelques étapes sont suivies pour créer et exécuter le programme en VBA. Ceux-ci incluent
Étape 1: Accédez à l'onglet Développeur, placez le curseur sur une cellule de la feuille Excel et cliquez sur l'option `` Insérer '' et choisissez `` Bouton de commande '' sous Contrôle ActiveX, comme indiqué sur la figure.
Faites glisser le bouton où vous voulez et donnez la légende comme datebutton dans la fenêtre des propriétés
Étape 2: Double-cliquez sur le bouton; il redirigera vers le projet VBA et écrira le code entre le bouton de sous-commande privée et le sous-marin final.
Le code doit être développé comme ci-dessous pour obtenir une date, un mois et une année.
Code:
Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("Avril 19,2019") MsgBox Date MsgBox Année (Exampledate) MsgBox Month (Exampledate) End Sub
Dans ce code, Datebutton1_Click () est le nom et la date d'exemple est variable avec le type de données Date et Msgbox pour afficher la sortie.
Étape 3: Lors du développement du code, des erreurs d'incompatibilité de type VBA se produiront et doivent être prises en charge.
Étape 4: Dans cette étape, exécutez le programme en cliquant sur l'option d'exécution.
Ou nous pouvons vérifier ou déboguer le programme étape par étape, en sélectionnant l'option Pas à pas dans le menu Déboguer. Si notre code est sans aucune erreur, il affiche la sortie.
Étape 5 : Lorsque le programme est exécuté, il affiche d'abord la boîte de message avec la date indiquée dans la saisie de texte. Ensuite, cliquez sur OK pour voir à nouveau la valeur de l'année, cliquez sur OK dans la boîte de message pour voir la valeur du mois.
Exemple # 2 - Utilisation de la DatePart pour obtenir les différentes parties de la date
Étape 1: Accédez à l'onglet Développeur Excel, placez le curseur sur une cellule de la feuille Excel et cliquez sur l'option `` Insérer '' et choisissez `` Bouton de commande '' sous Contrôle ActiveX, comme indiqué sur la figure.
Étape 2: Faites glisser le bouton et donnez la légende comme DatePart sous les propriétés.
Double-cliquez sur ce bouton. Il dirige vers la feuille Visual Basic Editor et s'affiche comme suit.
Step 3: Develop the code using the DatePart with DateValue, as shown in the figure.
Code:
Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub
In this program, DatePart1 is the macro name, and partDate is the argument name with data type ‘variant.’ For displaying year, date, month, and a quarter, the format is applied as “yyyy,” “d,” “m,” and “q.” If we make any mistake in the format, it displays the following error.
Step 4: After successful debugging of the program, run the program by clicking on the run button to use excel shortcut key F5.
The code first displays the full date, and 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 a 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.
- Lorsque DatePart est utilisé pour obtenir les valeurs, le format approprié doit être suivi. Sinon, cela entraîne une erreur d'exécution 5 avec un appel de procédure ou un argument non valide.
