DateDiff Function in the Calendar Sample

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   The use of the DateDiff function in the Calendar Sample application is baffling to me.  In the frmEditEvent in the Calendar sample, the following code is listed for the SetStartEnd function,

    If AllDay Then
        cmbEndTime.Visible = False
        cmbStartTime.Visible = False

        If DateDiff("s", EndTime, 0) = 0 Then
            EndDate = EndDate - 1
        End If
    End If

        Also in the UpdateEventFromControls routine this code is listed,

    If chkAllDayEvent.Value = 1 Then
        If DateDiff("s", TimeValue(EndTime), 0) = 0 Then
            EndTime = EndTime + 1
        End If
    End If

Can someone clarify what this check is for?  I don't see why we have to add a day to the EndTime.  I don't understand why the DateDiff is being calculated against a value of 0.  I can understand that it is a comparison to see if there is a 0 value for EndTime, but why do they add the number 1 to the EndTime if the EndTime is indeed 0?  Why wouldn't they add a 1 to the StartTime instead?  Thanks for your feedback.

Sincerely,

John Coffey

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
jpcoffeyXXX Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 16 August 2005 Location: United States Status: Offline Points: 31	Post Options Post Reply Quote jpcoffeyXXX Report Post Thanks(0) Quote Reply Topic: DateDiff Function in the Calendar Sample Posted: 24 May 2009 at 3:45pm
	The use of the DateDiff function in the Calendar Sample application is baffling to me. In the frmEditEvent in the Calendar sample, the following code is listed for the SetStartEnd function, If AllDay Then cmbEndTime.Visible = False cmbStartTime.Visible = False If DateDiff("s", EndTime, 0) = 0 Then EndDate = EndDate - 1 End If End If Also in the UpdateEventFromControls routine this code is listed, If chkAllDayEvent.Value = 1 Then If DateDiff("s", TimeValue(EndTime), 0) = 0 Then EndTime = EndTime + 1 End If End If Can someone clarify what this check is for? I don't see why we have to add a day to the EndTime. I don't understand why the DateDiff is being calculated against a value of 0. I can understand that it is a comparison to see if there is a 0 value for EndTime, but why do they add the number 1 to the EndTime if the EndTime is indeed 0? Why wouldn't they add a 1 to the StartTime instead? Thanks for your feedback. Sincerely, John Coffey