OccurrenceCalculator.CreateInstance(RecurrenceInfo) Method

Creates an instance of the OccurrenceCalculator inheritor according to the specified recurrence type.

Namespace: DevExpress.XtraScheduler

Assembly: DevExpress.XtraScheduler.v14.2.Core.dll

Declaration

C#

public static OccurrenceCalculator CreateInstance(
    RecurrenceInfo info
)

VB.NET

Public Shared Function CreateInstance(
    info As RecurrenceInfo
) As OccurrenceCalculator

Parameters

Name	Type	Description
info	RecurrenceInfo	A RecurrenceInfo class instance specifying the type of calculator being created.

Returns

Type	Description
OccurrenceCalculator	An OccurrenceCalculator inheritor instance.

Examples

The following code sample adds the pattern for recurring appointments to the scheduler's storage and replaces all occurrences with appointments of the AppointmentType.Normal type. It uses the OccurrenceCalculator.CalcOccurrences method to calculate the recurrent series.

C#

using DevExpress.XtraScheduler;
// ...

private void Button_Click(object sender, RoutedEventArgs e) {

    // Add new appointment pattern
    Appointment apt = schedulerControl1.Storage.CreateAppointment(AppointmentType.Pattern);
    apt.Subject = "MyTestAppointment";
    apt.RecurrenceInfo.Type = RecurrenceType.Daily;
    apt.RecurrenceInfo.Start = DateTime.Now;
    apt.RecurrenceInfo.End = apt.RecurrenceInfo.Start.AddDays(15);
    apt.RecurrenceInfo.Range = RecurrenceRange.EndByDate;
    schedulerControl1.Storage.AppointmentStorage.Add(apt);

    // Calculate occurrences
    Appointment pattern = schedulerControl1.Storage.AppointmentStorage.Items.Find(
        delegate(Appointment item) { return item.Subject == "MyTestAppointment"; });
    OccurrenceCalculator calc =
        OccurrenceCalculator.CreateInstance(pattern.RecurrenceInfo);
    TimeInterval ttc = new TimeInterval(pattern.RecurrenceInfo.Start,
        pattern.RecurrenceInfo.End + new TimeSpan(1, 0, 0));
    AppointmentBaseCollection apts = calc.CalcOccurrences(ttc, pattern);
    Appointment occurrence = null;

    // Create normal appointments
    schedulerControl1.Storage.BeginUpdate();
    for (int i = 0; i < apts.Count; i++) {
        occurrence = schedulerControl1.Storage.CreateAppointment(AppointmentType.Normal);
        occurrence.Subject = apts[i].Subject;
        occurrence.Description = apts[i].Description;
        occurrence.Start = apts[i].Start;
        occurrence.End = apts[i].End;
        schedulerControl1.Storage.AppointmentStorage.Add(occurrence);
    }
    schedulerControl1.Storage.EndUpdate();

    // Remove the pattern and occurrences
    schedulerControl1.Storage.AppointmentStorage.Remove(pattern);
}

VB.NET

Imports DevExpress.XtraScheduler
' ... 
Private Sub Button_Click(sender As Object, e As RoutedEventArgs) Handles Button.Click
    Dim apt As Appointment = SchedulerControl1.Storage.CreateAppointment(AppointmentType.Pattern)
    apt.Subject = "MyTestAppointment"
    apt.RecurrenceInfo.Type = RecurrenceType.Daily
    apt.RecurrenceInfo.Start = DateTime.Now
    apt.RecurrenceInfo.End = apt.RecurrenceInfo.Start.AddDays(15)
    apt.RecurrenceInfo.Range = RecurrenceRange.EndByDate
    SchedulerControl1.Storage.AppointmentStorage.Add(apt)

    ' Calculate occurrences
    Dim pattern As Appointment = _
        SchedulerControl1.Storage.AppointmentStorage.Items.Find(AddressOf FindMyAppointment)
    Dim calc As OccurrenceCalculator = _
        OccurrenceCalculator.CreateInstance(pattern.RecurrenceInfo)
    Dim ttc As TimeInterval = New TimeInterval(pattern.RecurrenceInfo.Start, _
        pattern.RecurrenceInfo.End + New TimeSpan(1, 0, 0))
    Dim apts As AppointmentBaseCollection = calc.CalcOccurrences(ttc, pattern)
    Dim occurrence As Appointment = Nothing

    ' Create normal appointments
    SchedulerControl1.Storage.BeginUpdate()
    Dim i As Integer = 0
    Do While i < apts.Count
        occurrence = New Appointment(AppointmentType.Normal)
        occurrence.Subject = apts(i).Subject
        occurrence.Description = apts(i).Description
        occurrence.Start = apts(i).Start
        occurrence.End = apts(i).End
        SchedulerControl1.Storage.AppointmentStorage.Add(occurrence)
        i += 1
    Loop
    SchedulerControl1.Storage.EndUpdate()

    ' Remove recurrent pattern and occurrences
    SchedulerControl1.Storage.AppointmentStorage.Remove(pattern)
End Sub

Function FindMyAppointment(ByVal item As Appointment) As Boolean
    If item.Subject = "MyTestAppointment" Then
        Return True
    Else
        Return False
    End If
End Function