SRick
|
LAVRAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/06/2011 08:32 hs
Pessoal, estou precisando urgentemente fazer soma de horas de um banco de dados access usando o SUM através do sql. Só que quando ultrapassa 24 horas a soma dá errada. Se alguém puder me ajudar, ficarei grato.
SRick
|
|
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/06/2011 09:02 hs
SELECT movcontabil.cdConta,MovContabil.dtMovimento, MovContabil.vlDebito
FROM MovContabil where MovContabil.dtMovimento >= (#2004, 12, 31 08:00:00#) and MovContabil.dtMovimento <= (#2004, 12, 31 23:59:59#) pegrá todos os movtos do dia 31/12/2004 da 8:00:00 até 23:59:59 |
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/06/2011 09:26 hs
J. Carlos obrigado, mas eu preciso somar horas de ao final vão dar mais de 24 horas.
Exemplo
NOME DATA HORA TRABALHADA
JOSE 01/01/2011 12:00:00
JOSE 02/01/2011 12:00:00
JOSE 03/01/2011 12:00:00
MARIA 01/01/2011 12:00:00
MARIA 02/01/2011 15:00:00
MARIA 03/01/2011 02:00:00
TOTAL JOSE: 36:00:00
TOTAL MARIA: 29:00:00
|
|
|
|
comendador
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/06/2011 11:28 hs
MEU BROTHER ACHEI ESSA FUNÇÃO QUE SOMA HORAS NA NET, VER SE TE AJUDA, VOU TENTAR SINTETIZÁ-LA E TE ENVIO OUTRO E-MAIL!
Segue abaixo função para somar horas.
CODE Function SOMAHORAS(HORA1 As Date, HORA2 As Date) As Date
Dim HORATEMP1, HORATEMP2, XHORA1, XHORA2, XHORAS, XMIN1, XMIN2, XMINS, XSEG1, XSEG2, XSEGS As String
HORATEMP1 = "00:00:00"
HORATEMP2 = "00:00:00"
XHORA1 = Mid(HORA1, 1, 2)
XHORA2 = Mid(HORA2, 1, 2)
XHORAS = Val(XHORA1) + Val(XHORA2)
'Label1.Caption = DateAdd("h", XHORAS, HORA2)
XMIN1 = Mid(HORA1, 4, 2)
XMIN2 = Mid(HORA2, 4, 2)
XMINS = Val(XMIN1) + Val(XMIN2)
XSEG1 = Mid(HORA1, 7, 2)
XSEG2 = Mid(HORA2, 7, 2)
XSEGS = Val(XSEG1) + Val(XSEG2)
HORATEMP2 = DateAdd("h", XHORAS, HORATEMP1)
HORATEMP1 = HORATEMP2
HORATEMP2 = DateAdd("n", XMINS, HORATEMP1)
HORATEMP1 = HORATEMP2
HORATEMP2 = DateAdd("s", XSEGS, HORATEMP1)
HORATEMP1 = HORATEMP2
SOMAHORAS = Format(HORATEMP1, "hh:nn:ss")
End Function
Para testar crie um Modulo e adicione a função e em seguida , crie 2 textbox, 1 label e 1 button e em button coloque o codigo:
label1.caption = SOMAHORAS(text1, text2)
LEMBRANDO QUE ESSA FUNÇAO NÃO É MINHA, FOI POSTADA POR: Wilson Junior
http://scriptbrasil.com.br//forum//index.php?showtopic=102401
JESUS VIVE E REINA
|
|
|
|
|
|
Postada em 29/06/2011 13:53 hs
Mandei um e-mail para vc com anexo o PROJECT de uma olhada para ver se era isso mesmo. Qualquer coisa é só postar!
|
|
|
|
|
|
Postada em 01/07/2011 08:42 hs
esse tema ja foi abordado muitaz vezes, ja tem soluçoes para esses casos pelos colegas, procurar no forum o exmplo
|
|
|
|
|
