Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вычитание дат [D7, WinXP]

Smolin © (2005-10-12 10:55:00)
Как вичесть одну дату из дугой, чтоб разницу получить в днях ??? пример:10.12.2005-10.15.2005=3

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

-=S..S=- (2005-10-12 12:19:00) [2]
Теперь понятно ... спасибо за обяснение

Eraser (2005-10-12 12:09:00) [3]

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

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

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

-=S..S=- (2005-10-12 12:03:00) [4]
Хм ... возможно ... но просто уже сталкивался с этой проблемой ... была задача написать на асме (для PIC контроллеров) вычитание двух дат в днях ... так вот для проверки писал прогу на делфях ... толи меня тогда проглючила толи что ... но простое вычитание давало не такой же результат как функция DaysBetween
Скорее всего меня тогда заглючило :) ... да и неудивительно было ... завтра здавать а прога еще не написана .. всю ночь сидел :) но таки написал :)

Ega23 (2005-10-12 11:54:00) [5]

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

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

Eraser (2005-10-12 11:49:00) [6]

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

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

Leonid Troyanovsky (2005-10-12 11:48:00) [7]

> -=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.

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

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

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

-=S..S=- (2005-10-12 11:37:00) [9]

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

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

Плохиш (2005-10-12 11:35:00) [10]
DaysBetween

Leonid Troyanovsky (2005-10-12 11:34:00) [11]
> -=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.

Eraser (2005-10-12 11:25:00) [12]
Да и это при большом отрезке дат примерно в пару лет даст не точный результат .... так как нет проверки на высокостность года ...

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

-=S..S=- (2005-10-12 11:10:00) [13]

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

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

-=S..S=- (2005-10-12 11:05:00) [14]
функция есть специательная ... не помню как называеться :)
там чтото data ... uses надо подключать поищи что то datasubtract или что то в этом духе

Eraser (2005-10-12 11:02:00) [15]
D1, D2: TDateTime; ... D1 := D2 - D1;

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »