Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2011-03-25 14:26:01 ЛС | профиль | цитата
MAV,нужно было просто написать свою function floor. Trunc это немного не то . (Хорошая мысля приходит опосля )

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

#pas
y := ReadInteger(_Data,Year,0);
//..............................
yy := ReadInteger(_Data,Year,0);
if y = yy then _hi_OnEvent(onCalculation);
А что экономней запомнить год или повторно считать ?

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1ng_not_error.rar [4.1KB] [151]