unit date;

interface

uses SysUtils;

type
  TDate = class
    day,month : byte;
    year : word;

    constructor Create(iday,imonth : byte; iyear : word);
    procedure SetDate(iday,imonth : byte; iyear : word);
    function DateToString: string;
    function IsLeapYear: boolean;
  end;

implementation

//******************************************************************************
constructor TDate.Create(iday,imonth: byte; iyear:word);
begin

  SetDate(iday,imonth,iyear);
end;

//******************************************************************************
procedure TDate.SetDate(iday,imonth : byte; iyear : word);
begin

  self.day := iday;
  self.month := imonth;
  self.year := iyear;
end;

//******************************************************************************
function TDate.DateToString: string;
begin

  DateToString := IntToStr(day)+'.'+IntToStr(month)+'.'+IntToStr(year);
end;

// je rok prestupny?
//******************************************************************************
function TDate.IsLeapYear: boolean;
begin

  IsLeapYear := year mod 4 = 0;  
end;

end.