Calculando um Intervalo entre datas

No artigo de hoje, explicarei uma maneira bem elaborada para obtermos o cálculo da diferença entre duas datas diferentes. Quando digo ‘datas’, não simplesmente de calcular o intervalo de dias, falo no sentido bem amplo da palavra, me refiro tanto a dias quanto a meses, anos, trimestres, horas, minutos, segundos e assim vai. Dessa maneira, poderemos, com esses intervalos, definir a idade de uma pessoa, o tempo que falta para a chegada do Natal, o tempo gasto para resolver uma questão de prova e muito mais coisas que forem interessantes para nós ou necessárias para nossos trabalhos.
Vale a pena você ler outro artigo que escrevi ensinando uma função para mostrar quantos dias faltam para um evento ou dia específico.
No Excel, a simples ação de subtrair uma célula com data por outra célula não resulta sempre no resultado esperado e pode nos causar muitas dores de cabeça. Pensando nisso, vou demonstrar a vocês como descobrir esses intervalos usando uma fórmula personalizada através do VBA.
Para você entender um pouco mais a respeito de como o Excel trabalha com datas, indico a leitura destes 4 artigos aqui:
Um pouco mais sobre datas (Parte 1)
Um pouco mais sobre datas (Parte 2)
Um pouco mais sobre datas (Parte 3)
Um pouco mais sobre datas (Parte 4)

Criando uma planilha de Controle de Estacionamento

Cursos Online em Informática, Pedagogia, Saúde, etc – Matricule-se Já!

Neste exemplo prático, criei uma planilha de entrada e saída de veículos de um estacionamento rotativo. No momento que um automóvel acessa o estacionamento é efetuada a marcação da hora em que o fato ocorreu. Na saída, nova marcação é executada, indicando o horário de saída. A planilha irá calcular o tempo que o veículo ficou estacionado e o preço a pagar pelo tempo de uso da vaga.
Simples né. Então vamos ao serviço!
Crie uma planilha com 7 colunas assim:

• Placa  – (Identificação do veículo estacionado)
• Horário de Entrada – (Inserir a hora inicial)
• Horário de Saída – (Inserir a hora final)
• Duração  – (Será inserida a fórmula do intervalo de tempo)
• Tempo Cobrado (hora) – (Fórmula para arrendondar o tempo de cobrança pois a hora não será fracionada)
• Preço – (Inserir o preço por hora)
• Total a Pagar – (Fórmula do total entre o preço e o tempo utilizado)

O código VBA

Após a formatação da planilha, acesse o projeto do VBA (ALT + F11) e adicione um módulo. Neste módulo, digite o código:

Public Function Duracao(DataInicial As String, DataFinal As String) As String
Dim lngTempo As Long
Dim lngSeg As Long, lngMin As Long, lngHora As Long
Dim sResultado As String
    lngTempo = DateDiff("s", DataInicial, DataFinal)
    If lngTempo < 60 Then
        'Menos que 60 segundos(menos que 1 minuto)
        sResultado = "0:00:" & IIf(lngTempo < 10, "0" & lngTempo, lngTempo)
    Else
        If lngTempo < 3600 Then
            'Menos que 60 minutos (menos que 1 hora)
            lngMin = Fix(lngTempo / 60)
            lngSeg = lngTempo - (lngMin * 60)
            sResultado = "0:" & IIf(lngMin < 10, "0" & lngMin, lngMin) & ":" & IIf(lngSeg < 10, "0" & lngSeg, lngSeg)
        Else
            'Mais que ou igual a 1 hora
            lngHora = Fix(lngTempo / 3600)
            lngMin = Fix((lngTempo - (lngHora * 3600)) / 60)
            lngSeg = Fix((lngTempo - (lngHora * 3600)) - (lngMin * 60))
            sResultado = lngHora & ":" & IIf(lngMin < 10, "0" & lngMin, lngMin) & ":" & IIf(lngSeg < 10, "0" & lngSeg, lngSeg)
        End If
    End If
    Duracao = sResultado
End Function
Sub MarcarEntradaSaida()
    ActiveCell.Value = Now
End Sub

Utilizando a fórmula na planilha

 
A função DateDiff calcula a diferença entre duas determinadas datas.
Retorne a planilha do Excel e na primeira linha de lançamentos (veja no exemplo disponível para download no final do artigo), e na coluna Duração, insira a fórmula:
=SE(ÉERROS(Duracao(C8;D8));”0:00:00″;Duracao(C8;D8))
ÉERROS serve para verificar se o cálculo retornou algum erro e com isso podemos implementar o código alterando a exibição do resultado, deixando a planilha com um aspecto mais agradável.
Na coluna posterior, Tempo Cobrado, terá o sentido de pegar na célula Duração o valor referente a hora e adicionar mais uma hora caso ultrapasse zero minutos. Digite a seguinte fórmula:
=ESQUERDA(E8;LOCALIZAR(“:”;E8)-1) + SE(EXT.TEXTO(E8;LOCALIZAR(“:”;E8)+1;2)=”00″;0;1)
Na coluna que exibirá o Total a Pagar basta multiplicar a duração pelo tempo cobrado, neste exemplo digite:
=F8*G8
Copie as fórmulas digitadas para as demais células. Falta pouco. Insira dois botões da caixa de ferramenta formulários e aplique a eles a Macro “MarcarEntradaSaida“.


 
Bem. Agora está pronto.
Quando for lançar um veículo, selecione a célula referente ao horário de entrada e clique no botão “marcar entrada” e, na saída do veículo, selecione a célula referente ao horário de saída e clique no botão “marcar saída”.
Com essa função é possível fazer muito mais coisas. Exemplo, para calcular a idade de uma pessoa, por exemplo, em vez de “s” como usamos hoje, para identificar segundos, podemos usar “yyyy” para anos. Ficaria assim: DateDiff(“yyyy”, DataInicial, DataFinal) , sendo DataInicial, a data de aniversário e a DataFinal o dia atual e o resultado seria a idade da pessoa em anos. Num próximo artigo trago mais exemplos práticos para o uso dela.
Um abraço.
Baixe os arquivos desta matéria no link de download no final do artigo.

Termos aprendidos neste artigo:

Sgn(number) * Int(Abs(number))