Я все мучаюсь пытаясь найти формулу вычисления полнолуния. В поисках наткнулась на код, выполняюший èто задание, но
разобраться в нем не могу, увы...
На каком èто языке?
Я приведу код, он не очень длинный:
<Function IstVollmondtag(Datum As Date) As Boolean
Const SynodMonat As Double = 29.530588
Const SynodStart As Double = 105.6213922
Dim OK As Boolean
Dim DatumDbl As Double
Dim DatumLng As Long
Dim DatumHilf As Date
Dim i As Long
If Year(Datum) > 1900 END Yaer(Datum) < 2100 Then
OK = False
For i = 1 To 2470
DatumDbl = SynodStart + i * SynodMonat
DatumLng = Int(DatumDbl)
DatumHilf = CDate(DatumLng)
If DatumHilf = Datum Then
OK = True
Exit For
End If
Next i
Else
OK = ""
End If
IstVollmondtag = OK
End Function>
и самое главное, если кто -нибудь в èтом соображает - о чем там речь?

язык то <visual basic>,и програмка простая,толко что эти константы значат интересно мож кто знает,самому интересно стало,что к чему прибавляют нука где наши все математики

это код на basic
бер╦т первое полнолуние в 1900 году и добавляет 2470 раз разницу между полнолуниями если сумма хоть раз совпад╦т с сегодняшней датой значит сегодня полнолуние довольно тупой код
надо перевести дату в Double и разделить на интервал между полнолуниями минус время до первого полнолуния если будет остаток значит сегодня не полнолуние