Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];
Вниз
работа с датами Найти похожие ветки
← →
ups:( (2002-06-14 09:55) [0]Извините за элементарный вопрос, но второй день не могу найти ответ:
Надо получить дату на Х дней меньше известной.
Может кто поделится алгоритмом?
← →
Kaban (2002-06-14 09:55) [1]Date1 - X
← →
ups:( (2002-06-14 10:00) [2][Error] Unit1.pas(127): Operator not applicable to this operand type
← →
Kaban (2002-06-14 10:04) [3]Вы уверены? Я в этом сильно сомневаюсь. Может вы что-то не то делаете?
var Date1, Date2: TDateTime;
begin
Date1:=StrToDate("14.06.2002");
Date2:=Date1-10;
end;
← →
Lola (2002-06-14 10:10) [4]Абсолютно согласна с Kaban. Когда мне надо было задать дату на месяц раньше, я просто из текущей даты вычла 30.
← →
Kaban (2002-06-14 10:14) [5]2lola
IMHO, в случае, о котором вы говорите, лучше пользоваться функцией IncMonth(Date1, -1)
← →
Lola (2002-06-14 10:24) [6]Kaban
Спасибо! Век живи - век учись. Она и февраль берет в расчет?
← →
Kaban (2002-06-14 10:26) [7]Не пробовал, но думаю да. Иначе зачем она вообще нужна. Впрочем это легко проверить.
← →
Lola (2002-06-14 10:39) [8]И правда :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c
