Visual Basic - POR FAVOR....AYUDA!!!

Se que ya lo pregunte..... pero lo que encontre en los distintos foros no me sirvio nada...... siempre me daba el mismo error..... "type mismatch"
otra ves la pregunta.....

como puedo hacer para sumar horas?? por ejemplo:
hora1: 90:34 (dato sacado de una tabla excel)
hora2: 273:26 (sacado de otra tabla excel)
el total de la suma es: 364:00:00 que tb va a otra tabla excel..... pero al momento de sumarlos en visual me da como resultado: 273:2690:34.
Intente con las funciones Format, DateAdd, Hour, Minute pero no se por que no resultan........

Agradesco su comprension...... gracias.

Ay!
Sólo debés manejarla como String, ya que las horas no pueden superar las 24

Private Sub Command1_Click()
hh = Hour(Text1.Text) + Hour(Text2.Text)
mm = Minute(Text1.Text) + Minute(Text2.Text)
ss = Second(Text1.Text) + Second(Text2.Text)

If ss >= 60 Then
ss = "00"
mm = Val(mm) + 1
End If

If mm >= 60 Then
mm = "00"
hh = Val(hh) + 1
End If

Debug.Print "Horas del Proceso " & hh & ":" & mm & ":" & ss

End Sub

Fijaete en este link hay un ejemplo
Es un código bastante parecido :-)

http://lawebdelprogramador.com/news/mostrar_new.php?id=93&texto=Visual+Basic&n1=240725&n2=2&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Pero en la parte que dice Text1.text y Text2.text, los tengo que reemplazar por los numeros que rescate de las planillas excel..... verdad????
Asi lo hice yo:

numero1 = xlw.Application.Cells(104, 5) ' Primera hora
numero2 = xlw2.Application.Cells(60, 5) 'Segunda hora

hh = Hour(numero1) + Hour(numero2)
mm = Minute(numero1) + Minute(numero2)
ss = Second(numero1) + Second(numero2)

... pero me da el error de type mismatch

saludos

Lo que sucede es que te excedés de la cantidad horaria lógica
Es decir Hour recupera la hora y 285 no es una hora, eso es una sumatoria de horas.
Deberías usar entonces desguase de texto
Probás este código, lo modifiqué del anterior, pero sólo para Horas y minutos

Private Sub Command1_Click()
hh = Val(Mid(Text1.Text, 1, (InStr(1, Text1.Text, ":") - 1))) + Val(Mid(Text2.Text, 1, (InStr(1, Text2.Text, ":") - 1)))
mm = Val(Mid(Text1.Text, (InStr(1, Text1.Text, ":") + 1))) + Val(Mid(Text2.Text, (InStr(1, Text2.Text, ":") + 1)))

If mm >= 60 Then
mm = "00"
hh = Val(hh) + 1
End If

Debug.Print "Horas del Proceso " & hh & ":" & mm

End Sub

GRACIAS BENJO.......
AHI SI RESULTO.......
TE PASASTE

SALUDOS

Gracias Benjo por fin te hicistes una!!!, yo tambien lo necesitaba, ya era hora que resolvieras algo, gracias.