[DOR]

Добрый день.

Код:

procedure Tf_Inform.JvDBDateEdit1Exit(Sender: TObject);
var
  Day, Moth, Year: Word;
  myDate : TDateTime;
begin
  DecodeDate(JvDBDateEdit1.Date, Year, Moth, Day);
  Year := Year + 1;
  Day := Day - 1;
  myDate := EncodeDate(Year, Moth, Day);
  JvDBDateEdit2.Date := myDate;
end;

Код работает когда число в JvDBDateEdit1.Date не равно 1, если же 1, то ошибка, поправьте пожалуйста код, чтобы он выдавал дату равную: JvDBDateEdit1.Date + 1 год - 1 день, т.е. сегодня 01.05.2013 нужно 30.04.2014. Спасибо.

p.s. если так

Код:

procedure Tf_Inform.JvDBDateEdit1Exit(Sender: TObject);
var
  myDate : TDateTime;
begin
  myDate := JvDBDateEdit1.Date;
  myDate := myDate + 364;
  JvDBDateEdit2.Date := myDate;
end;

то получается - 2 дня.

[DrGeorg]

Странно, у меня все работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  myDate : TDate;
begin
myDate:=Now;
myDate:=myDate + 364;
ShowMessage(DateToStr(myDate));
end;

Переменную myDate надо объявлять не как TDateTime, а как TDate либо же использовать:

Код:

myDate:=Trunc(myDate) + 364;

[DOR]

Ваш пример не учитывает високосные года.

Извратился так, для моей задачи сгодится

Код:

procedure Tf_Inform.JvDBDateEdit1Exit(Sender: TObject);
var
  Year, Moth, Day: Word;
  myDate : TDate;
begin
  DecodeDate(JvDBDateEdit1.Date, Year, Moth, Day);
  myDate := JvDBDateEdit1.Date;
  if (Year = 2008) or (Year = 2012) or (Year = 2016) or (Year = 2020) then
    begin
      if Moth <= 2 then
        begin
          myDate := myDate + 365;
          JvDBDateEdit2.Date := myDate;
        end
      else
        begin
          myDate := myDate + 364;
          JvDBDateEdit2.Date := myDate;
        end;
    end
  else
    begin
      myDate := myDate + 364;
      JvDBDateEdit2.Date := myDate;
    end;
end;

[Alegun]

Чего творите, всё намного проще

Код:

uses 
DateUtils;
...

var
  myDate : TDateTime;
begin

// прибавить к myDate один год
myDate := IncYear(myDate);

// прибавить пять лет, итд.
myDate := IncYear(myDate, 5);

// вычесть пять лет
myDate := IncYear(myDate, -5);

end;

З.Ы. Упс, про один день сразу не заметил, но это тоже не сложно

Код:

// прибавить день
myDate := IncDay(myDate);
// убавить на один день
myDate := IncDay(myDate, -1);