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
