Convert mins to day:hours:min

myle · #1 (**permalink**) 11-20-09, 15:41

I have a web that user are storing mins they are doing a job for

I have this code that display hh:mm

Code:

Function MintoHrs(num)
If num<60 then
MintoHrs="00:" & DIG(num)
else
hh =int(num/60)
temp = (hh*60)
MintoHrs = DIG(hh) & ":" & DIG((num-temp))
end if
End Function

but now they want to see broken down to days if > 24 hours

Teddy · #2 (**permalink**) 11-20-09, 17:05

Apply the same logic you already have there and mod hh against 24.

myle · #3 (**permalink**) 11-22-09, 23:28

me feel like a Blond

thanks

myle · #4 (**permalink**) 11-23-09, 14:52

heres the finish code

Code:

Function MintoHrs(num)
If num < 60 Then
MintoHrs = "00:" & DIG(num)
Else
hh = Int(num / 60)
temp = (hh * 60)
dd = Int(hh / 24)
If dd > 0 Then
hh = hh - (dd * 24)
dd = dd & "D:"
Else
dd = ""

End If

MintoHrs = dd & DIG(hh) & ":" & DIG((num - temp))
End If
End Function

Internet Services

Web Development

Digital Marketing

Consumer Tech