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

Life is soft - evento anual de software empresarial
 
Vista:

POR FAVOR....AYUDA!!!

Publicado por mcnamara (32 intervenciones) el 01/03/2005 18:58:41
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:POR FAVOR....AYUDA!!!

Publicado por Christian (675 intervenciones) el 01/03/2005 19:13:12
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:POR FAVOR....AYUDA!!!

Publicado por Benjo (679 intervenciones) el 01/03/2005 19:15:26
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:POR FAVOR....AYUDA!!!

Publicado por mcnamara (32 intervenciones) el 01/03/2005 19:30:58
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:POR FAVOR....AYUDA!!!

Publicado por Benjo (679 intervenciones) el 01/03/2005 19:49:01
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

TE PASASTE COMPADRE...

Publicado por mcnamara (32 intervenciones) el 01/03/2005 20:12:02
GRACIAS BENJO.......
AHI SI RESULTO.......
TE PASASTE

SALUDOS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:TE PASASTE COMPADRE...

Publicado por aaa (54 intervenciones) el 01/03/2005 20:18:02
Gracias Benjo por fin te hicistes una!!!, yo tambien lo necesitaba, ya era hora que resolvieras algo, gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar