[SerializableAttribute]
public class YearlyRecurrenceRule : RecurrenceRule

<SerializableAttribute>
Public Class YearlyRecurrenceRule
	Inherits RecurrenceRule

[SerializableAttribute]
public ref class YearlyRecurrenceRule : public RecurrenceRule

[<SerializableAttribute>]
type YearlyRecurrenceRule =  
    class
        inherit RecurrenceRule
    end

using System;
using Kettic.AspNet.Controls;

namespace RecurrenceExamples
{
    class YearlyRecurrenceRuleExample1
    {
        static void Main()
        {
            // Creates a sample appointment that starts at 4/1/2007 10:00 AM (local time) and lasts half an hour.
            Appointment recurringAppointment = new Appointment("1", Convert.ToDateTime("4/1/2007 10:00 AM"),
                Convert.ToDateTime("4/1/2007 10:30 AM"), "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 1th of April each year.
            YearlyRecurrenceRule rrule = new YearlyRecurrenceRule(RecurrenceMonth.April, 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: 4/1/2007 10:00:00 AM
 2: 4/1/2008 10:00:00 AM
 3: 4/1/2009 10:00:00 AM
 4: 4/1/2010 10:00:00 AM
 5: 4/1/2011 10:00:00 AM*/

Imports System
Imports Kettic.AspNet.Controls

Namespace RecurrenceExamples
    Class YearlyRecurrenceRuleExample1
        Shared Sub Main()
            ' Creates a sample appointment that starts at 4/1/2007 10:00 AM (local time) and lasts half an hour.
            Dim recurringAppointment As New Appointment("1", Convert.ToDateTime("4/1/2007 10:00 AM"), Convert.ToDateTime("4/1/2007 10:30 AM"), "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 1th of April each year.
            Dim rrule As New YearlyRecurrenceRule(RecurrenceMonth.April, 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: 4/1/2007 10:00:00 AM
' 2: 4/1/2008 10:00:00 AM
' 3: 4/1/2009 10:00:00 AM
' 4: 4/1/2010 10:00:00 AM
' 5: 4/1/2011 10:00:00 AM
'

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.