Modulo
Contenuto
Indice 🔎︎

# Funzione TimeValue

Usando l'ora, i minuti e i secondi specificati - parametri passati come stringhe - calcola un valore di tempo seriale che rappresenta l'ora in forma di un singolo valore numerico. Tale valore può essere utilizzato per calcolare la differenza tra due ore.

## Sintassi:

    TimeValue (Text As String)

## Valore restituito:

Data

## Parametri:

Text (Testo): stringa che contiene l'ora da calcolare nel formato "HH:MM:SS".

Con questa funzione, potete convertire l'ora in un singolo valore con cui calcolare le differenze di tempo.

La funzione TimeValue restituisce il tipo Variant con VarType 7 (Date) e memorizza questo valore internamente come numero a doppia precisione compreso tra 0 e 0,9999999999.

A differenza delle funzioni DateSerial o DateValue, che restituiscono valori di data seriali espressi in giorni in relazione a una data fissa, i valori restituiti dalla funzione TimeValue possono essere usati per eseguire calcoli ma non possono essere valutati.

Nella funzione TimeSerial, potete passare i singoli parametri (ora, minuti, secondi) come espressioni numeriche separate. Per la funzione TimeValue, tuttavia, potete passare una stringa come parametro contenente l'ora.

## Codici di errore:

5 Richiamo di procedura non valido

13 Tipi di dati non corrispondenti

## Esempio:

    Sub ExampleTimerValue

    Dim daDT As Date

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

        a1 = "ora iniziale"

        b1 = "ora finale"

        c1 = "tempo totale"

        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