MonthlyRecurrenceRule

using System;
using Telerik.Web.UI;

namespace RecurrenceExamples
{
class MonthlyRecurrenceRuleExample1
{
static void Main()
{
// Creates a sample appointment that starts at 6/1/2007 3:30 PM (local time) and lasts half an hour.
Appointment recurringAppointment = new Appointment("1", Convert.ToDateTime("6/1/2007 3:30 PM"),
Convert.ToDateTime("6/1/2007 4:00 PM"), "Sample appointment");

// Creates a recurrence range, that specifies a limit of 10 occurrences for the appointment.
RecurrenceRange range = new RecurrenceRange();
range.Start = recurringAppointment.Start;
range.EventDuration = recurringAppointment.End - recurringAppointment.Start;
range.MaxOccurrences = 5;

// Creates a recurrence rule to repeat the appointment on the 5th day of every month.
MonthlyRecurrenceRule rrule = new MonthlyRecurrenceRule(5, 1, range);

Console.WriteLine("Appointment occurrs at the following times: ");
int ix = 0;
foreach (DateTime occurrence in rrule.Occurrences)
{
ix = ix + 1;
Console.WriteLine("{0,2}: {1}", ix, occurrence.ToLocalTime());
}
}
}
}

/*
This example produces the following results:

Appointment occurrs at the following times:
1: 6/5/2007 3:30:00 PM
2: 7/5/2007 3:30:00 PM
3: 8/5/2007 3:30:00 PM
4: 9/5/2007 3:30:00 PM
5: 10/5/2007 3:30:00 PM
*/

Imports System
Imports Telerik.Web.UI

Namespace RecurrenceExamples
Class MonthlyRecurrenceRuleExample1
Shared Sub Main()
' Creates a sample appointment that starts at 6/1/2007 3:30 PM (local time) and lasts half an hour.
Dim recurringAppointment As New Appointment("1", Convert.ToDateTime("6/1/2007 3:30 PM"), Convert.ToDateTime("6/1/2007 4:00 PM"), "Sample appointment")

' Creates a recurrence range, that specifies a limit of 10 occurrences for the appointment.
Dim range As New RecurrenceRange()
range.Start = recurringAppointment.Start
range.EventDuration = recurringAppointment.[End] - recurringAppointment.Start
range.MaxOccurrences = 5

' Creates a recurrence rule to repeat the appointment on the 5th day of every month.
Dim rrule As New MonthlyRecurrenceRule(5, 1, range)

Console.WriteLine("Appointment occurrs at the following times: ")
Dim ix As Integer = 0
For Each occurrence As DateTime In rrule.Occurrences
ix = ix + 1
Console.WriteLine("{0,2}: {1}", ix, occurrence.ToLocalTime())
Next
End Sub
End Class
End Namespace

'
'This example produces the following results:
'
'Appointment occurrs at the following times:
' 1: 6/5/2007 3:30:00 PM
' 2: 7/5/2007 3:30:00 PM
' 3: 8/5/2007 3:30:00 PM
' 4: 9/5/2007 3:30:00 PM
' 5: 10/5/2007 3:30:00 PM
'

using System;
using Telerik.Web.UI;

namespace RecurrenceExamples
{
class MonthlyRecurrenceRuleExample2
{
static void Main()
{
// Creates a sample appointment that starts at 6/1/2007 3:30 PM (local time) and lasts half an hour.
Appointment recurringAppointment = new Appointment("1", Convert.ToDateTime("6/1/2007 3:30 PM"),
Convert.ToDateTime("6/1/2007 4:00 PM"), "Sample appointment");

// Creates a recurrence range, that specifies a limit of 10 occurrences for the appointment.
RecurrenceRange range = new RecurrenceRange();
range.Start = recurringAppointment.Start;
range.EventDuration = recurringAppointment.End - recurringAppointment.Start;
range.MaxOccurrences = 5;

// Creates a recurrence rule to repeat the appointment on the last monday of every two months.
MonthlyRecurrenceRule rrule = new MonthlyRecurrenceRule(-1, RecurrenceDay.Monday, 2, range);

Console.WriteLine("Appointment occurrs at the following times: ");
int ix = 0;
foreach (DateTime occurrence in rrule.Occurrences)
{
ix = ix + 1;
Console.WriteLine("{0,2}: {1}", ix, occurrence.ToLocalTime());
}
}
}
}

/*
This example produces the following results:

Appointment occurrs at the following times:
1: 6/25/2007 3:30:00 PM
2: 8/27/2007 3:30:00 PM
3: 10/29/2007 2:30:00 PM
4: 12/31/2007 2:30:00 PM
5: 2/25/2008 2:30:00 PM
*/

Imports System
Imports Telerik.Web.UI

Namespace RecurrenceExamples
Class MonthlyRecurrenceRuleExample2
Shared Sub Main()
' Creates a sample appointment that starts at 6/1/2007 3:30 PM (local time) and lasts half an hour.
Dim recurringAppointment As New Appointment("1", Convert.ToDateTime("6/1/2007 3:30 PM"), Convert.ToDateTime("6/1/2007 4:00 PM"), "Sample appointment")

' Creates a recurrence range, that specifies a limit of 10 occurrences for the appointment.
Dim range As New RecurrenceRange()
range.Start = recurringAppointment.Start
range.EventDuration = recurringAppointment.[End] - recurringAppointment.Start
range.MaxOccurrences = 5

' Creates a recurrence rule to repeat the appointment on the last monday of every two months.
Dim rrule As New MonthlyRecurrenceRule(-1, RecurrenceDay.Monday, 2, range)

Console.WriteLine("Appointment occurrs at the following times: ")
Dim ix As Integer = 0
For Each occurrence As DateTime In rrule.Occurrences
ix = ix + 1
Console.WriteLine("{0,2}: {1}", ix, occurrence.ToLocalTime())
Next
End Sub
End Class
End Namespace

'
'This example produces the following results:
'
'Appointment occurrs at the following times:
' 1: 6/25/2007 3:30:00 PM
' 2: 8/27/2007 3:30:00 PM
' 3: 10/29/2007 2:30:00 PM
' 4: 12/31/2007 2:30:00 PM
' 5: 2/25/2008 2:30:00 PM
'