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!