Вычитание дат

← →
Smolin (2005-10-12 10:55) [0]

Как вичесть одну дату из дугой, чтоб разницу получить в днях ??? пример:10.12.2005-10.15.2005=3

← →
Eraser © (2005-10-12 11:02) [1]

D1, D2: TDateTime; ... D1 := D2 - D1;

разницу получить в днях
Округляй до целых.

← →
-=S..S=- (2005-10-12 11:05) [2]

функция есть специательная ... не помню как называеться :)
там чтото data ... uses надо подключать поищи что то datasubtract или что то в этом духе

← →
-=S..S=- (2005-10-12 11:10) [3]

> Eraser © (12.10.05 11:02) [1]
>
> D1, D2: TDateTime;
> ...
> D1 := D2 - D1;
>
> разницу получить в днях
> Округляй до целых.

Да и это при большом отрезке дат примерно в пару лет даст не точный результат .... так как нет проверки на высокостность года ...

← →
Eraser © (2005-10-12 11:25) [4]

Да и это при большом отрезке дат примерно в пару лет даст не точный результат .... так как нет проверки на высокостность года ...

Можно ещё через De/EncodeDate это реализовать.

← →
Leonid Troyanovsky © (2005-10-12 11:34) [5]

> -=S..S=- (12.10.05 11:10) [3]

> > D1, D2: TDateTime;
> > ...
> > D1 := D2 - D1;
> >
> > разницу получить в днях
> > Округляй до целых.
>
> Да и это при большом отрезке дат примерно в пару лет даст
> не точный результат .... так как нет проверки на высокостность
> года ...

При чем тут високосные года?

The integral part of a TDateTime value is the number of days that have passed since 12/30/1899

--
Regards, LVT.

← →
Плохиш © (2005-10-12 11:35) [6]

DaysBetween

← →
-=S..S=- (2005-10-12 11:37) [7]

> Плохиш © (12.10.05 11:35) [6]
>
>

Точно .. она :) токо там еще надо в юзесы подключать какойто модуль ... в хелпе написано какой

← →
-=S..S=- (2005-10-12 11:39) [8]

> Leonid Troyanovsky © (12.10.05 11:34) [5]
> При чем тут високосные года?

Да при том что если надо вычесть дату с отрезком например в 10 лет ... ошибка в два дня обеспечена

← →
Leonid Troyanovsky © (2005-10-12 11:48) [9]

> -=S..S=- (12.10.05 11:39) [8]

> Да при том что если надо вычесть дату с отрезком например
> в 10 лет ... ошибка в два дня обеспечена

The integral part of a TDateTime value is the number of days that have passed since 12/30/1899

Ты бы хоть взглянул на реализацию DaysBetween.

--
Regards, LVT.

← →
Eraser © (2005-10-12 11:49) [10]

> -=S..S=- (12.10.05 11:39) [8]

Учитывать високосные годы в данном случае не надо и даже не возможно.
Они учитываются в функциях форматирования текстового представления даты, если нуобходимо вывести, например кол-во месяцев или лет, и то это делается через ф-ии De/EncodeDate.

> Да при том что если надо вычесть дату с отрезком например
> в 10 лет ... ошибка в два дня обеспечена
>

С фига-ли????

← →
-=S..S=- (2005-10-12 12:03) [12]

Хм ... возможно ... но просто уже сталкивался с этой проблемой ... была задача написать на асме (для PIC контроллеров) вычитание двух дат в днях ... так вот для проверки писал прогу на делфях ... толи меня тогда проглючила толи что ... но простое вычитание давало не такой же результат как функция DaysBetween
Скорее всего меня тогда заглючило :) ... да и неудивительно было ... завтра здавать а прога еще не написана .. всю ночь сидел :) но таки написал :)

> -=S..S=- (12.10.05 12:03) [12]

вычитание двух дат в днях ... так вот для проверки писал прогу на делфях ... толи меня тогда проглючила толи что ... но простое вычитание давало не такой же результат как функция DaysBetween

Ну так всё правильно! Допустим даны две даты в годах, 1985 и 2000. Посчитать разницу в днях.
Алгоритм такой:
1. Преобразуем обе даты в кол-во дней учитывая високосные годы. Это и делает ф-я EncodeDateTime.
2. Потом из второго полученого числа вычитаем первое.
3. Ответ готов.

← →
-=S..S=- (2005-10-12 12:19) [14]

Теперь понятно ... спасибо за обяснение

-=S..S=- (12.10.05 11:39) [8]
С какой это стати, у тебя что особенная математика где результат зависить от растояния между двумя цифрам, то есть если 10 - 2 = 8, а 100 - 2 = 96

Вычитание дат Найти похожие ветки