Using time functions

[George]

Good Day all,



I am trying to create a time monitor that records when a worker is late or early.

The schedule time of arrival is in a control "Schedule_Time" on the form
I am using the time of arrival as the now() function.
The worker is given a 15 minutes allowance on the schedule time of arrival

To compare the times for late or early conditions this is my code:

If Now() < Me.Shedule_Arrival + 15 Then
MsgBox "I am Late"
Else
MsgBox "I am Early"
End If

I am not getting the expected results even when I wrap the function with timeValue like so:

If TimeValue(Now()) < timeValue(Me.Shedule_Arrival) + 15 Then
MsgBox "I am Late"
Else
MsgBox "I am Early"
End If

I would be grateful for an explanation

[ranman256]

in access, time math is done with DATEDIFF, DATEADD
so
If Now() < dateAdd(15,"n",Shedule_Arrival) Then

[ssanfu]

From Access HELP:

Date Data Type
Date variables are stored as IEEE 64-bit (8-byte) floating-point numbers that represent dates ranging from 1 January 100 to 31 December 9999 and times from 0:00:00 to 23:59:59.

When other numeric types are converted to Date, values to the left of the decimal represent date information while values to the right of the decimal represent time. Midnight is 0 and midday is 0.5. Negative whole numbers represent dates before 30 December 1899.

So when you entered
If Now() < Me.Shedule_Arrival + 15 Then
you were saying "Add 15 DAYS to the control named Me.Shedule_Arrival.

To add 15 MINUTES, you would add a value of approx. 0.0104.

Your code would be

If Now() < Me.Shedule_Arrival + 0.0104 Then
    MsgBox "I am Early"
    Else
    MsgBox "I am Late"
  End If

But would need to swap the true and false responses. (see above)


You could use:

    Dim ClockedIn As Date
    ClockedIn = Now()


    Select Case ClockedIn

        Case Is < Me.Shedule_Arrival
            MsgBox "I am Early"
        Case Me.Shedule_Arrival To (Me.Shedule_Arrival + 0.0104)
            MsgBox "I am On Time"
        Case Is > (Me.Shedule_Arrival + 0.0104)
            MsgBox "I am Late"
    End Select

[George]

This was a long challenging day with a very steep learning curve; but I made it. Thanks very much for the introduction of these functions.

[George]

in access, time math is done with DATEDIFF, DATEADD
so
If Now() < dateAdd(15,"n",Shedule_Arrival) Then

This was a long challenging day with a very steep learning curve; but I made it. Thanks very much for the introduction of these functions.