Minutes into Hour

[amitabh]

Is there any predefined function which I can use to convert minutes into hours?
75 minutes should be 01:15
20 minutes should be 00:20

[Serge]

Here you go:

Public Function GetFormatTime(p_lngMinutes As Long) As String
    Dim strHour As String
    Dim strMinutes As String
    
    strHour = Format(p_lngMinutes / 60, "00")
    strMinutes = Format(p_lngMinutes Mod 60, "00")
    
    GetFormatTime = strHour & ":" & strMinutes
End Function

Then call it like this:

MsgBox GetFormatTime(75)

[sjwesley]

Try this

Private Sub Command1_Click()
    Dim d As Date
    d = Date
    d = DateAdd("n", 75, d)
    Debug.Print Format(d, "hh:mm")
End Sub

[amitabh]

Serge, your code has some problems. Try converting 20.

[amitabh]

sjwesley
Your code returns the same output always

[Tygur]

Here's a function:

Function GetHoursMinutes(ByVal lMinutes As Long) As String
Dim lHours As Long
lHours = lMinutes \ 60
lMinutes = lMinutes Mod 60
GetHoursMinutes = Format(lHours, "0#") & ":" & Format(lMinutes, "0#")
End Function

[Serge]

Oops, typo.....I had Format(strHour & ":" & strMinutes). I cant use format because Format recognizes a valid date/time.