Deutsch
Germany.ruФорумы → Архив Досок→ Компьютер & Co

язык программирования

73  
шамайка постоялец02.05.04 21:17
шамайка
NEW 02.05.04 21:17 
Я все мучаюсь пытаясь найти формулу вычисления полнолуния. В поисках наткнулась на код, выполняюший èто задание, но
разобраться в нем не могу, увы...
На каком èто языке?
Я приведу код, он не очень длинный:
<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>
и самое главное, если кто -нибудь в èтом соображает - о чем там речь?
#1 
A.G.Student посетитель02.05.04 21:44
A.G.Student
02.05.04 21:44 
в ответ шамайка 02.05.04 21:17
язык то <visual basic>,и програмка простая,толко что эти константы значат интересно мож кто знает,самому интересно стало,что к чему прибавляют нука где наши все математики
#2 
gendy посетитель02.05.04 21:47
gendy
NEW 02.05.04 21:47 
в ответ шамайка 02.05.04 21:17
это код на basic
бер╦т первое полнолуние в 1900 году и добавляет 2470 раз разницу между полнолуниями если сумма хоть раз совпад╦т с сегодняшней датой значит сегодня полнолуние довольно тупой код
надо перевести дату в Double и разделить на интервал между полнолуниями минус время до первого полнолуния если будет остаток значит сегодня не полнолуние

Фашизм будет разбит


Человека карают только те боги, в которых он верит

#3