sumar horas

[jetzona]

mister programadorvip posteo una funcion buenesima para sumar horas funciona perfectamente pero tiene un problemillas que es cuando sumamos algo como 23:45 + 03:30 deberia devolvernos 03:15 pero nos devuelve 27:15 eso no existe oviamente.... como se podrai solucionar este problema ????
la funcion es la siguiente:


Private Function sumaHoras(H1 As String, H2 As String) As String
Dim vh1 As Variant
Dim vh2 As Variant
Dim intContador As Integer
Dim vh3(2) As Long
Dim H3 As String

'Convertir a arrays
vh1 = Split(H1, ":")
vh2 = Split(H2, ":")

'Contemplar tambien los segundos
For intContador = 0 To 2

'Sumar las horas, minutos, segundos
If intContador <= UBound(vh1) Then vh3(intContador) = Val(vh1(intContador))
If intContador <= UBound(vh2) Then vh3(intContador) = vh3(intContador) + Val(vh2(intContador))
Next intContador

'Descontar las cantidades mayores de 60 en 1 y 2
vh3(1) = vh3(1) + vh3(2) \ 60
vh3(2) = vh3(2) Mod 60
vh3(0) = vh3(0) + vh3(1) \ 60
vh3(1) = vh3(1) Mod 60

'Constuir la cadena a devolver
sumaHoras = Format(vh3(0), "00") & ":" & Format(vh3(1), "00") & ":" & Format(vh3(2), "00")

End Function

[freegirl]

Podrías utilizar la función DateAdd para sumar horas.

Puedes echar una ojeada en:

http://msconline.maconstate.edu/tuto...bnet01-07.aspx

saludos

[jetzona]

por lo que veo se pueden sumar pero desde la hora del computador yo solo necesito sumar dos horas ingresadas por usuario, gracias de todos modos

[RootK]

no es necesario hacer miles de cálculos y funciones solo es adaptar un poquito el code de los métodos que nos ofrece el framework

Podría quedar así:

Código:

 
private string SumarHoras(string h1, string h2) {
        string[] arrHour1 = h1.Split(new char[] { ':' }); //23:45
        string[] arrHour2 = h2.Split(new char[] { ':' }); //3:30

        DateTime d1 = new DateTime(1900, 1, 1, Int32.Parse(arrHour1[0]), Int32.Parse(arrHour1[1]), 0);
        d1 = d1.AddHours(Int32.Parse(arrHour2[0]));
        d1 = d1.AddMinutes(Int32.Parse(arrHour2[1]));

        return d1.ToShortTimeString();
    }

y para llamarlo

Label1.Text = "La hora fin es " + SumarHoras("23:45", "03:30");

y listo.. me regresa 3:15

p.d. No es bueno usar Variant (eso era para vb6 que aún así tenía su costo)

Espero te sirva.

Salu2

[RootK]

por cierto, para vb.net quedaría así:

Código:

 Public Function SumarHoras(ByVal h1 As String, ByVal h2 As String) As String
        Dim arrHour1() As String = h1.Split(":")
        Dim arrHour2() As String = h2.Split(":")

        Dim d1 As DateTime = New DateTime(1900, 1, 1, Int32.Parse(arrHour1(0)), Int32.Parse(arrHour1(1)), 0)
        d1 = d1.AddHours(Int32.Parse(arrHour2(0)))
        d1 = d1.AddMinutes(Int32.Parse(arrHour2(1)))


        Return d1.ToShortDateString

    End Function

[Mik-El]

otra manera es utilizando la función Timevalue incluida en vb6, el codigo queda asi:

Dim vh1 As Variant
Dim vh2 As Variant

vh1 = "23:45"
vh2 = "03:30"

MsgBox Format(TimeValue(vh1) + TimeValue(vh2), "hh:mm")

[CarmenRocio]

Hola como estas. probe la funcion y no pasa nada me sale esto:02/01/1900.
mmmmmmmmm creo que lo as convertido pero bueno saben hacerlo en vb.net si es asi pasare de nuevo po aqui .Gracias.