Time Value in VBA è una funzione incorporata che è anche classificata sotto la funzione data e ora in VBA, questa funzione, come suggerisce il nome, ci fornisce il valore numerico della data fornita come argomento, richiede un singolo argomento che è la data e restituisce il valore numerico dall'argomento.
Che cosa fa la funzione Time Value in VBA?
La funzione Valore ora in VBA Excel restituisce la parte del valore temporale dalla data e dall'ora complete. La data e l'ora vengono memorizzate come numeri di serie in Excel. Il numero di serie rappresenta la DATA e il decimale rappresenta l'ora. Utilizzando la funzione TimeValue, possiamo ottenere solo il numero di serie dell'ora, cioè il numero decimale.
Sintassi della funzione TimeValue VBA
La sintassi della funzione VBA TimeValue è la seguente.
Come abbiamo detto, la funzione TimeValue restituisce la parte del numero di serie della data specificata, che viene memorizzata come valore di testo. Il tempo non è altro che il tempo effettivo che stiamo cercando di ottenere il numero di serie. Ricorda, Time Value può ottenere solo il numero di serie dall'ora, che è memorizzata come testo, non come TIME.
Esempi di funzione TimeValue con Excel VBA
Di seguito sono riportati gli esempi della funzione TimeValue VBA.
VBA TimeValue Esempio n. 1
Ora, guarda il semplice esempio della funzione VBA TimeValue.
Codice:
Sub TIMEVALUE_Function_Example1 () "Converti la stringa di input fornita in un'ora valida e visualizza sullo schermo" Dichiarazione variabile Dim MyTime As Date "Assegna ora a una variabile MyTime = TimeValue (" 28-05-2019 16:50:45 ")" Visualizza l'output sullo schermo MsgBox "Current Time is:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Per prima cosa, ho dichiarato la variabile "MyTime" come Date.
Dim MyTime As Date
Quindi ho assegnato il valore alla variabile applicando TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")
Quindi nella finestra del messaggio, ho assegnato il risultato della variabile.
MsgBox "L'ora fornita è:" & MyTime, vbInformation, "Funzione TIMEVALUE".
Se eseguo il codice usando il tasto F5 o manualmente, otterremo il risultato come segue.
VBA TimeValue Esempio n. 2
Per lo stesso codice, dichiarerò la variabile VBA come "Double".
Codice:
Sub TIMEVALUE_Function_Example1 () "Converti la stringa di input fornita in un'ora valida e visualizza sullo schermo" Dichiarazione variabile Dim MyTime As Double "Assegna ora a una variabile MyTime = TimeValue (" 28-05-2019 16:50:45 ")" Visualizza l'output sullo schermo MsgBox "Current Time is:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Ora, se eseguo il codice VBA manualmente o premendo il tasto F5, verrà visualizzato il numero di serie parte del tempo 16:50:45.
Per una migliore comprensione, inserirò prima i numeri forniti dalla finestra del messaggio VBA in una delle celle.
Ora applicherò il formato dell'ora per controllare il risultato esatto.
Quando lo converti in un formato ora, puoi vedere l'ora esatta.
VBA TimeValue Esempio n. 3
Ora, guarda i dati seguenti.
Abbiamo dati e tempo insieme dalle celle A1 a A14. Per la seconda colonna, dobbiamo estrarre solo il valore temporale. Poiché abbiamo più di una cella da gestire, dobbiamo utilizzare i cicli per eseguire lo stesso insieme di attività per tutte le celle.
Abbiamo i dati dal 1 ° cella a 14 ° delle cellule, quindi il nostro ciclo dovrebbe funzionare per 14 volte. Dobbiamo usare il ciclo FOR NEXT in VBA per menzionare il limite inferiore e il limite superiore. Il codice sottostante è il codice già scritto per estrarre il valore dell'ora dalla combinazione di data e ora.
Codice:
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
Quando eseguiamo il codice, otterremo i valori come di seguito.
Se desideri vedere l'ora, applica il formato TIME.
Quindi, questo è il modo in cui funziona la funzione TIME VALUE in VBA ed Excel.
