Base 60 formatting of numeric field

[jghogue]

Greetings All,



I have a form that asks for the number of minutes it takes to perform a task. I would like for the user to enter the value with this mask: hh:mm. I want the data stored in the table as whole minutes so an entry of 1:30 would be saved as 90. Any suggestions? BTW, vba coding is no problem.

Thanks.

jghogue

[ItsMe]

You could format an unbound textbox as "Short Time" and ...

Dim dtBase As Date
Dim dtTime As Date
Dim lngAnswer As Long

dtBase = #12:00:00 AM#
dtTime = Me.txtTime.Value

lngAnswer = DateDiff("n", dbase, dtTime)
MsgBox lngAnswer

[IrogSinta]

You could also use:
CDbl(Me.txtTime) * 1440

CDbl converts the time to a long floating point number where the decimal portion is the number of seconds past midnight. You multiply that by 1440 (60 x 24) to get the number of minutes.

Ron