Формулы Черной и Белой Луны.
Исходные переменные:
jdbd — день вашего рождения по юлианскому календарю
jd — день по юлианскому календарю
wmd1 — Черная Луна
bmd1 — Белая Луна
Черная Луна
wmd = ((26 / 60) + 51) / 365.25:
wmd1 = ((wmd * 118) + (12 / 60) + 345) + (jd — jdbd) * wmd:
wmd1 = wmd1 — INT(wmd1 / 360) * 360
IF wmd1 >= 360 THEN wmd1 = wmd1 — 360
Белая Луна
bmd = ((41 / 60) + 40) / 365.25:
bmd1 = ((bmd * 118) + (44 / 60) + 75) + (jd — jdbd) * bmd:
bmd1 = bmd1 — INT(bmd1 / 360) * 360
IF bmd1 >= 360 THEN bmd1 = bmd1 — 360
PRINT wmd1;bmd1