Compartilhar via


Função DateSerial (Visual Basic)

Retorna um valor Date que representa Hora, Minuto e Segundo especificados, com as informações de data definidas relativa a 1º de Janeiro do ano 1.

Public Function TimeSerial( _
   ByVal Hour As Integer, _
   ByVal Minute As Integer, _
   ByVal Second As Integer _
) As DateTime

Parâmetros

  • Hour
    Obrigatório.Integer expressão de 0 a 23. No entanto, valores fora desse intervalo também são aceitas.

  • Minute
    Obrigatório.Integer expressão de 0 a 59. No entanto, valores fora desse intervalo também são aceitas.O valor de Minute é adicionado para a hora calculada, portanto, um valor negativo especifica minutos antes daquele horário.

  • Second
    Obrigatório.Integer expressão de 0 a 59. No entanto, valores fora desse intervalo também são aceitas.O valor de Second é adicionado para a hora calculada, portanto, um valor negativo especifica minutos antes daquele horário.

Exceções

Tipo de exceção

Número de erro

Condição

ArgumentException

5

Argumento está fora do intervalo-2,147,483,648 a 2.147.483.647

ArgumentOutOfRangeException

9

Tempo calculado é menor que 24 horas negativas.

Ver a coluna " número de erro " se você estiver atualizando aplicativos Visual Basic 6.0 que usam manipulação de erros não estruturada.(Você pode comparar o número do erro com a Propriedade do Número (Erro de objeto).) Entretanto, quando for possivel, você pode considerar substituir tal controle de erro por Visão Geral sobre a Manipulação Estruturada de Exceções para o Visual Basic.

Comentários

O exemplo a seguir demonstra valores de argumento negativos, zero e positivos.A função TimeSerial retorna uma hora que representa a 15 minutos antes três horas antes do meio-dia, ou 8:45:00 AM.

Dim alarmTime As Date = TimeSerial(12 - 3, -15, 0)

Se qualquer um dos Minute ou Second excede o intervalo normal, é aplicado para a próxima unidade maior como apropriado.Por exemplo, se você especificar 75 minutos, ela é avaliada como uma hora e 15 minutos.

TimeSerial reduz os total de segundos módulo 86,400, que é o número de segundos em um dia.Portanto, o tempo retornado é sempre entre 00: 00: 00 e 23:59:59.

O tipo de dado Date inclui componentes de data.TimeSerial Define todos eles para 1, para que o valor retornado representa o primeiro dia do ano 1. No entanto, se sistema autônomo valores dos argumentos fazer com que o time calculado exceder 24 horas, o dia será aumentado conforme necessário.No exemplo a seguir, o valores de Hour e Minute resultam em um tempo combinado de mais de 24 horas.

MsgBox(TimeSerial(23, 75, 0)) 
' The preceding statement displays "1/2/0001 12:15:00 AM".

Se os valores dos argumentos resultarem em um time calculado negativo, as informações de data são conjunto para 1/1/0001 e as informações de time são ajustadas para estar entre 00: 00: 00 e 23: 59: 59.No entanto, se o time calculado tiver menos de negativas 24 horas, um ArgumentOutOfRangeException erro ocorre.

Já que cada valor Date é suportado por uma estrutura System.DateTime, seus métodos oferecem opções adicionais ao montar um valor Date.Por exemplo, você pode usar um dos construtores sobrecarregados DateTime para preencher uma variável Date utilizando a combinação desejada de componentes.O exemplo a seguir define newDateTime para 6 de maio de 1978 em um décimo de um segundo antes de 8:30 da manhã:

Dim newDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900)

Exemplo

O exemplo a seguir usa a função TimeSerial para retornar um horário para a hora especificada, Minuto e Segundo.

Dim thisTime As Date
thisTime = TimeSerial(16, 35, 17)

Requisitos

Namespace: Microsoft.VisualBasic

**Módulo:**DateAndTime

Assembly: Visual Basic Runtime Library (em Microsoft.VisualBasic.dll)

Consulte também

Referência

Função DateSerial (Visual Basic)

Função DateValue (Visual Basic)

Função Hour (Visual Basic) 

Função Minute

Propriedade agora

Segunda função (Visual Basic)

Função TimeValue (Visual Basic)