Mega Code Archive

 

Categories / VB.Net by API / System

 

DateTime IsLeapYear

Imports System.IO Module Module1     Sub Main()         Dim Dt As DateTime = Now()         If (Dt.IsLeapYear(Dt.Year)) Then             Console.WriteLine("This is a leap year")         Else             Console.WriteLine("This is not a leap year")         End If     End Sub End Module