Program to find entered year is leap year or not
Sample :
Private Sub Command1_Click()
If Val(Text1.Text) Mod 4 = 0 Then
Result.Caption = "The year " & Text1.Text & " is leap year"
Else
Result.Caption = "The year " & Text1.Text & " is not a leap year"
End If
End Sub
Full Code :
Output(leapyear.exe)
Full code(leapyear.doc)
Full project(leapyear.zip)
*Note Full project require Visual Basic 6.0