La valeur temporelle dans VBA est une fonction intégrée qui est également classée sous la fonction de date et d'heure dans VBA, cette fonction comme son nom l'indique nous donne la valeur numérique de la date fournie en argument, elle prend un seul argument qui est la date et renvoie la valeur numérique de l'argument.
Que fait la fonction de valeur de temps dans VBA?
La fonction de valeur de temps dans VBA Excel renvoie la partie de valeur de temps à partir de la date et de l'heure complètes. La date et l'heure sont stockées sous forme de numéros de série dans Excel. Le numéro de série représente la DATE et la décimale représente l'heure. En utilisant la fonction TimeValue, nous ne pouvons obtenir que le numéro de série de l'heure, c'est-à-dire le nombre décimal.
Syntaxe de la fonction VBA TimeValue
La syntaxe de la fonction VBA TimeValue comme suit.
Comme nous l'avons dit, la fonction TimeValue renvoie la partie du numéro de série de la date donnée qui est stockée sous forme de valeur de texte. Le temps n'est rien d'autre que l'heure à laquelle nous cherchons à obtenir le numéro de série. Remember Time Value ne peut obtenir le numéro de série qu'à partir de l'heure qui est stockée sous forme de texte et non de TIME.
Exemples de fonction TimeValue avec Excel VBA
Voici les exemples de la fonction VBA TimeValue.
Vous pouvez télécharger ce modèle de fonction VBA TimeValue ici - Modèle de fonction VBA TimeValueExemple # 1 de VBA TimeValue
Maintenant, regardez l'exemple simple de la fonction VBA TimeValue.
Code:
Sub TIMEVALUE_Function_Example1 () 'Convertit la chaîne d'entrée donnée en une heure valide et affiche à l'écran' Déclaration de variable Dim MyTime As Date 'Assigne l'heure à une variable MyTime = TimeValue ("28-05-2019 16:50:45")' Afficher la sortie sur l'écran MsgBox "L'heure actuelle est:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub 
Première chose, j'ai déclaré la variable «MyTime» comme Date.
Dim MyTime As Date
Ensuite, j'ai attribué la valeur à la variable en appliquant TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")Ensuite, dans la boîte de message, j'ai attribué le résultat de la variable.
MsgBox "L'heure fournie est:" & MyTime, vbInformation, "TIMEVALUE Function".
Si j'exécute le code à l'aide de la touche F5 ou manuellement, nous obtiendrons le résultat comme suit.
Exemple # 2 de VBA TimeValue
Pour le même code, je déclarerai la variable VBA comme «Double».
Code:
Sub TIMEVALUE_Function_Example1 () 'Convertir la chaîne d'entrée donnée en une heure valide et l'afficher à l'écran' Déclaration de variable Dim MyTime As Double 'Assign time to a variable MyTime = TimeValue ("28-05-2019 16:50:45")' Afficher la sortie sur l'écran MsgBox "L'heure actuelle est:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub 
Maintenant, si j'exécute le code VBA manuellement ou en appuyant sur la touche F5, il affichera la partie du numéro de série de l'heure 16:50:45.
Pour votre meilleure compréhension, je vais d'abord entrer les nombres donnés par la boîte de message VBA à l'une des cellules.
Maintenant, je vais appliquer le format de l'heure pour vérifier le résultat exact.
Lorsque vous le convertissez en un format d'heure, vous pouvez voir l'heure exacte.
Exemple # 3 de VBA TimeValue
Maintenant, regardez les données ci-dessous.
Nous avons les données et le temps ensemble des cellules A1 à A14. Pour la deuxième colonne, nous devons extraire uniquement la valeur de temps. Puisque nous avons plus d'une cellule à traiter, nous devons utiliser des boucles pour effectuer le même ensemble de tâches pour toutes les cellules.
Nous avons des données de la 1ère à la 14ème cellule, donc notre boucle doit s'exécuter 14 fois. Nous devons utiliser la boucle FOR NEXT dans VBA pour mentionner la limite inférieure et la limite supérieure. Le code ci-dessous est le code déjà écrit pour extraire la valeur de l'heure de la combinaison date et heure.
Code:
Sub TimeValue_Example3 () Dim k As Integer For k = 1 To 14 Cells (k, 2) .Value = TimeValue (Cells (k, 1) .Value) Next k End Sub
Lorsque nous exécutons le code, nous obtiendrons les valeurs comme ci-dessous.
Si vous souhaitez voir l'heure, appliquez-lui le format TIME.
C'est ainsi que la fonction TIME VALUE fonctionne dans VBA et Excel.
