Get dates from recurrence pattern

Can anyone show me how to decipher the recurrence pattern table so I can work out an algorithm for enumerating all the dates.

Is there an example on this forum, I had a look but couldn't find anything. I'll be using VB.

 

Thanks in advance,

 

Joe

 

Thanks in advance,

 

 

I think that the better way to retrieve all the events including recurring events is to use the RetrieveDayEvents method from the CalendarControl ActiveX that will do all the work.

 

Below a little code to quickly show one way to do the job:

 

' ---------- the definition of the events collection to be return (can be extented) 

Private Type MyEvents
    StartTime   As Date
    EndTime     As Date
    Subject As String
End Type

 

' ---------- The call of the subroutine

Private Sub FindEvents()
Dim FindEvents() As MyEvents, EvtCount As Long
Dim DateStart As Date, DateEnd As Date
Dim pEvent As CalendarEvent, i As Long

 

    ' *** Find events from now plus 6 days
    EvtCount = 0
    ReDim FindEvents(EvtCount)
    DateStart = Now
    DateEnd = DateAdd("d", 6, DateStart)
    ' *** the subroutine
    FindAllEvents DateStart, DateEnd, EvtCount, FindEvents()
    ' *** view the events
    For i = 1 To EvtCount
        Debug.Print FindEvents(i).StartTime & "-" & FindEvents(i).EndTime & "-" & FindEvents(i).Subject
    Next
End Sub

 

' ---------- The subroutine (the search for each day in the periode)

Private Sub FindAllEvents(DateStart As Date, DateEnd As Date, EvtCount As Long, FindEvents() As MyEvents)
Dim Events As CalendarEvents, Day As Date
Dim pEvent As CalendarEvent

 

    Day = DateStart
    Do
        Set Events = CalendarControl.DataProvider.RetrieveDayEvents(Day)
        For Each pEvent In Events
            EvtCount = EvtCount + 1
            ReDim Preserve FindEvents(EvtCount)
            FindEvents(EvtCount).StartTime = pEvent.StartTime
            FindEvents(EvtCount).EndTime = pEvent.EndTime
            FindEvents(EvtCount).Subject = pEvent.Subject
        Next
        Day = DateAdd("d", 1, Day)
    Loop Until Day > DateEnd
End Sub

 

 

I hope it can help you.