Foros del web, para los que viven de bits

paolam · 01-nov-2004, 09:08

Hola, necesito saber si alguien sabe como convertir un numero entero en hora/minutos. Por ejemplo, si tengo el nro 90, que me lo muestre como 1h : 30m.
Todo esto es en Visual Basic 6.
Gracias

RootK · 01-nov-2004, 09:17

Aqui te paso una funcion que acabo de hacer.

Cita:

Private Function CustomFormat(ByVal minutes As Integer) As String
Dim iHours As Integer
Dim iMinutes As Integer

iHours = (minutes Mod 1440) \ 60
iMinutes = (minutes Mod 1440) Mod 60

If minutes < 1440 And minutes > 59 Then
Return iHours & "h : " & iMinutes & "m"
Else
Return iMinutes & "m"
End If

End Function

Y para llamarla le pasas los minutos:

Cita:

Response.Write(CustomFormat(90))

Y te devolverá:

1h : 30m

Salu2

01-nov-2004, 09:08	#1 (permalink)
paolam Fecha de Ingreso: octubre-2003 Mensajes: 37	Convertir un nro entero en hora/minuto Hola, necesito saber si alguien sabe como convertir un numero entero en hora/minutos. Por ejemplo, si tengo el nro 90, que me lo muestre como 1h : 30m. Todo esto es en Visual Basic 6. Gracias

01-nov-2004, 09:17	#2 (permalink)
RootK Moderador Fecha de Ingreso: noviembre-2002 Ubicación: México D.F Mensajes: 7.528	Aqui te paso una funcion que acabo de hacer. Cita: Private Function CustomFormat(ByVal minutes As Integer) As String Dim iHours As Integer Dim iMinutes As Integer iHours = (minutes Mod 1440) \ 60 iMinutes = (minutes Mod 1440) Mod 60 If minutes < 1440 And minutes > 59 Then Return iHours & "h : " & iMinutes & "m" Else Return iMinutes & "m" End If End Function Y para llamarla le pasas los minutos: Cita: Response.Write(CustomFormat(90)) Y te devolverá: 1h : 30m Salu2 __________________ Nadie roba nada ya que en la vida todo se paga . . .

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado