Привет всем.
Может кто-нить подсказать как получить новую дату:

Например сегодня:

09.08.2004 мне нужно отнять от етой даты 3 или N дней...

как ето правильно зделать с учётом того что в месяцах разное количество дней?


может есть какие-то стандартные процедуры?



Зарание благодарен.

procedure TForm1.Button3Click(Sender: TObject);
Var
Nach, Konet : TDate;
begin
Konet := StrToDate('01.04.2004');
Nach := Konet -3;
Label1.Caption := DateToStr(Nach);
end;

и Label1 принмает значение 29.03.2004....
Все это уже зашито внутри типа.... он сам следит...
Попробуй присвоить 29 февраля в невисокосный год.... ничего не выйдет....

Maverick

спасибо....

IncDay(TDateTime,-N) вот так можно

X-Vlad наверное полезно будет узнать, что TDateTime не что иное как число с плавающей точкой. :-)

Я тоже когда пытался прибавлять и вычитать даты с помощью StrToDate и DateToStr но потом отказался от этого т.к.в windows можно поменять разделитель даты (с точки например на '-' в панели управления в пункте "Язык и науиональные стандарты") и эти функции начинают вызывать ошибки.Поэтому это не правильный метод.Как это сделать правильно?Наверно нужно узнать разделитель формата.Я его нашел кажется в win.ini но эту идею развивать не стал.

p.s. То же самое касается и времени (В Винде можно поменять формат отображения времени).

p.p.s Наверно IncDay(TDateTime,-N) правильный способ

Это сообщение отредактировал(а) SlaUr - 10.3.2004, 11:13

А я при иницмализацииприложения всегда определяю свой формат даты и времени и таким образом не завишу от настроек системы.

Цитата

Я тоже когда пытался прибавлять и вычитать даты с помощью StrToDate и DateToStr но потом отказался от этого т.к.в windows можно поменять разделитель даты (с точки например на '-' в панели управления в пункте "Язык и науиональные стандарты") и эти функции начинают вызывать ошибки.Поэтому это не правильный метод.Как это сделать правильно?Наверно нужно узнать разделитель формата.Я его нашел кажется в win.ini но эту идею развивать не стал.

Что-то вы глубоко копаете.... никогда такой проблемы не встречал... и счас изуродовал настройки в панели управления, и поперезапускал старые приложения.... и ничего - везде красиво.... у меня ХР и 6 дельфи.... не знаю, думаю, и с 5 было все в порядке....
А во вторых, тут не суть важны функции используемые, а в том, что человек смысла типа TDate не понимал.... а теперь разберется и сам выберет - чего пользовать.... спасибо....

Maverick

Цитата

никогда такой проблемы не встречал... и счас изуродовал настройки в панели управления, и поперезапускал старые приложения.... и ничего - везде красиво

Сейчас попробовал и если изменить настройки (см катринку ) то подXP не работает ! Если изменить разделитель то Функция StrToDate('10.01.2004') вылетает по ошибке!


Что то не вставляется картинка.
Вот ссылка на картинку:1.jpg

p.s. В принципе навряд ли кто-то изменит этот разделитель у себя в системе.

Это сообщение отредактировал(а) SlaUr - 12.3.2004, 11:19