IsLeapYear

Top  Previous  Next

function IsLeapYear(Year As Integer) As Boolean

 

Prüft, ob ein Jahr ein Schaltjahr ist.

 

Parameter

 

Year ... Integer-Wert.

 

Beispiel:

Dim iYear
 
iYear = 2009
If IsLeapYear(iYear) Then
   ' actions
End If