Mega Code Archive

 

Categories / VB.Net / Date Time

 

Is Leap Year

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