Jaren: code

Dit is de klasse die we gebruiken:
Public Class jaar
Dim p_jaartal As Integer
Public Property jaartal() As Integer
Get
Return p_jaartal
End Get
Set(ByVal Value As Integer)
If Not Value < 1 Then p_jaartal = Value
End Set
End Property

ReadOnly Property schrikkel() As Boolean
Get
If p_jaartal Mod 100 = 0 Then
If p_jaartal Mod 400 = 0 Then schrikkel = True
Else
    If p_jaartal Mod 4 = 0 Then
      schrikkel = True
      Else
      schrikkel = False
    End If
End If
End Get
End Property

ReadOnly Property eeuw() As Integer
Get
Return (((p_jaartal) + 1) \ 100) + 1
End Get
End Property

ReadOnly Property kerstmis() As String
Get
Dim kerstdag As Date
kerstdag = DateSerial(p_jaartal, 12, 25)
Select Case kerstdag.DayOfWeek
    Case DayOfWeek.Monday
      Return "maandag"
    Case DayOfWeek.Tuesday
      Return "dinsdag"
    Case DayOfWeek.Wednesday
      Return "woensdag"
    Case DayOfWeek.Thursday
      Return "donderdag"
    Case DayOfWeek.Friday
      Return "vrijdag"
    Case DayOfWeek.Saturday
      Return "zaterdag"
    Case DayOfWeek.Sunday
      Return "zondag"
End Select
End Get
End Property
End Class
En het programma:
Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
Try
Dim j As New jaar
If Not IsNumeric(Me.txtJaartal.Text) Then
MsgBox("Het jaartal moet een getal zijn")
End If
j.jaartal = CInt(Me.txtJaartal.Text)
Me.lblResultaat.Text = "Jaar: " & j.jaartal & vbCrLf
Me.lblResultaat.Text &= "Schrikkeljaar?: " & j.schrikkel & vbCrLf
Me.lblResultaat.Text &= "Eeuw: " & j.eeuw & vbCrLf
Me.lblResultaat.Text &= "Kerstmis valt op een " & j.kerstmis
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub