Sub Activity_Create(FirstTime As Boolean)
Log(IsLeapYear(2011))
Log(IsLeapYear(2012))
End Sub
Sub IsLeapYear(Year As Int) As Boolean
Dim df As String
df = DateTime.DateFormat
DateTime.DateFormat = "MM/dd/yyyy"
Try
DateTime.DateParse("02/29/" & Year)
DateTime.DateFormat = df
Return True
Catch
Return False
DateTime.DateFormat = df
End Try
End Sub