Função TimeSerial

Retorna uma Variant (Data) que contém a hora de uma hora, minuto e segundo específicos.

Sintaxe

TimeSerial(hora, minuto, segundo)

A sintaxe da função TimeSerial tem esses argumentos nomeados:

Sair Descrição
Hora Necessário; Variant (Inteiro). Número entre 0 (12:00) e 23 (21:00), inclusive ou uma expressão numérica.
Minuto Necessário; Variant (Inteiro). Qualquer expressão numérica.
Segundo Necessário; Variant (Inteiro). Qualquer expressão numérica.

Comentários

Para especificar uma hora, como 11:59:59, o intervalo de números para cada argumento TimeSerial deve estar no intervalo normal da unidade; ou seja, 0 a 23 por horas e 0 a 59 por minutos e segundos. No entanto, você também pode especificar tempos relativos para cada argumento usando qualquer expressão numérica que represente algum número de horas, minutos ou segundos antes ou depois de um determinado tempo.

O exemplo a seguir usa expressões em vez de números de tempo absolutos. A função TimeSerial retorna um tempo de 15 minutos antes (-15) seis horas antes do meio-dia (12 - 6) ou 5:45:00 da manhã.

TimeSerial(12 - 6, -15, 0)

Quando qualquer argumento excede o intervalo normal para esse argumento, ele incrementa para a próxima unidade maior, conforme apropriado. Por exemplo, se você especificar 75 minutos, ele será avaliado como uma hora e 15 minutos. Um erro ocorrerá se um único argumento estiver fora do intervalo de -32.768 a 32.767. Se a hora especificada pelos três argumentos fizer com que a data fique fora do intervalo aceitável de datas, ocorrerá um erro.

Exemplo

Este exemplo usa a função TimeSerial para retornar um tempo para a hora, o minuto e o segundo especificados.

Dim MyTime
MyTime = TimeSerial(16, 35, 17)    ' MyTime contains serial 
    ' representation of 4:35:17 PM.

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.