ucCalendar (Events calendar)

[DaveDavis]

There're few errors during running the updated demo.
1. It's either data in db for "StartTime" and "EndTime" or Date and Time Formats issue between your PC and my PC region settings.

If StartTime > EndTime Then
        'Err.Raise 100, , "Start time cannot be greater than end time"
        Exit Function
End If

My vb6 is interpreting "9/5/2022 12:30:00 Am" and "5/15/2022 4:00:00 Am" but in db they are "9/5/2022 00:30:00" and "15/5/2022 04:00:00".




2. add Form1 Form_Load:

If lKey <> 0 Then ColEvents.Add cEvent, CStr(lKey)

then I can run the demo with two modifications.