Ntl-M, А ну проверьте такую схемку. Время UT+/-3 минуты.
ng.rar
------------ Дoбавленo в 19.23:
На любой год

Не компилировалось под FPC. Устранил. Перезалил.
------------ Дoбавленo в 19.56:
Ntl-M, для использования в своей программе, достаточно скопировать IC

Удалено. Ниже выложен окончательный вариант

Tad, неперевелись ещё богатыри на земле обетованной
а как же выражение "если повторять что халва сладкая...", я кстати тоже зацепился но не успел развесить данные по точкам, была заморочка с оператором "%", не мог правильно расчитать дни недели.
Ps: у тебя добавляются лишние солнечные затмения по сравнением со скриптом.

MAV, я не тестировал. Просто сегодня был свободный день, ну и чтобы не проспать весь день, решил заняться. Там ещё если год < 1580 то и нулевые дни появляются . Ну я думаю, что Ntl-M так далеко не надо. А искать лень.
------------ Дoбавленo в 00.09:
так не повторять надо, а есть халву - будет сладко

Tad, мне конечно было проще, оставил только астрономию. Проверил 1000 год на даты, ошибка совевершенно идентичная твоей схеме .
------------------

посмотри если будет интересно, про сол. затменья

Ну а теперь посмотри здесь
http://www.pk25.ru/news/world/05_01_11_zemlyane_uvidyat_v_2011_godu_shest_solnec.html

Tad, эту статью помоему в хмельном угаре писали

тут более похоже на правду
http://www.secl.ru/eclipse_catalog/2011.html

Космонавтика тоже говорит о 5-ти затмениях.

Tad, MAV, такие топики дают нечто для кругазора, тех.док уже удавила

andrestudio, [flood]когда кругозор мал, надо говорить: "Это моя точка зрения!" [/flood]

Последний вариант схемы вычислений новолуний, полнуний, затмений.
http://forum.hiasm.com//getfile/23103
Если у кого установлена полноценная программа "планетарий", просьба протестировать, особо интересуют 1000-ный и 2011-тый годы.

MAV,нужно было просто написать свою function floor. Trunc это немного не то . (Хорошая мысля приходит опосля )

И вот результат - Последний вариант схемы вычислений новолуний, полнуний, затмений.
ng_not_error.rar - ошибок не нашел.
Поправку на часовой пояс не делал: Ntl-M- молчит, как рыба об лёд. Видно это ей уже ни на... не нужно.
За исходный взят скрипт из Морского интернет-клуба "Кубрик" http://www.randewy.ru/astr/astr.html

floorпереводится как этаж,(какой этаж зачем этаж ), пришлось опытным путём вычислять что это аналог Trunc. В мануалах JScript которые удалось скачать описания функции отсутствовало. Если есть ссылка на описание функций JScript просьба поделиться

Tad, я тоже не нашёл, но not_error слишком оптимистичное утверждение , в логике скрипта присутстсвуют недочёты, про тысячный год я не просто написал, по ссылке [url]http://www.randewy.ru/astr/astr.html [/url] можно в этом убедиться, увидев в 1000-ном году

в moon_4.sha я попытался это исправить, теперь незнаю чем проверить
ps: вечером попробую скачать "Стеллариум"

floor в javascript описан здесь и тут.

olDjeka, это очень "умные" описания.
Простым языком - это округление:

floor(X) - округляет всё в мЕньшую сторону.
floor(1.1) = 1
floor(-1.1) = -2
---------------------------------------
ceil(X)-округляет всё в бОльшую сторону.
ceil(1.1) = 2
ceil(-1.1) = -1
---------------------------------------
round(X) - округление по 0.5
------------ Дoбавленo в 19.32:
ты прав. Там вообще гланды рвут не через рот. Я просто тупо перенес скрипт в IC.

Tad, [flood]ну пол и потолок понятно -- не один раз было в отчётах, а round по русски не вписывается сюда [/flood]