Foro de elhacker.net

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:

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.

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!

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!