Question

How to check if year is leap year in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function IsLeapYear(ByVal year As Integer) As Boolean
        If year Mod 4 = 0 AndAlso year Mod 100 = 0 AndAlso year Mod 400 = 0 Then
            Return True
        ElseIf year Mod 4 = 0 AndAlso year Mod 100 = 0 Then
            Return False
        ElseIf year Mod 4 = 0 Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Shared Sub Main(ByVal args As String())
        Console.Write(If(IsLeapYear(2020), "Leap Year", "Not a Leap Year"))
    End Sub
End Class
	
	
	
	
' run:
'
' Leap Year
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
    Public Shared Function IsLeapYear(ByVal year As Integer) As Boolean
        Return year Mod 4 = 0 AndAlso (year Mod 100 <> 0 OrElse year Mod 400 = 0)
    End Function

    Public Shared Sub Main(ByVal args As String())
        Console.Write(If(IsLeapYear(2020), "Leap Year", "Not a Leap Year"))
    End Sub
End Class

	
	
	
	
' run:
'
' Leap Year
'

 

70+ SQL courses for beginners and professionals