VPF::Подсчет разницы дат в часах - Форум программистов

Neox_GeForce

Дата 16.4.2011, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 14.11.2007
Где: Украина

Репутация: нет
Всего: нет

Нужно подсчитать разницу дат с точностью до часов.
Как подойти к этой проблеме с учетом что в диапазоне дат могут быть и высокосные годы.
Я думаю что нужно перевести даты в часы, потом вычесть разницу и перевести ее опять в формат даты.
Правильно? Язык решения Pascal.

--------------------

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

Akina

Дата 16.4.2011, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 20
Всего: 454

Взять готовый алгоритм расчёта номера дня. Остальное фигня...

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Neox_GeForce

Дата 16.4.2011, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 14.11.2007
Где: Украина

Репутация: нет
Всего: нет

Есть алгоритм.

Код


function dayOfWeek(date:DateTime):Integer;
var
tempYear,tempMonth,TempDay:Integer;
begin
tempYear := date.Year;
tempDay := date.Day;
if(date.Month<=2) then
begin
tempYear := tempYear - 1;
tempDay := tempDay + 3;
end;
dayOfWeek := 1 + (tempDay + tempYear + tempYear div 4 - tempYear div 100 + tempYear div 400+(31*date.Month+10) div 12) mod 7; 
end;

Что нужно делать дальше?

--------------------

Akina

Дата 17.4.2011, 10:09 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 20
Всего: 454

Номер дня, а не номер дня недели! разницу видишь?

--------------------

Данкинг

Дата 17.4.2011, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Так если получить разницу дней? А часы в сутках - всегда константа. smile

--------------------

There's nothing left but silent epitaphs.

Neox_GeForce

Дата 17.4.2011, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 14.11.2007
Где: Украина

Репутация: нет
Всего: нет

Нашел ответ.
http://www.freepascal.org/docs-html/rtl/da...aysbetween.html

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Алгоритмы \| Следующая тема »