PRB: DateValue Does Not Return Time Information

MORE INFORMATION

When filtering an AppointmentItem collection you need to use code similar to the following:

   Set objAppointmentFilterField1 = _
     objAppointmentFilter.Fields.Add(ActMsgPR_START_DATE, EndTime)
   Set objAppointmentFilterField2 = _
     objAppointmentFilter.Fields.Add(ActMsgPR_END_DATE, StartTime)

NOTE: EndTime and StartTime are in vbDate format.

If you want to filter for all appointments that start after 10:00 AM on January 1, 1998, the following line will not work because DateValue does not return the time value:

   Set objAppointmentFilterField1 = _
     objAppointmentFilter.Fields.Add(ActMsgPR_START_DATE, _
     DateValue("1/2/97"))
   Set objAppointmentFilterField1 = _
     objAppointmentFilter.Fields.Add(ActMsgPR_END_DATE, _
     DateValue("1/1/98 10:00 AM"))

The code above returns all the appointments on January 1, 1998, instead of the appointments for 10:00 AM.

The proper way to use a time filter is to employ one of the following two examples:

• Set your EndTime and StartTime variables as vbDate and pass them as the second parameter to the appropriate statements:

        StartTime = #1/1/98 10:00 AM#
        EndTime = #1/2/98#
  
        Set objAppointmentFilterField1 = _
          objAppointmentFilter.Fields.Add(ActMsgPR_START_DATE, EndTime)
        Set objAppointmentFilterField2 = _
          objAppointmentFilter.Fields.Add(ActMsgPR_END_DATE, StartTime)
  						

  -or-
• Set your EndTime and StartTime variables as strings and pass them as the second parameter to the appropriate set statements:

        StartTime = "1/1/98 10:00 AM"
        EndTime = "1/2/98"
  
        Set objAppointmentFilterField1 = _
          objAppointmentFilter.Fields.Add(ActMsgPR_START_DATE, EndTime)
        Set objAppointmentFilterField2 = _
          objAppointmentFilter.Fields.Add(ActMsgPR_END_DATE, StartTime)