Calculate number of minutes between Midnight + 1 minute, and a Start Time later that day

[DubCap01]

Hi all,

Sorry, please ignore the "+ 1 minute" in the subject title

I need to update a table field (Table = TblNoPTV; Field = StartMins) with the number of minutes between Midnight (0:00am?) and the start time of an event. Events in this table can be stored on any day of current month, so the date should not really play a part in it.

Example:
Date 31-Mar-15, Event Start Time 8:29am, so updated field to reflect the value 509
Date 24-Mar-15, Event Start Time 12:29pm, so updated field to reflect the value 749

If I can get this working, I can help our hospital to channel their resources at peak times in different areas/zones, enhancing clinical quality and patient safety.



Many thanks in anticipation folks!

Pete

[CJ_London]

try

datepart("n",eventdate)

[CJ_London]

sorry didn't finish the answer


datepart("n",eventdate)+(60* datepart("h",eventdate))

[ssanfu]

This also works

Sub MinuteTest()

    Dim StartTime As Date
    Dim EndTime As Date

    StartTime = #12:00:00 AM#
    EndTime = #8:29:00 AM#

    MsgBox DateDiff("n", StartTime, EndTime)

    StartTime = #12:00:00 AM#
    EndTime = #12:29:00 PM#

    MsgBox DateDiff("n", StartTime, EndTime)

End Sub

[DubCap01]

Thanks all,

Steve, used your version

cheers
Pete