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 |
---|---|---|
Argumento está fora do intervalo-2,147,483,648 a 2.147.483.647 |
||
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)