برنامج مواقيت الصلاة لكل ولايات الوطن ( للجزائر فقط )

[onexite]

من كناب Jean-Meeus Astronomical Algorithms

PHP كود :

procedure TForm2.FormCreate(Sender: TObject);
var SpringEquinox,WinterSolstice,AutumnEquinox,SummerSolstice:Real;
y:Real;
begin
Memo1.Clear;
y:= (2014-2000)/1000;
SpringEquinox  :=2451623.80984 + 365242.37404 * y + 0.05169 * Power(y, 2) - 0.00411 * Power(y, 3) - 0.00075 * Power(y, 4);
SummerSolstice  :=2451716.56767 + 365241.62603 * Y + 0.00325 * Power(y, 2) + 0.00888 * Power(y, 3) - 0.00030 * Power(y, 4);
AutumnEquinox := 2451810.21715 + 365242.01767 * Y - 0.11575 * Power(y, 2) + 0.00337 * Power(y, 3) + 0.00078 * Power(y, 4);
WinterSolstice := 2451900.05952 + 365242.74049 * Y - 0.06223 * Power(y, 2) - 0.00823 * Power(y, 3) + 0.00032 * Power(y, 4);
Memo1.Lines.Add('الربيع '+DateTimeToStr(JulianDateToDateTime(SpringEquinox))) ;
Memo1.Lines.Add('الصيف '+DateTimeToStr(JulianDateToDateTime(SummerSolstice))) ;
Memo1.Lines.Add('الخريف '+DateTimeToStr(JulianDateToDateTime(AutumnEquinox))) ;
Memo1.Lines.Add('الشتاء '+DateTimeToStr(JulianDateToDateTime(WinterSolstice))) ;

end;