Funci贸 TimeValue

Calcula un valor d'hora de s猫rie a partir de l'hora, el minut i el segon especificat (par脿metres passats com a cadenes) que representen l'hora en un 煤nic valor num猫ric. Este valor es pot utilitzar per calcular la difer猫ncia entre hores.

Sintaxi:


TimeValue (Text As String)

Valor de retorn:

Data

Par脿metres:

Text: Qualsevol expressi贸 de cadena que cont茅 l'hora que voleu calcular en el format "HH:MM:SS".

Utilitzeu la funci贸 TimeValue per convertir qualsevol hora en un 煤nic valor, per tal que pugueu calcular difer猫ncies d'hora.

Esta funci贸 TimeValue torna la variant de tipus amb VarType 7 (Data), i emmagatzema este valor internament com a nombre de doble precisi贸 entre 0 i 0,9999999999.

Al contrari de les funcions DateSerial o DateValue, en qu猫 els valors de data de s猫rie resulten en dies relatius a una data fixada, podeu calcular-los amb els valors que es retornen amb la funci贸 TimeValue per貌 no podeu avaluar-los.

A la funci贸 TimeSerial, podeu passar els par脿metres individuals (hora, minut, segon) com a expressions num猫riques separades. Per a la funci贸 TimeValue, en canvi, podeu passar una cadena com a par脿metre que cont茅 l'hora.

Codis d'error

5 La crida al procediment no 茅s v脿lida

13 Els tipus de dades no coincideixen

Exemple:


Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "hora d'inici"
    b1 = "hora de finalitzaci贸"
    c1 = "hora total"
    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

Ens cal la vostra ajuda!