Como usar a função TimeSerial em VBA?

A função `TimeSerial` no VBA é utilizada para retornar um valor do tipo `Date` que representa uma hora específica do dia. Essa hora é construída a partir de três componentes individuais: hora, minuto e segundo. A função é especialmente útil quando se deseja criar horários dinâmicos ou manipular dados relacionados a tempo de forma programática.

Aqui está a sintaxe da função:

TimeSerial(hora, minuto, segundo)

hora: Um número inteiro de 0 a 23 que representa a hora do dia.
minuto: Um número inteiro de 0 a 59 para especificar os minutos.
segundo: Um número inteiro de 0 a 59 para indicar os segundos.

Exemplos de uso da função `TimeSerial`:

   Dim myTime As Date
   myTime = TimeSerial(15, 30, 0) ' Representa 15:30:00 (3:30 PM)
   MsgBox "The time is: " & Format(myTime, "hh:mm:ss AM/PM")

   Dim hora As Integer
   Dim minuto As Integer
   Dim segundo As Integer
   Dim horario As Date

   hora = 8
   minuto = 45
   segundo = 30

   horario = TimeSerial(hora, minuto, segundo)
   MsgBox "O horário é: " & Format(horario, "hh:mm:ss")

   ' Aqui, 75 minutos são adicionados. O VBA ajusta automaticamente para 1 hora e 15 minutos.
   Dim adjustedTime As Date
   adjustedTime = TimeSerial(10, 75, 0) ' Resulta em 11:15:00
   MsgBox "Adjusted time is: " & Format(adjustedTime, "hh:mm:ss")

Criando um horário específico:
Manipulação com variáveis:
Cálculos com valores que excedem os limites normais:

Vale destacar que, se os valores fornecidos excederem os limites normalizados (por exemplo, 60 minutos ou 60 segundos), a função ajusta automaticamente o horário, como mostrado no último exemplo. Se você fornecer um número negativo, ele também ajustará o horário para trás de forma correspondente.

facebooklinkedin