unit datemanip;

interface

uses Date;
const DaysCount : array[1..12] of byte = (31,28,31,30,31,30,31,30,31,30,31,30);

type
  TDateManip = class(TDate)

    procedure DaysPlus(count : word);
    procedure DaysMinus(count : word);
  end;

implementation

//******************************************************************************
procedure TDateManip.DaysPlus(count : word);
begin

  if count>(DaysCount[month]-day) then
  begin
    if month=12 then
    begin
      month := 1;
      year := year +1;
    end
    else month := month +1;
    DaysPlus(count-DaysCount[month]-day);
  end
  else day := day + count;
end;

//******************************************************************************
procedure TDateManip.DaysMinus(count : word);
begin

end;

end.