IsLeapYear                              (XAPI2000)

Deklaration VB 6.0
 Function IsLeapYear (ByVal Y As Long) As Boolean

Deklaration VB.NET
 Function IsLeapYear (ByVal Y As Integer) As Boolean

Beskrivning
Testar om ett år är ett skottår. Parametern Y specificerar det år som ska testas.  

Returvärden
Funktionen returnerar True om det testade året är ett skottår eller False om det inte är det.


Exempel (VB 6.0) 

If IsLeapYear(2000) Then
  MsgBox "År 2000 är ett skottår!"
End If

Exempel (VB.NET) 

If IsLeapYear(2000) Then
  MsgBox("År 2000 är ett skottår!")
End If