Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
ВнизКак к дате добавить 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.061 c