sumar horas...

[byway]

haber si me ayudan con esto d sumar horas, tomo el tiempo del sistema y le sumo por decir 1 hora para que ejecute algo y bueno lo primero que se me ocurrio hacer fue lo siguiente:

Código (vb) [Seleccionar] Expandir


Dim h, m, s As Integer
Dim h2, m2, s2 As Integer
Private Sub Timer1_Timer()
hora.Caption = Time$
End Sub

Private Sub Command1_Click()

h = Val(Left(hora.Caption, 2))
m = Val(Mid(hora.Caption, 4, 2))
s = Val(Right(hora.Caption, 2))

h2 = Val(Left(hora2.Text, 2))
m2 = Val(Mid(hora2.Text, 4, 2))
s2 = Val(Right(hora2.Text, 2))

kk = Format(h + h2 & ":" & m + m2 & ":" & s + s2)

End Sub


esta algo chapusero ... jeje haber si me dan una idea de como hacer para que al sumarle mas horas no sobrepase de las 24 horas.

[Shell Root]

Creo que es mejor usar la función DateAdd(), no os dejeis llevar por el nombre de la función. Por ejemplo:

Son las 12/03/2010 11:23:23 p.m., Le podemos sumar Horas, Minutos, Segundos. Por ejemplo: Sumemosle 2 Horas, sin afectar las 24 Horas!

Código (vb) [Seleccionar] Expandir

DateAdd("h", 2, Now)
La fecha quedará así: 13/03/2010 01:23:23 a.m.
Como viste, tambien cambia el dia.

Recordad:

Expresión	Valor
yyyy	Año
m	Mes
y	Dia del Año
d	Dia
w	Dia de la Semana
ww	Semana
h	Hora
n	Minuto
s	Segundo

Saludos!