Исходные переменные:
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
