Скачать: CL | DM;

Как к дате добавить 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

---

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

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

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

---

← →
[lamer]Barmaglot ©   (2004-01-26 10:47) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c