Programación General > Visual Basic 6.0 e inferiores

 Problema Con Suma De Tiempos.

(1/2) > >>

Angel38:
Hola amigos.


Se me presentó un problema el cual nunca lo tuve como opción. :P


Pasa que sumaba las horas, pero como siempre sumaba por minutos, nunca tuve problemas, ahora bien, llegó a 23:59:59 y cuando quize sumar cinco horas más, me aparecieron exactamente, es decir que las 24 horas se perdieron.

Lo que pienso es que cuando llega a 24:00:00 horas, se convierte en 00:00:00 y empieza a sumar de nuevo.

Alguno sabe como darle solucion a ese problema y que me llegue a mostrar 25:00:00 u horas mayores que 24.

ArKaNtOs:
Dim x1 As String, x2 As String, cadena As String, s As Byte, m As Byte, h As Byte
Private Sub Command1_Click()
s = 0: m = 0: h = 0
x1 = "05:10:53"
x2 = "23:22:09"
s = Val(Right(x1, 2)) + Val(Right(x2, 2))
If s >= 60 Then s = s - 60: m = m + 1
m = m + Val(Mid(x1, 4, 2)) + Val(Mid(x2, 4, 2))
If m >= 60 Then m = m - 60: h = h + 1
h = h + Val(Left(x1, 2)) + Val(Left(x2, 2))
cadena = h & ":" & m & ":" & s
MsgBox cadena
End Sub

Espero sea lo q necesites :)  :kicking:

Angel38:
Gracias Arkantos.  :hola:

Angel38:
Me gustaria saber si hay una forma de hacerlo con este tipo de formato.


Sumatiempo= Format(TimeValue(Txthora1.text) + TimeValue(Txhora2.text))


Gracias por su ayuda.

ArKaNtOs:
que yo sepa nop :P pero porque no lo que te di haslo en una funcion algo mas o menos asi

--- Código: Text ---Private Sub Command1_Click()MsgBox sumatime(Time, Time)End Sub Public Function sumatime(ByVal Hora1 As String, Hora2 As String) As StringDim s As String, m As String, h As Strings = 0: m = 0: h = 0Hora1 = Format(Hora1, "HH:MM:SS")Hora2 = Format(Hora2, "HH:MM:SS")s = Val(Right(Hora1, 2)) + Val(Right(Hora2, 2))If s >= 60 Then s = s - 60: m = m + 1m = m + Val(Mid(Hora1, 4, 2)) + Val(Mid(Hora2, 4, 2))If m >= 60 Then m = m - 60: h = h + 1h = h + Val(Left(Hora1, 2)) + Val(Left(Hora2, 2))s = IIf(Len(s) = 1, 0 & s, s)m = IIf(Len(m) = 1, 0 & m, m)h = IIf(Len(h) = 1, 0 & h, h)sumatime = h & ":" & m & ":" & sEnd Function  

Navegación

[0] Índice de Mensajes

[#] Página Siguiente