SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Angel38 en Jueves 22 de Diciembre de 2005, 14:26

Título: Promediar 3 Tiempos
Publicado por: Angel38 en Jueves 22 de Diciembre de 2005, 14:26

Hola amigos, en mi anterior pregunta tal vez no me exprese bien.

La voy a explicar un poco mejor y si no obtengo ayuda les prometo que desistire.

Tengo estas variables

t1="05:00:00"
t2="01:00:00"
t3="03:00:00"

Para el promedio sumo los tiempos y divido por el la cantidad de tiempos sumados.

suma=format(timevalue(t1)) +format(timevalue(t2)) +format(timevalue(t3),"hh:mm:ss")

' Esta suma la hace perfecta, me da suma="09:00:00", entoces codifico para el promedio

promedio=suma/3

'Promedio no hace esta operacion. Si alguien sabe de algun truco le agradeceria.  :unsure:

Título: Re: Promediar 3 Tiempos
Publicado por: Angel38 en Jueves 22 de Diciembre de 2005, 14:40

:P  Tenia que utilizar format(promedio,"hh:mm:ss") para que apareciera el valor en unidades de horas.

 :blink:

Toy aprendiendo, toy aprendiendo jejeje :devil:  :comp:

Título: Re: Promediar 3 Tiempos
Publicado por: Jose Arriagada en Viernes 23 de Diciembre de 2005, 20:15

Cambia

suma = TimeValue(t1) + TimeValue(t2) + TimeValue(t3)

Ahora te funcionara

Título: Re: Promediar 3 Tiempos
Publicado por: Jose Arriagada en Viernes 23 de Diciembre de 2005, 20:17

suma=timevalue(t1) + timevalue(t2) + timevalue(t3)

print Format(promedio, "hh:mm:ss")