Microsoft KB Archive/178554

= PRB: DateValue Does Not Return Time Information =

Article ID: 178554

Article Last Modified on 3/4/2004

-

APPLIES TO


 * Microsoft Collaboration Data Objects 1.2
 * Microsoft Collaboration Data Objects 1.21

-



This article was previously published under Q178554



SYMPTOMS
The DateValue function does not appear to use time as part of its filter criteria when filtering appointments.



CAUSE
If the date argument includes time information, DateValue does not return the time. However, if the date includes invalid time information (such as "89:98"), an error occurs.



RESOLUTION
If you want to apply a filter to your AppointmentItems collection that includes time as part of either the StartTime or EndTime, do not use the DateValue function.



STATUS
This behavior is by design.



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) 

