IBM Lotus Symphony


Fonction TimeValue [Exécution]

Calcule une valeur horaire interne à partir des paramètres d'heure, de minute et de seconde transmis en tant que chaînes de caractères pour représenter l'heure sous forme de valeur numérique unique. Vous pouvez utiliser cette valeur pour calculer la différence entre deux heures.

Syntaxe :

TimeValue (Text As String)

Valeur de retour :

Date

Paramètres :

Text : expression de type chaîne de caractères contenant l'heure à calculer, au format "HH:MM:SS".

Avec cette fonction, vous pouvez convertir toute valeur horaire en une valeur unique vous permettant de calculer les différences entre les heures.

La fonction TimeValue renvoie le type de données variante avec le type VarType 7 (Date), et stocke cette valeur en interne en tant que nombre double précision compris entre 0 et 0,9999999999.

Vous pouvez, dans la fonction TimeSerial, transmettre des paramètres individuels (heures, minutes, secondes) en tant qu'expressions numériques distinctes. En revanche, la fonction TimeValue vous permet de transmettre une chaîne de caractères en tant que paramètre contenant l'heure.

Codes d'erreur

Codes d'erreur

5 Appel de procédure incorrect

13 Discordance de type

Exemple :

Sub ExampleTimerValue

Dim daDT as Date

Dim a1, b1, c1, a2, b2, c2 as String

a1 = "heure de début"

b1 = "heure de fin"

c1 = "temps écoulé"

a2 = "8:34"

b2 = "18:12"

daDT = TimeValue(b2) - TimeValue(a2)

c2 = a1 & ": " & a2 & chr(13)

c2 = c2 & b1 & ": " & b2 & chr(13)

c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))

Msgbox c2

end sub


Commentaires en retour sur le produit | Documentation complémentaire | Marques