✔ Programação GLOBAL®: VBA Tips Exclusive - Geração Espontânea de Datas Retroativas

VBA Tips Exclusive - Geração Espontânea de Datas Retroativas

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba 3 Calendários Customizáveis de 2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Se olharmos para o passado, analisando os inúmeros anos de experiência que temos, quais desenvolvedores, às vezes temos a impressão de que neste anos todos, várias vezes, desenvolvemos diversas funcionalidades (códigos) que serviram exclusivamente as nossas necessidades pontuais. Pensamos: 'Não é possível que alguém mais no mundo, precise de algo sequer parecido com esse código que acabei de desenvolver'.

Tal impressão de que os nossos códigos são tão proprietários que até seria inútil compartilhá-los com outros, impede-nos de trazer à tona soluções criativas que poderiam auxiliar muitos desenvolvedores mundo à fora.

O que segue é uma reflexão neste sentido. Olhando o passado, olha a ironia da funcionalidade do código, Percebi que tinha um código desenvolvido para a Geração Espontânea de Datas Retroativas. E este parecia-me encaixar-se na descrição do primeiro parágrafo. Os seus comentário a posteriori, é que me dirão se ele foi útil, ou não.

Sintaxe: GeraMonths(<Parâmetro>) <Retorna data no formato mmm|yy>

Se parametrizarmos com '0' (zero), retorna uma lista retroativa com todos os próximos 11, além do atual.

? GeraMonths(0) ' Supondo que estejamos no mês 05/2013:

mai|13

abr|13

mar|13

fev|13

jan|13

dez|12

nov|12

out|12

set|12

ago|12

jul|12

jun|12

Qualquer outro número, retornar o respectivo mês retroativo a partir do atual.

? GeraMonths(1) ' Supondo que estejamos no mês 05/2013:

mai|13

? GeraMonths(2) ' Supondo que estejamos no mês 05/2013:

abr|13

? GeraMonths(12) ' Supondo que estejamos no mês 05/2013:

jun|12

Divirta-se!

Function GeraMonths (MonthNumber As Byte) As String

' Author: André Luiz Bernardes - Bernardess@gmail.com.

' Date: 28/05/2012 - 10:30.

' Application:

' Functionality: Gera uma lista de 12 meses retroativos ao atual no formato "mmm|yy".



Dim nMonth As String

Dim i As Integer

Dim j As Integer

Dim k As Boolean

Dim l As Boolean

Let i = 0

Let j = 0

Let k = True

Let l = True



' Gera 12 meses a partir do mês atual.

While i < 12



' Na 1ª vez gera o mês atual.

If k Then

Let nMonth = Format(Now(), "mmm") & "|" & Format(Now(), "yy")



Let k = False

Else ' Apartir da 1ª vez subtrai 31 dias.

' A partir do mês de Jan o ano precisa ser subtraido por 1.

If InStr(1, nMonth, "jan") <> 0 Then

Let l = False

End If

If l Then

Let nMonth = Format(Now() - j, "mmm") & "|" & Format(Now(), "yy")

Else

Let nMonth = Format(Now() - j, "mmm") & "|" & Format(Now(), "yy") - 1

End If

End If

Let i = i + 1

Let j = j + 31

If MonthNumber = i Then

Let GeraMonths = nMonth



Debug.Print i & " - " & nMonth

ElseIf MonthNumber = 0 Then

Let GeraMonths = nMonth

Debug.Print i & " - " & nMonth

End If

Wend

End Function

Ahh, claro, mas que desenvolvedor sou eu que não explico qual a funcionalidade para tal código.

Pois bem meus caros, regularmente recebia um arquivo texto com dados de MAT (Últimos 12 meses, mês-a-mês). O cabeçalho deste arquivo vinha com a descrição pouco aplicável ao relatório no qual iria utilizá-lo, algo como: UN12, UN11, UN10, etc...

Precisei criar uma interface, que no momento da importação, imprimisse um novo cabeçalho a tais campos. Este deveria ser indicado pelo usuário responsável pelo processamento.

Pode observar na imagem acima, no canto extremo à direita do formulário, um botão com a imagem de '2 olhos'.

Quando este é pressionado os campos anteriores são automaticamente preenchidos.

O código para isso?

Segue:

Function PreTyping (nField As Byte)

' Author: André Luiz Bernardes - Bernardess@gmail.com.

' Date: 28/05/2012 - 10:30.

' Application:

' Functionality: Preenche automaticamente os campos de meses

'Carrega o nome dos meses.

If nField = 1 Then

Let Form_frm_Months.cxExercise01.Value = GeraMonths(1)

Let Form_frm_Months.cxExercise02.Value = GeraMonths(2)

Let Form_frm_Months.cxExercise03.Value = GeraMonths(3)

Let Form_frm_Months.cxExercise04.Value = GeraMonths(4)

Let Form_frm_Months.cxExercise05.Value = GeraMonths(5)

Let Form_frm_Months.cxExercise06.Value = GeraMonths(6)

Let Form_frm_Months.cxExercise07.Value = GeraMonths(7)

Let Form_frm_Months.cxExercise08.Value = GeraMonths(8)

Let Form_frm_Months.cxExercise09.Value = GeraMonths(9)

Let Form_frm_Months.cxExercise10.Value = GeraMonths(10)

Let Form_frm_Months.cxExercise11.Value = GeraMonths(11)

Let Form_frm_Months.cxExercise12.Value = GeraMonths(12)

End If

End Function