[Resolvido]ajuda - cálculo com data e hora

Olá a todos,

Preciso de ajuda para este exemplo que tenho na base dados que anexo, que calcula as horas e minutos entre a data inicio e data fim em que está formatado cada campo da data (dd/mm/aa\ hh:nn), ou seja, recebe a data e hora junto e faz o cálculo do tempo gasto.

A alteração que tenho de fazer é que tenho de separar os campos da data das horas, mas que faça o cálculo do tempo gasto, contando com a data e a hora.

Tenho uma função que tirei de um exemplo para a primeira situação que faz corretamente o calculo, no entanto para a alteração que pretendo fazer não estou a conseguir fazer o mesmo cálculo, agora com os campos separados da data e hora.

O código é este:

Option Compare Database
Option Explicit

Public Function GetElapsedTime(Interval)
      Dim TotalHours As Long, TotalMinutes As Long, TotalSeconds As Long
      Dim Hours As Long, Minutes As Long, Seconds As Long
         
          Days = Int(CSng(Interval * 24))
          TotalHours = Int(CSng(Interval * 24))
          TotalMinutes = Int(CSng(Interval * 1440))
          TotalSeconds = Int(CSng(Interval * 86400))
          Hours = TotalHours Mod 24
          Minutes = TotalMinutes Mod 60
          Seconds = TotalSeconds Mod 60
         
          GetElapsedTime = Days & " Horas " & Minutes & _
                           " Minutos "
       End Function





Ou seja, o que pretendo é ao inserir a data inicio e hora inicio e depois a data fim e hora fim me dê o tempo gasto.

Ex: 01/01/2015     09:00             01/01/2015      10:30      =      1 horas 30 minutos

A alteração é a tabela "exemplo" e a consulta "c_exemploFecho" da base de dados que anexo no link abaixo.



Alguém pode ajudar?

Obrigado.
   


a base de dados exemplo
https://dl.dropboxusercontent.com/u/76832639/exemplo.zip

Boa tarde Rui;

Faça um teste nessa consulta c_exemploFecho

Aguardamos para ver se atendeu sua necessidade, bons estudos!

Boa noite Fernando,

Antes de mais o meu agradecimento pela sua ajuda prestada, e as minhas desculpas pela demora.

Em relação ao seu exemplo está a fazer o cálculo bem, mas no entanto, só assim o faz com os campos dos dados diainicio e horainicio e diafim horafim completos com os dados já inseridos, ou seja, se por exemplo, faltar os dados do dia inicio e hora inicio dá erro.


A ideia era ter um formulário e inserir o dia inicio e hora inicio separados além de outros campos que adicionarei e depois ter outro formulário, e este sim, seria a sua ajuda que deu na consulta c_exemploFecho, para então fechar com o dia fim e hora fim e saber de imediato o tempo que cada funcionário fez num determinado serviço.

Dá para contornar esta situação?

Obrigado.

Rui

Boa tarde a todos,

estou com um problema que está a surgir na base dados que pretendo.
embora o Fernando tenha dado uma ajuda, na base dados anexa, acontece que está a dar erro no campo duração, ou seja, antes de inserir no campo data fim e hora fim os dados, dá erro na duração, mas depois de os dados inseridos fica bem.


o que pretendo, é ter um formulário onde lanço o planeamento diário, onde aí lanço a data inicio e hora inicio, e aí tudo bem, e ter outro formulário onde depois fecho o planeamento diário com o fecho da data fim e hora fim onde então me dará o tempo total gasto a fazer esse mesmo serviço, onde está a dar erro no campo duração do serviço, por não ter ainda os dados de fecho do serviço.

alguém poderá ajudar a tentar contornar este problema que está a surgir?

obrigado.

ajuda???

Ola rui , testa assim:

If IsNull( me.campodatafim) and IsNull(me.campohorafim) then
Me.resultado = ""
Else
Faz calculo
End if

Abtaco

Obrigado Óscar,

É mesmo isso, ficou a bombar.

Abração

Boa.
Abraço