Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.014 c