Shadey Shades 13.Feb.12 07:49 AM a Web browser
Domino Designer All Releases All Platforms
We need to calculate the difference between two times (HH:MM) and display the result in the same format.
Using TimeDifference is successful for working out the difference in minutes but we can't present the result successfully in HH:MM again.
For example, the difference between 11:45 and 13:47 is 122 minutes but how can we convert this to 02:02 (or 2:02 for H:MM)?
We're using Date/Time fields showing Hours and Minutes on the form.
Any assistance gratefully received.
(We'll then need to total up all shifts for net totals but that's a challenge for another day....)
-------
Sub Click(Source As Button)
Dim uiWorkspace As New NotesUIWorkspace
Dim DocCurrent As NotesUIDocument
Set DocCurrent = uiWorkspace.CurrentDocument
Dim shiftIn As NotesDateTime
Dim shiftOut As NotesDateTime
Dim shiftBalance As NotesDateTime
Dim counter As Integer
Set shiftIn = New NotesDateTime(DocCurrent.FieldGetText("dtmShiftIn01"))
Set shiftOut = New NotesDateTime(DocCurrent.FieldGetText("dtmShiftOut01"))
If shiftOut.TimeDifference( shiftIn ) > 0 Then
counter = (shiftOut.TimeDifference(shiftIn)/60)
Call DocCurrent.FieldSetText("txtShift", Cstr(counter)) 'presents difference in minutes
'failed attempts at converting integer to HH:MM
'Call DocCurrent.FieldSetText("txtTest_1", Format(txtTest, "Short Time"))
'Call DocCurrent.FieldSetText("dtmShiftTotal01", Format(DocCurrent.FieldGetText("txtTest"), "h:mm"))
End If
theend:
End Sub
 Time Difference in HH:MM (convert i... (Shadey Shades 13.Feb.12)
 . . RE: Time Difference in HH:MM (conve... (Nigel AS 13.Feb.12)
. . . . RE: Time Difference in HH:MM (conve... (Shadey Shades 14.Feb.12)
. . . . . . RE: Time Difference in HH:MM (conve... (Pete Burn 14.Feb.12)
. . . . . . . . RE: Time Difference in HH:MM (conve... (Stan Rogers 16.Feb.12)
| 
Return to top
Print this page
