Funzione Time in Excel Vba

La funzione Time() nel linguaggio Vba e in una macro Excel legge l'ora corrente nel sistema.

Time()

La funzione restituisce l'ora corrente nel tipo Date.

Un esempio pratico

In questa macro assegno alla variabile orario il risultato della funzione Time()

1. Sub Prova()
2. dim orario as Date
3. orario = Time()
4. MsgBox(orario)
5. End Sub

Poi visualizzo il contenuto della variabile orario.

Lo script visualizza sullo schermo l'ora corrente.

Nota. Se non dichiaro diversamente la variabile, questa assume automaticamente il tipo Date. Quindi, avrei potuto anche evitare di definire la variabile orario.

Esempio 2

Per visualizzare soltanto il numero delle ore moltiplico per 24 l'orario corrente e lo assegno alla variabile ore.

Poi visualizzo soltanto la parte intera tramite la funzone Int().

1. Sub Prova()
2. orario = Time()
3. ore = Int(orario*24)
4. MsgBox(ore)
5. End Sub

Lo script visualizza il numero di ore passate a partire dalla mezzanotte.

Esempio 3

Per visualizzare il numero di minuti passati dalla mezzanotte, moltiplico per 24*60 ossia per

1. Sub Prova()
2. orario = Time()
3. ore = Int(orario*24*60)
4. MsgBox(ore)
5. End Sub

Lo script visualizza il numero di minuti trascorsi nel giorno.

Esempio 4

Per visualizzare il numero di ore a trascorse da un determinato orario del giorno diverso da mezzanotte, definisco l'orario iniziale (orario2).

Poi sottraggo orario2 dalla variabile orario.

1. Sub Prova()
2. orario = Time()
3. orario2 = #3:00:00 PM#
4. orario = orario - orario2
5. ore = Int(orario*24*60)
6. MsgBox(ore)
7. End Sub

Lo script visualizza il numero di ore trascorse a partire dall'orario che ho indicato.

Nota. In questo caso l'ora corrente è 19:16:00 ma lo script conta il numero di ore trascorse a partire dalle 15:00:00 ossia dalle 03:00:00 PM. Per questo motivo restituisce in output 4 ore.

E così via.