Função Para Somar Horas

[Guest Wilson Junior]

Segue abaixo função para somar horas.

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)

Abs,

Wilson Junior

wjr1@hotlink.com.br

Editado Setembro 27, 2007 por kuroi
Tag CODE

[Guest xic]

vALEU! Excelente! estava mesmo precisando disto.

[Graymalkin]

Vou colocar na sala de Tutorias & Dicas, mas vale lembrar que a função TimeSerial() do próprio VB já faz esse trabalho.

Abraços,

Graymalkin

[Danleonhart]

Olá a todos...

:mellow: Só para lembrar, aos mais antigos e experientes:

A maioria das pessoas que buscam informações nesse ótimo site, não conhecem afundos de linguagem, se assim não fosse, não estariamos aqui em busca de ajuda dos mais experientes...

então pesso, que ao explicarem, não apenas falem de uma tal função, mas dêem um exemplo para assim têrmos uma idéia do que se está falando...

Ótima dica Wilson Júnor !

Será útil para muitos iniciantes!

Obrigado ! ;)

Editado Outubro 27, 2010 por Danleonhart

[CESAR344]

Tenho uma necessidade de acumular horas em determinados materiais que são controlados por horas de exposição a temperatura ambiente. O que preciso é que a cada saída deste material do freezer, ele começe a contabilizar ou acumular horas e a hora que ele retornar para o freezer este acumulo seja interrompido. Alguém pode me ajudar?