minute converter

[bagman]

Hey people,

I was wondering how i split say 200 minutes into hours and minutes...


I display the "minutes" in one label (using a scroll bar) and then show (next to) that calculated into "hours and minutes" (2 seperate labels)...

Thanks

 

[jmarler]

Here is some code that should do what you want . . .

dim intHours as integer
dim intMinutes as integer

intMinutes = 200
intHours = cint(intMinutes/60)
intMinutes = intMinutes - (intHours*60)

- Jeff Marler B-)

 

[scorpio66]

hours = lmin \ 60
minutes = lmin mod 60

Chaz

 

[jjames]

Another alternative....

Public Function ConvertMinutes(iMinutes As Integer) As Variant

ConvertMinutes = DateAdd("n", iMinutes, #12:00:00 AM#)

End Function

'Call example...

Label1.Caption = ConvertMinutes(200)

 

[MichaelRed]

? Format(200/(60 * 24), "Short Time&quot
03:20

MichaelRed
mred@att.net

There is never time to do it right but there is always time to do it over

 

[strongm]

The problem with the Format solution is that it produces incorrect results for the given problem once the number of minutes reaches and/or exceeds 1440