rasape
23 de Marzo del 2006

Hola a tod@s

Me gustaria saber si existe alguna funcion para pasar de minutos a horas y minutos.


He probado :

Dim tiempo as integer

Dim h, m as integer

Tiempo=100

h= tiempo/60

m=tiempo Mod 60

Pero al hacer :

Dim salida as string

h = Format(h, \"##\")

salida=h & “:” & m

me saca resultados no correctos

Es decir si tengo minutos 100, la salida tendria que ser 1:40, y no 2:40 como sale

Gracias

mvallejos
23 de Marzo del 2006

Creo que el problema está aquí

Dim h, m as integer

Donde m queda como integer y h como variant, con los cual en la operacion

h= tiempo/60 queda en h 1.666...., de este modo, el formateo te lo redondea a 2

Fijate esto

Dim h as Integer, m as integer

h= Fix(tiempo / 60)
m = Tiempo - (h*60)

Saludos

Rasape
23 de Marzo del 2006

Muchisimaaaas gracias, te estoy muy agradecido, me has resuelto una duda grandisima y gracias a ti he podido terminar mi aplicacion.

Muchas gracias.