![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
data [D7, XP]
гостььь © (2006-03-03 15:12:00)Доброе время суток!
как из даты вычесть 10 дней
Например 09.11.05 - 10 дней = 31.10.05
Vlad (2006-03-03 15:40:00) [1]
> palva © (03.03.06 15:28) [2]
> Что-то неправильно работает - округления что ли?
Все правильно работает, это у автора неправильно
palva (2006-03-03 15:28:00) [2]Что-то неправильно работает - округления что ли?
{$APPTYPE CONSOLE}
uses SysUtils;
var
d: TDateTime;
begin
d := StrToDate('09.10.05');
d := d - 10;
WriteLn(DateToStr(d)); // 29.09.2005
end.
Сергей М. (2006-03-03 15:16:00) [3]Новая_дата = Дата - 10