Как к дате добавить N дней

← →
ruslan_as © (2004-01-26 10:13) [0]

Прошу прощения, нашел много функций по датам, но этой не нашел. Заранее спасибо за помощь.

← →
Некто (2004-01-26 10:21) [1]

Unit DateUtils

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;

← →
[lamer]Barmaglot © (2004-01-26 10:27) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
d: TDateTime;
begin
d:=DateTimePicker1.DateTime;
d:=d+strtoint(Edit1.text);
DateTimePicker2.DateTime:=d;
end;

← →
Ega23 © (2004-01-26 10:30) [3]

IncDay потрясающая в "Кладовке" есть. Очень рекомендую. Особенно отзывы. ;-))

← →
Юрий Зотов © (2004-01-26 10:31) [4]

> ruslan_as

Не удивляйтесь, но сложение выполняет операция "плюс".

А по поводу IncDay... не смотрел, но полагаю, что внутри этой замечательной функции находится одна-единственная строчка. Наисложнейшая:

Result := AValue + ANumberOfDays

> [lamer]Barmaglot © (26.01.04 10:27) [2]

Крутой код! А без лишних телодвижений нельзя? Вот так:
DateTimePicker2.DateTime := DateTimePicker1.DateTime + StrToInt(Edit1.Text);

помоему так для понимания проще, но каждому свое...

Как к дате добавить N дней Найти похожие ветки