SOMAR HORAS

ALTAIR148 05/01/2012 16:10:21
#392477
Boa tarde,

Galera tô com uma dúvida aqui, já tentei várias coisas e nenhuma deu certo, to precisado de uma função para somar horas, por exemplo.:

Hora1 = 01:10:00
Hora2 = 02:15:00

Total = hora1 + hora2

ou seja

Total = 03:25:00

Obrigado.
KERPLUNK 05/01/2012 16:38:09
#392480 Resposta escolhida
Dim hora1 As Date
Dim hora2 As Date
hora1 = CDate([Ô]01/01/2012 01:10:00[Ô])
hora2 = CDate([Ô]01/01/2012 02:15:00[Ô])

Dim horasoma As Date
horasoma = Format(hora1 + hora2, [Ô]hh:mm:ss[Ô])
MsgBox horasoma
ALTAIR148 05/01/2012 16:47:39
#392484
KERPLUNK quando tento executar dá o erri abaixo.



Conversion from string [Ô]hh:mm:ss[Ô] to type [ô]Date[ô] is not valid.

Obrigado
KERPLUNK 05/01/2012 16:50:00
#392486
Em qual linha? Testei aqui e funciona certinho...
ALTAIR148 05/01/2012 16:52:38
#392488
Aqui acontece o erro nessa linha

horasoma = Format(hora1 + hora2, [Ô]hh:mm:ss[Ô])


Obrigado
TECLA 05/01/2012 17:01:31
#392489
dim t1 as timespan(3,30,0)
dim t2 as timespan(1,0,0)
dim ret as string = t2.add(t1).tostring()
KERPLUNK 05/01/2012 17:12:12
#392490
AH!!! Vb.Net... ok, vejamos...
Dim hora1 As Date
Dim hora2 As Date
hora1 = CDate([Ô]01:10:00[Ô])
hora2 = CDate([Ô]02:15:00[Ô])

Dim horasoma As Date
Dim intervalo As New Microsoft.VisualBasic.DateInterval

horasoma = hora2.AddHours(hora1.Hour).AddMinutes(hora1.Minute).AddSeconds(hora1.Second)
MsgBox(horasoma)

assim deve funcioonar...
ALTAIR148 05/01/2012 17:18:55
#392492
KERPLUNK...

Perfeito... Vlw ai mais uma vez.....

Obrigado....
Tópico encerrado , respostas não são mais permitidas
Voltar