Um pouco mais sobre datas (Parte 1)

Nesta série de artigos vou explicar um pouco como obter informações importantes e específicas sobre as datas. O meu objetivo será desenvolver funções que retornem resultados que são necessários em diversas situações para cálculos em nossas planilhas. Um exemplo disso é quando precisamos saber qual o último dia de um mês. Para qualquer mês, já sabemos que podem ter 30 ou 31 dias, exceto fevereiro, que pode variar entre 28 ou 29 dias, conforme o ano. Como podemos definir isso? Outro caso é para sabermos quantos dias úteis existem em determinado mês. Para isso, precisamos excluir os sábados, domingos e feriados. E vai a pergunta, como identificar estes dias (finais de semanas ou feriados)?

São assuntos como esses que abordaremos nestes artigos. Garanto a você, caro leitor, que estas dicas te ajudarão muito, pois são muito usuais.

I – Identificar quantos dias tem cada mês (ênfase em descobrir o mês de fevereiro).

Bem, para começar vamos escrever os meses e seu total de dias.

Observamos, então, que o único mês que precisamos nos preocupar é o mês de fevereiro, pois, apenas este tem o total de dias variável. Se não fosse por este mês, poderíamos apenas, fazer alguma instrução select, ou posicioná-los em um array, ou ainda, a nível de fórmula, montarmos alguns SE.

Como nosso intuito neste site é aprendermos mais profundamente as funcionalidade do Excel, podemos incrementar esta função de maneira mais profissional, até porque, desta maneira, ela poderá ser adaptada e utilizada por outras funções internamente.

Esta função é simples, mas precisa de atenção para perceber os detalhes. Vamos construí-la:

Vá ao construtor avançado de Macros (ALT+F11) e adicione um Módulo ao projeto.

Private Function fnUltimoDiaDoMes(iAno As Integer, iMes As Integer, Optional iDia As Integer = 1) As Integer
Dim arrayMesesUltimoDia As Variant

 arrayMesesUltimoDia = Array(0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

 If iMes = 2 Then
 If IsDate("29/2/" & iAno) Then
 fnUltimoDiaDoMes = 29
 Else
 fnUltimoDiaDoMes = 28
 End If
 Else
 fnUltimoDiaDoMes = arrayMesesUltimoDia(iMes)
 End If

End Function

Você pode chamar a função assim, supondo que queira informação do mês 2/2009, por exemplo:

Msgbox fnUltimoDiaDoMes(2009,2)               // O resultado será 28.

Outros datas:

Msgbox fnUltimoDiaDoMes(2012,2)               // O resultado será 29.

Msgbox fnUltimoDiaDoMes(2009,4)               // O resultado será 30.

Msgbox fnUltimoDiaDoMes(2010,12)               // O resultado será 31.

Msgbox fnUltimoDiaDoMes(2009,12,25)               // O resultado será 31.

Explicando. Nesta função deve ser informado o ano, o mês, e, opcionalmente, a data, caso deseje. Enfim, bem simples e funcional.

No próximo artigo, vamos incrementá-la adicionando outras funções que dependerão dela.

Um abraço e espero você.