Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.06;
Скачать: 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 вся ветка

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.085 c
14-16702
Knight
2004-01-17 00:02
2004.02.06
Какой виртуальный СД, создайт имиджи с расширением CDI ?


3-16169
korvin
2004-01-13 09:21
2004.02.06
dxDBGrid событие смены активного колумна


1-16512
MakNik
2004-01-27 10:14
2004.02.06
PopupMenu


14-16671
goga
2004-01-16 22:50
2004.02.06
Никуда не гожусь


8-16538
pasha_676
2003-10-03 10:13
2004.02.06
Управление видеомагнитофоном по FireWire