Ok...The function is working correctly....
Code:
Public Function ActualTimeWorked(mins As Long) As String
Dim dd As Long, hh As Long, nn As Long
dd = mins \ 1440
hh = (mins - (dd * 1440)) \ 60
nn = mins Mod 60
ActualTimeWorked = Format(dd, "000") & " " & "Days" & ":" & " " & Format(hh, "00") & " " & "Hrs" & " & " & Format(nn, "00") & " " & "Min"
End Function
I changed mins from As Double to As Long and changed mm to nn as a buddy of mine pointed out.
The next step, I need to do is to address years in min.
Code:
Public Function ActualTimeWorked(mins As Long) As String
Dim yy As Long, dd As Long, hh As Long, nn As Long
yy = mins * 60
dd = mins \ 1440
hh = (mins - (dd * 1440)) \ 60
nn = mins Mod 60
ActualTimeWorked = Format(dd, "000") & " " & "Days" & ":" & " " & Format(hh, "00") & " " & "Hrs" & " & " & Format(nn, "00") & " " & "Min"
End Function
This is not working:
I show 60 minutes in an hour. 24 hours in a day. 365 days in a year. So:
60 times 24= 1440 (1440 minutes in a day.)
1440 times 365= 525600 (525600 minutes in a year.)
unless its a leap yr.
Need assistance on getting the year figured out.
Wasp1