• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

rmjsantos

Ajuda como efectuar cálculo entre horas e datas no access

1 mensagem neste tópico

Olá a todos,

Necessito de ajuda, estou a fazer uma base de dados em access na qual introduzo um campo com data / hora de saida e depois outro com data / hora de chegada. Os campos estão com o formato  dd-mm-aa hh:nn  e com a máscara 00-00-00\ 00:00;0_.

Consegui através de um amigo este módulo para fazer o cálculo da duração do serviço, no qual é-me apresentado no campo no formulário automáticamente mas não consigo saber como fazer o cálculo da soma total das horas de serviço num determinado mês ou se quizer no fim do ano.

Este é o módulo que tenho, no entanto se fosse possivel necessito de ajuda para efectuar o cálculo total das horas.

Com os melhores cumprimentos

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora