O que é o VBA DateSerial?

A função VBA DATESERIAL é uma função interna no Excel. A função DATESERIAL retorna uma data com um valor de ano, mês e dia. Digamos, por exemplo, se a data de hoje é 18 de julho de 2019. Alguns usuários podem escrevê-la como 18 de julho de 19 ou 18 de julho de 19. Formatos para datas podem ser diferentes para vários usuários. Isso nos dá a tarefa tediosa de trabalhar com um número maior de datas em diferentes formatos.

Como a declaração do problema definida acima, o formato das datas pode ser diferente para vários usuários. É aqui que a função serial de data entra no VBA para ajudar. É uma função muito boa marcar nossa data com os valores que escolhemos definir. Informe-nos sobre essa função em detalhes. A função DateSerial no VBA é uma função de data e hora, portanto o valor retornado para essa função é DATE. O método de usar a sintaxe para esta função será o seguinte.

Sintaxe do VBA DateSerial

A sintaxe da função VBA DateSerial no Excel é a seguinte:

São necessários três argumentos ano, mês e dia.

  • Ano: o intervalo aceito para esta parte do argumento na função é de 100-9999. O tipo de dados para o argumento deve ser um número inteiro.
  • Mês: o intervalo aceito para esta parte do argumento na função é de 1 a 12. O tipo de dados para o argumento deve ser um número inteiro.
  • Dia: O intervalo aceito para esta parte do argumento na função é de 1 a 31. O tipo de dados para o argumento deve ser um número inteiro.

Mas aqui está uma parte interessante dessa função. Se fornecermos o argumento acima do intervalo aceito, a função não retornará um erro, mas calculará a parte posterior do intervalo e exibirá a data. Por exemplo, se eu fornecer entrada como serial de data (2019, 14, 02), agora sabemos que pode haver apenas 12 meses em um ano, mas forneci 14 como argumento. A função não retornará um erro; em vez disso, adicionará os dois meses extras no ano atual para que a saída seja 02/02 2020.

Como usar a função VBA DateSerial no Excel?

Vamos aprender como usar uma função DateSerial do VBA com alguns exemplos no Excel.

Você pode fazer o download deste modelo VBA DateSerial Excel aqui - Modelo VBA DateSerial Excel

Vamos testar essa função com alguns exemplos que tornarão as coisas muito mais claras.

Exemplo # 1 - VBA DateSerial

Vamos primeiro fornecer uma data simples para uma variável usando a função serial de data e ver a saída que obtemos.

Etapa 1: antes de começarmos com nossos exemplos, primeiro certifique-se de ter a guia do desenvolvedor ativada e, em seguida, vá para a seção de código para abrir o VB Editor clicando no Visual Basic, como mostrado na imagem abaixo.

Etapa 2: Na janela mostrada acima, clique na guia Inserir para inserir um módulo. Trabalharemos no mesmo módulo para todos os nossos exemplos.

Etapa 3: inicie um subprocedimento da seguinte maneira e declare uma variável como tipo de dados de data.

Código:

 Subamostra () Dim Dt Como Data Final Sub

Etapa 4: Agora vamos fornecer uma data para a variável usando a função serial de data.

Código:

 Sub Amostra () Dim Dt Como Data Dt = DateSerial (2019, 7, 2) End Sub

Etapa 5: Exiba o valor armazenado em nossa variável usando a função msgbox.

Código:

 Sub Amostra () Dim Dt Como Data Dt = DateSerial (2019, 7, 2) MsgBox Dt End Sub

Etapa 6: Quando executamos o código acima, obtemos o seguinte resultado.

Exemplo 2 - VBA DateSerial

Agora, vamos testar a teoria que discutimos acima na introdução de que, se fornecermos os valores além do intervalo aceito, a função calculará a data para nós.

Etapa 1: No mesmo módulo, inicie outro subprocedimento, como a seguir.

Código:

 Sub Amostra1 () End Sub

Etapa 2: Agora defina uma variável com o tipo de dados de data.

Código:

 Sub Amostra1 () Dim Dt Como Data Final Sub

Etapa 3: Vamos fornecer a entrada para a variável DT usando a função serial de data, como mostrado abaixo.

Código:

 Sub Amostra1 () Dim Dt Como Data Dt = DateSerial (2019, 14, 2) End Sub

Etapa 4: Exiba o valor armazenado na variável Dt usando a função msgbox.

Código:

 Sub Amostra1 () Dim Dt Como Data Dt = DateSerial (2019, 14, 2) MsgBox Dt End Sub

Etapa 5: Agora execute o código acima e veja o resultado abaixo da seguinte maneira.

Podemos ver que o ano mudou, pois fornecemos mais dois meses para as discussões. Basicamente, essa função adicionou 14 meses ao ano de 2019, o que nos deu o segundo mês de 2020 e a 2ª Data.

Exemplo # 3 - VBA DateSerial

Nos exemplos acima, fornecemos os argumentos da maneira geral para a data. Mas discutimos como os usuários podem inserir valores absurdos na seção de datas como um formato, pois escrever datas é diferente de indivíduo para indivíduo. Compararemos dois formatos de data usando a função serial de data neste exemplo.

Etapa 1: no mesmo módulo, defina outro subprocedimento, a seguir, para o terceiro exemplo.

Código:

 Sub Amostra2 () End Sub

Etapa 2: neste cenário, defina duas variáveis ​​como datas, como mostrado abaixo.

Código:

 Sub Amostra2 () Dim Dt1, Dt2 como Data final Sub

Etapa 3: Agora, na primeira variável, vamos fornecer a data de maneira simples e regular, usando a função dataserial.

Código:

 Sub Amostra2 () Dim Dt1, Dt2 Como Data Dt1 = DateSerial (2019, 12, 31) End Sub

Etapa 4: Agora, para a segunda variável, forneça a data de maneira irregular, usando a função dateerial, como mostrado abaixo.

Código:

 Sub Amostra2 () Dim Dt1, Dt2 Como Data Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) End Sub

Etapa 5: Agora imprima esses dois valores usando a função msgbox.

Código:

 Sub Amostra2 () Dim Dt1, Dt2 como Data Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 End Sub

Etapa 6: execute o código acima para encontrar o seguinte resultado mostrado abaixo.

Podemos ver que as duas datas são iguais. O ano de dois dígitos 19 é interpretado como 2019.

Coisas para lembrar

  • É uma função de data e hora, portanto a saída está em Data.
  • Se o valor fornecido para a função estiver acima do intervalo aceito da função, ele calculará automaticamente a data em vez de dar um erro.
  • Se os valores fornecidos aos argumentos forem maiores que o valor que um número inteiro pode conter, a função retornará um erro.

Artigos recomendados

Este é um guia para o VBA DateSerial. Aqui discutimos como usar a Função DateSerial do VBA do Excel, juntamente com exemplos práticos e modelo de excel para download. Você também pode consultar nossos outros artigos sugeridos -

  1. VBA InStr explicado com exemplos
  2. Tipo de dados inteiro VBA
  3. VBA ISNULL explicado com exemplos
  4. Formato de data do VBA (exemplos)

Categoria:

VBA