IBM Lotus Symphony
|
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.
TimeValue (Text As String)
Date
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
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