SRick
|
LAVRAS MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2011 17:15 hs
Olá pessoal, mais uma vez estou precisando de vocês. É o seguinte
Como fazer para somar horas, assim
DATA: 19/04/2011
HORA INICIAL: 08:30
HORA FINAL: 18:00
TOTAL DE HORA DO DIA: 07:30 HORAS
E SE CASO EU QUISER FAZER UM APESQUISA EM UM PERÍODO, EXEMPLO DATA INICIAL: 11/04/2011 A 19/04/2011
TOTAL DE HORAS D PERÍODO: 85:15 HORAS.
|
|
|
|
Roßerto
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2011 17:28 hs
como somar se nao tem informado que horas comeca e termina ?
passando apenas a data nao tem como.
|
|
|
Almir
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 20/04/2011 07:23 hs
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
Postada em 20/04/2011 13:34 hs
|
|
|
SRick
|
LAVRAS MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 22/04/2011 12:11 hs
TREZE, OBRIGADO, ME AJUDOU MUITO, MAS COMO SOMAR O TOTAL DE HORAS NO FINAL DO MES OU DE UM DETERMINADO PERÍODO?
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/04/2011 10:20 hs
Henrique, é o seguinte, não sei como está fazendo mas se está salvando as horas em um banco de dados se supondo que sua tabela possua campos parecidos com esses (data,horaini,horafim) seria assim:
usando ADO
Dim SomaMIn As Long Dim Horas As Integer,Minutos As Integer, Total As String
sSQL = "SELECT * FROM tabela WHERE data BETWEEN #01/01/2011# AND #30/01/2011#" Set RS = CNN.Execute(sSQL) SomaMin = 0 Do While Not RS.EOF SomaMin = SomaMin + CLng(Datediff("n",RS!horaini,RS!horafim)) RS.Movenex_t Loop Minutos = SomaMin Mod 60 Horas = (SomaMin - Minutos) / 60 Total = Horas & ":" & Minutos MsgBox Total
|
|
|