Question

How to check leap year in VB.NET

Answer 1

Imports System

Public Class CheckLeapYear_VB_NET
    Public Shared Sub Main(ByVal args As String())
       	Dim year As Integer = 2016
 
        Try
            If (year Mod 400 = 0) Then
                Console.WriteLine("{0} is a leap year.", year)
            ElseIf (year Mod 100 = 0) Then
                Console.WriteLine("{0} is not a leap year.", year)
            ElseIf (year Mod 4 = 0) Then
                Console.WriteLine("{0} is a leap year.", year)
            Else
                Console.WriteLine("{0} is not a leap year.", year)
            End If
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
       	End Try
    End Sub
End Class


' run:
'
' 2016 is a leap year.
'

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class CheckLeapYear_VB_NET
	
	Public Shared Function isLeapYear(year As Integer) As Boolean
        If (year Mod 400 = 0) Then
            Return True
        ElseIf (year Mod 100 = 0) Then
            Return False
        ElseIf (year Mod 4 = 0) Then
            Return True
        End If
 
        Return False
    End Function
	
    Public Shared Sub Main(ByVal args As String())
        Try
            Dim years() As Integer = {2000, 2400, 1800, 1900, 2100, 2200, 2300, 2500,
                                      2008, 2012, 2016, 2020, 2024, 2048, 2032}
 
            For Each yr As Integer In years
                If (isLeapYear(yr)) Then
                    Console.WriteLine("{0} is a leap year.", yr)
                Else
                    Console.WriteLine("{0} is not a leap year.", yr)
                End If
 
            Next
 
        Catch ex As Exception
             Console.WriteLine(ex.Message)
         End Try
    End Sub
End Class


'run:
' 
' 2000 is a leap year.
' 2400 is a leap year.
' 1800 is not a leap year.
' 1900 is not a leap year.
' 2100 is not a leap year.
' 2200 is not a leap year.
' 2300 is not a leap year.
' 2500 is not a leap year.
' 2008 is a leap year.
' 2012 is a leap year.
' 2016 is a leap year.
' 2020 is a leap year.
' 2024 is a leap year.
' 2048 is a leap year.
' 2032 is a leap year.
'

70+ SQL courses for beginners and professionals

Answer 3

Imports System
 
Public Class CheckLeapYear_VB_NET
    Public Shared Sub Main(ByVal args As String())
        Dim year As Integer = 2016  
		
        Try
            If (DateTime.IsLeapYear(year)) Then
                Console.WriteLine("{0} is a leap year.", year)
            Else
                Console.WriteLine("{0} is not a leap year.", year)
            End If
  
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Class
 
 
' run:
'
' 2016 is a leap year.
'

 

70+ SQL courses for beginners and professionals