Please help.

[Jester-666]

I am trying to write a program to determine if a year is a leap year or not. It is driving me nuts, i know nothing about leap years. Here is the question.

"The current calendar, called the gregorian calendar, was introduced in 1582. Every year divisible by four was declared to be a leap year, with the exception of the years ending in 00(that is, those divisible by 100) and not divisible by 400."

i cant figure out how to even go about it, here is as far as i got with my coding.

Public Class Form1

    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        Dim year, value, value2 As Double
        year = CDbl(txtYear.Text)
        value = year / 100
        value2 = value / 4

        MessageBox.Show(CStr(value2))
        

    End Sub
End Class

[.paul.]

try this:

MsgBox(Date.IsLeapYear(1582))

[Jester-666]

thanx alot dude, i never would have thought of that

[stanav]

If this is homework, your teacher may not accept Paul's solution since the purpose of the exercise is to help you learn how to turn an algorithm into code.

[.paul.]

you can calculate leap years easily, using the specifications you provided in post #1:

Dim Y As Integer = CInt(txtYear.Text)
 
If Y Mod 4 = 0 And Not Y Mod 100 = 0 Or Y Mod 4 = 0 And Y Mod 400 = 0 Then
   'is a leap year
End If

[dbasnett]

look at

Math.DivRem