10 lines
229 B
VB.net
10 lines
229 B
VB.net
|
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
|