Leap Year Checker in Microsoft Access

A simple program that will ask the user to give a year and then our program will check if the given year is a leap year or not a leap year using Microsoft Access.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.

Sample Program Output

Program Listing

Option Compare Database

Function IsLeapYear(Optional varDate As Variant) As Boolean

       If IsMissing(varDate) Then

        varDate = Year(Now)

       ElseIf VarType(varDate) = vbDate Then

        varDate = Year(varDate)

      ElseIf VarType(varDate) = vbInteger Then

         If varDate < 100 Or varDate > 9999 Then

            varDate = Year(Now)

        End If

      Else

        varDate = Year(Now)

    End If

    IsLeapYear = (Day(DateSerial(varDate, 2, 28) + 1) = 29)

End Function

Private Sub Command16_Click()

Dim a As Integer

If Len(Trim(Me.Text13) & vbNullString) = 0 Then

     MsgBox "Enter the a Year", vbInformation

     Me.Text13.SetFocus

     Exit Sub

End If

a = Val(Me.Text13)

If IsLeapYear(a) = True Then

   Me.Label15.Caption = "The given year " + Str(a) + " is a Leap Year."

Else

  Me.Label15.Caption = "The given year " + Str(a) + " is Not a Leap Year"

End If

End Sub

Private Sub Command17_Click()

Me.Text13 = ""

Me.Label15.Caption = ""

Me.Text13.SetFocus

End Sub

Private Sub Command18_Click()

DoCmd.OpenForm "frmAbout"

End Sub