Re: Leap year

Posted by webmaster Guido on March 12, 2003 at 17:55:19:

In Reply to: Delphi posted by Mike on March 12, 2003 at 14:57:57:

: Hello id like to know how to write a program that prompts for a year in the range 1..9999. then to determine if the year entered is a leap year, if it is then print the message IS LEAP YEAR, if it is not a leap year then print the message NOT LEAP YEAR. Then to repeat asking the user for a year until the number entered is not between 1..9999 Then terminate the program.

--------

You can use Delphi's IsLeapYear function for this (see the Delphi help) :

procedure TForm1.Button1Click(Sender: TObject);
var
  Year: integer;
begin
  Year := StrToInt(Edit1.Text);
  if (Year < 1) or (Year > 9999) then begin
    ShowMessage('End of the program');
    Close; // program ends when main form is closed
  end
  else
    if IsLeapYear(Year) then
      ShowMessage(Edit1.Text + ' is a leap year')
    else
      ShowMessage(Edit1.Text + ' is not a leap year');
end;