Formatear valor de minutos entero a String de Horas y Minutos en Visual basic VB

By | 13/01/2016

A partir de un valor entero en minutos, queremos formatear que a partir de los 120 minutos, en lugar de mostrar minutos se desglose en Horas y Minutos:

Private Function FormatearMinutos(ByVal min As Integer) As String
      Try
         If min >= 120 Then
            Dim Horas As Integer = Int(min / 60)
            Dim Minutos As Integer = CInt((min / 60 - Int(min / 60)) * 60)
            If Minutos = 0 Then
               Return Int(min / 60) & " horas."
            Else
               Return Int(min / 60) & " horas, " & CInt((min / 60 - Int(min / 60)) * 60) & " min."
            End If
         Else
            Return min & " min."
         End If
      Catch ex As Exception
         Response.Write("ERROR: " & ex.Message)
      End Try
      Return ""
   End Function