Dim StartDate As String, EndDate As String
StartDate=DateTime.Add(DateTime.Now,0,0,-1)
DateTime.DateFormat="dd MMM yyyy"
DateTime.TimeFormat="HH:mm"
Log("Start date is " & DateTime.Date(StartDate))
'Make sure time starts at Midnight
StartDate=DateTime.DateParse(DateTime.Date(StartDate))
DateTime.DateFormat="dd MMM yyyy"
EndDate=DateTime.Add(StartDate,0,0,3)
Log("End date is " & DateTime.Date(EndDate))
mycalendarlist = cal.GetListofEventsforCalendarBetweenDates(CalendarNumber,StartDate,EndDate)
Log("Number of events in Calendar " & mycalendarlist.Size)