Текущий архив: 2006.03.19;
Скачать: CL | DM;
Вниз
data Найти похожие ветки
← →
гостььь (2006-03-03 15:12) [0]Доброе время суток!
как из даты вычесть 10 дней
Например 09.11.05 - 10 дней = 31.10.05
← →
Сергей М. © (2006-03-03 15:16) [1]Новая_дата = Дата - 10
← →
palva © (2006-03-03 15:28) [2]Что-то неправильно работает - округления что ли?
{$APPTYPE CONSOLE}
uses SysUtils;
var
d: TDateTime;
begin
d := StrToDate("09.10.05");
d := d - 10;
WriteLn(DateToStr(d)); // 29.09.2005
end.
← →
Vlad © (2006-03-03 15:40) [3]
> palva © (03.03.06 15:28) [2]
> Что-то неправильно работает - округления что ли?
Все правильно работает, это у автора неправильно
Страницы: 1 вся ветка
Текущий архив: 2006.03.19;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.063 c
