Работа с датами.

Проверка является ли год високосным.

Блок-схемы для этой функции не делаю это одно издевательство, но если интересно она входит, как часть, в следующий алгоритм. А при проверке является ли год с номером Year високосным следует помнить, что год считается таковым, если его номер делится нацело на 4, но не делится на 100 или делится нацело на 400, иначе говоря (Year mod 4 = 0) and ((Year mod 100 0) or (Year mod 400 = 0)) Наверх

Число лет, месяцев и дней между двумя датами.

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

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

Количество дней между двумя датами.

Функция вычисляет колличество дней между двумя датами, вычисляя вначале колличество дней от начала летоисчисления по григорианскому календарю. Наверх

День недели по дате.

Функция вычисляет номер дня недели по дате. При этом Понедельник- имеет номер 1, Вторник - 2, ..., Воскресенье - 7. Структура функции понятна из блок-схемы. Наверх

Перевод даты в модифицированную юлианскую.

Функция вычисляет модифицированную юлианскую дату, т.е. количество дней прошедших с 17.11.1858. Данную функцию удобно использовать для вычисления дней прошедших между двумя датами, или если надо узнать дату, которая будет через какое-то количество дней, для этого используем парную к ней процедуру, алгоритм которой представлен ниже. Наверх

Перевод модифицированной юлианской даты в обычную.

Процедура переводит модифицированную юлианскую дату в привычную нам. Используется совместно с предыдущей функцией. Наверх