Função DateSerial (Visual Basic)

Retorna um valor Date que representa um conjunto específico com ano, mês e dia, com informações de tempo definido para meia-noite (00: 00: 00).

Public Function DateSerial( _
   ByVal [Year] As Integer, _
   ByVal [Month] As Integer, _
   ByVal [Day] As Integer _
) As DateTime

Parâmetros

• Year
  Obrigatório.Integer expressão de 1 a 9999. No entanto, valores abaixo desse intervalo também são aceitas.Se Year é de 0 a 99, ele é interpretado como sendo entre 1930 e 2029, conforme explicado na seção "Comentários" abaixo.Se Year for menor que 1, ele é subtraído do ano atual.

• Month
  Obrigatório.Integer expressão de 1 a 12. No entanto, valores fora desse intervalo também são aceitas.O valor de Month é deslocado de 1 e aplicado a janeiro do ano calculado.Em outras palavras, (Month - 1) é adicionado à Janeiro.O ano é recalculado se necessário.Os resultados a seguir ilustram esse efeito:

  • Se Month for 1, o resultado é janeiro do ano calculado.

  • Se Month for 0, o resultado é dezembro do ano anterior.

  • Se Month for -1, o resultado é novembro do ano anterior.

  • Se Month for 13, o resultado é janeiro do ano seguinte.

• Day
  Obrigatório.Integer expressão de 1 a 31. No entanto, valores fora desse intervalo também são aceitas.O valor de Day é deslocado de 1 e aplicado ao primeiro dia do mês calculado.Em outras palavras, (Day - 1) é adicionado ao primeiro dia do mês.O mês e ano são recalculados se necessário.Os resultados a seguir ilustram esse efeito:

  • Se Day for 1, o resultado é o primeiro dia do mês calculado.

  • Se Day for 0, o resultado é o último dia do mês anterior.

  • Se Day for -1, o resultado é o penúltimo dia do mês anterior.

  • Se Day é anterior ao final do mês atual, o resultado é o dia apropriado do mês seguinte.Por exemplo, se Month for 4 e Day é 31, o resultado é primeiro de maio.

Comentários

No Windows 98 ou Windows 2000, anos de dois dígitos para o argumento Year são interpretados com base em configurações do computador definidas pelo usuário.sistema autônomo configurações padrão são que valores de 0 a 29 são interpretados sistema autônomo 2000–2029 anos e valores entre 30 e 99 são interpretados sistema autônomo 1930–1999 anos.Para todos os outros Year argumentos, ano de uso de quatro dígitos; por exemplo, 1924.

Versões anteriores do Windows interpretam anos de dois dígitos com base em padrões descritos anteriormente.Para ter certeza a função retornará o valor adequado, use um Yearcom quatro dígitos.

O exemplo a seguir demonstra valores de argumento negativos, zero e positivos.Aqui, a função DateSerial retorna um Date que representa o dia antes do primeiro dia de março, no ano 10 anos antes do ano atual; em outras palavras, o último dia de fevereiro dez anos atrás.

Dim EndFeb As Date = DateSerial(-10, 3, 0)

Se qualquer um dos Month ou Day excede o intervalo normal, é aplicado para a próxima unidade maior como apropriado.Por exemplo, se você especificar 32 dias, ela é avaliada como um mês e de um a quatro dias, dependendo do valor de Month.Se Year é maior que 9999, ou se qualquer argumento está fora do intervalo-2,147,483,648 a 2.147.483.647, ocorrerá um erro ArgumentException.Se a data especificada pelos três argumentos for anterior a 00: 00: 00 em 1 º de janeiro do ano 1, ou posterior a 23:59:59 em 31 de dezembro de 9999, ocorrerá um erro ArgumentOutOfRangeException.

O tipo de dados Date inclui componentes de tempo.DateSerial Define todos estes como 0, para que o valor retornado representa o início do dia calculado.

Já que cada valor Date é suportado por uma estrutura 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

Este exemplo usa a função DateSerial para retornar a data para o dia, mês e ano especificados.

Dim MyDate As Date
' MyDate contains the date for February 12, 1969.
MyDate = DateSerial(1969, 2, 12)   ' Return a date.

Requisitos

Namespace: Microsoft.VisualBasic

**Módulo:**DateAndTime

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

Consulte também

Referência

Função DateValue (Visual Basic)

Função Day (Visual Basic)

Função Mês (Visual Basic)

Propriedade agora

Função DateSerial (Visual Basic)

Função TimeValue (Visual Basic)

Função dia da semana (Visual Basic) 

Função de ano (Visual Basic)

Tipo de dados Data (Visual Basic)

System