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 pouvons obtenir uniquement 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 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. N'oubliez pas que la valeur de temps ne peut obtenir que le numéro de série de l'heure, qui est stocké sous forme de texte, pas sous forme de TIME.
Exemples de fonction TimeValue avec Excel VBA
Voici les exemples de la fonction VBA TimeValue.
Exemple # 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
Tout d'abord, 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 () 'Convertit la chaîne d'entrée donnée en une heure valide et affiche à l'écran' Déclaration de variable Dim MyTime As Double '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
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. Étant donné que 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 cellule à la 14ème cellule, donc notre boucle devrait 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 fonctionne la fonction TIME VALUE dans VBA et Excel.
