9 lines
229 B
Text
9 lines
229 B
Text
Module Module1
|
|
|
|
Sub Main()
|
|
For Each y In {1900, 1994, 1996, Date.Now.Year}
|
|
Console.WriteLine("{0} is {1}a leap year.", y, If(Date.IsLeapYear(y), String.Empty, "not "))
|
|
Next
|
|
End Sub
|
|
|
|
End Module
|