Паскаль программа

[buryj]

Здравствуйте уважаемые жители форума. Нужна помощь. Скоро экзамен. Помогите решить задачу в Turbo Паскале.
Написать программу, которая:
- вычисляет количество дней в том месяце, которому принадлежит заданная d;
- проверяет правильность даты d (т.е. чтобы не было 31 июня, 30 февраля и т.д.);
- подсчитывает, сколько дней прошло от начала нашей эры (1.01.1) до даты d.

Заранее спасибо!!!
Если кого обидел извените.

[Serge_Bliznykov]

вопрос номер 1 и номер два элементарно решаются.
готовые функции можно взять из моего поста ТУТ

количество дней - функция DaysInMonth
корректность даты - функция ValidDate

а вот с третьим вопросом всё не так бело и пушисто.
Дело в том, что календари претерпевали реформы, когда после 1-го числа, например, наступало сразу 14-е...
если не вдаваться в эти "мелкие" детали, тогда рекомендую воспользоваться фунцией перевода даты в Юлианскую. смотрите вот эту тему - Процедура добавления к дате определенного количества дней

[s-andriano]

Сообщение от Serge_Bliznykov

а вот с третьим вопросом всё не так бело и пушисто.
Дело в том, что календари претерпевали реформы, когда после 1-го числа, например, наступало сразу 14-е...

Ну да...
Строго говоря, 1.01.01 в истории никогда не было.
А дата, по которой григорианский календарь синхронизировался с юлианским, отстоит на несколько столетий как от РХ (т.е. начала нашей эры), так и от даты введения григорианского календаря.

[Arigato]

Сообщение от s-andriano

отстоит на несколько столетий как от РХ (т.е. начала нашей эры)

А РХ (если такое вообще имело место быть) также отстоит от начала нашей эры на несколько лет

[s-andriano]

Да.
При попытках ректификации получается, что на 6.
Но мы сейчас говорим о календаре, а не об исторических событиях.

[buryj]

Спасибо, всё получилось!!!