I need to calculate the difference of time in minutes. For example, 3:00PM to 5:30PM is 150
minutes. Can you help me out? Thank you.
Dim ndtFirst As NotesDateTime Dim ndtLast As NotesDateTime Dim iDiffInMinutes As Long Dim iDiffInSeconds As Long Set ndtFirst = New NotesDateTime("3:00 PM") Set ndtLast = New NotesDateTime("5:30 PM") Print ndtLast.LSLocalTime Print ndtFirst.LSLocalTime iDiffInSeconds = ndtLast.TimeDifference(ndtFirst) Print iDiffInSeconds iDiffInMinutes = (iDiffInSeconds / 60) Print "Diff in minutes is " & iDiffInMinutes
In Function Language:
T1 := [03:00:00 PM]; T2 := [05:30:00 PM]; T3 := T2 - T1; @Prompt([OK];"T3";@Text(T3)); T4 := T3 / 60; @Prompt([OK];"T4";@Text(T4))
This was first published in April 2002