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

رائع حقا

بوركت على ذلك

تعديل الكود الخاص بالحساب

 typeTstTimes=Array[0..5] of TDateTime;TMethodCal  =recordAngleFajr:Real;  AngleIsha:Real;end; function Calculation_Method(_Method:Integer):TMethodCal;begin if not _Method in [0..6] then  begin  Result.AngleFajr:=18; Result.AngleIsha:=17 ;Exit; end;case _Method of             0: begin Result.AngleFajr:=18;  Result.AngleIsha:=18   end; //جامعة العلوم الإسلامية بكراتشي             1: begin Result.AngleFajr:=15;  Result.AngleIsha:=15   end; //الاتحاد الإسلامي بأمريكا الشمالية             2: begin Result.AngleFajr:=18;  Result.AngleIsha:=17   end; //  رابطة العالم الإسلامي             3: begin Result.AngleFajr:=19;  Result.AngleIsha:=18   end; // لجنة الإشراف على تقويم أم القرى             4: begin Result.AngleFajr:=19.5;Result.AngleIsha:=17.5 end;// الهيئة العامة المصرية للمساحة             5: begin Result.AngleFajr:=17.7;Result.AngleIsha:=14   end; //مؤسسة الفيزياء الأرضية لجامعة طهران             6: begin Result.AngleFajr:=16;  Result.AngleIsha:=14;  end; //مؤسسة تحقيقات اللواء - قم المقدسة            end;end;function FloatMod(const n,d: single): single;beginresult := n - (d * trunc(n / d));end;function LessMore360(Value:Real):Real;begin   if (Value <= 0) or (Value > 360) then            Result:= Value + 360            else            Result:=  Value;end;   function CalcPrayerTimes(anydate:TDateTime;Long,  Lat, Zone:Real;myMethod:Integer=2;Juristic_Methods:Integer=0):TstTimes;  var  D,L,M,Lambda,Obliquity,Alpha,ST,Dec,Durinal_Arc,Noon,UT_Noon,Local_Noon,Asr_Alt,Asr_Arc  ,Asr_Time,Sun_Rise,Sun_Set,Esha_Arc,Esha_Time,Fajr_Arc,Fajr_Time:Real;  C_Method :TMethodCal;  function _arct(Value:Real):Real;      begin      result:= RadToDeg(Arccos((Sin(DegToRad(Value)) - Sin(DegToRad(Dec)) * Sin(DegToRad(Lat))) / (Cos(DegToRad(Dec)) * Cos(DegToRad(Lat)))));      end;      function _Frac24(Value:Real):Real;      begin      result:= Frac(Value/24);      end;              begin            C_Method:=Calculation_Method(myMethod) ;              {نحسب اليوم اليولياني D}            D:=DateTimeToJulianDate(anydate)-2451545.0;      //الطريقة السهلة             { نحسب طول الشمس الوسطي}             L := FloatMod((280.461 + 0.9856474 * D) , 360);             L := LessMore360(L);             {نحسب حصة الشمس الوسطي M}            M := FloatMod((357.528 + 0.9856003 * D) , 360);            M := LessMore360(M);            {طول الشمس البروجي Lambda }            Lambda := L + 1.915 * Sin(DegToRad(M)) + 0.02 * Sin(DegToRad(2 * M));            Lambda := LessMore360(Lambda);            {نحسب الميل الكلي لدائرة البروج Obliquity}             Obliquity := 23.439 - 0.0000004 * D;             {نحسب المطالع المستقيمة للشمس Alpha}            Alpha := RadToDeg(Arctan((Cos(DegToRad(Obliquity)) * Tan(DegToRad(Lambda)))));            Alpha := LessMore360(Alpha);            Alpha := Alpha - (360 * int(Alpha / 360));            Alpha := (Alpha + 90 * (Floor(Lambda / 90) - Floor(Alpha / 90)));            {نحسب الزمن النجمي بالدرجات st}             ST := FloatMod((100.46 + 0.985647352 * D) , 360);             {نحسب ميل الشمس الزاوي DEC}             Dec := RadToDeg(Arcsin(Sin(DegToRad(Obliquity)) * Sin(DegToRad(Lambda))));             {نحسب زوال الشمس الوسطي noon}             Noon := Alpha - ST;             Noon := LessMore360(Noon);             {نحسب الزوال العالمي UT Noon}             UT_Noon := Noon - Long;             {نحسب الزوال المحلي الذي هو وقت الظهر Local noon}            Local_Noon := UT_Noon / 15 + Zone;            Asr_Alt := RadToDeg(Arctan((1+Juristic_Methods )+ Tan(DegToRad(Lat - Dec))));            {نحسب نصف قوس النهار Durinal_Arc}            Durinal_Arc := _arct(-0.8333);            Asr_Arc     := _arct(90 - Asr_Alt);            Esha_Arc    := _arct(-C_Method.AngleIsha);            Fajr_Arc    := _arct(-C_Method.AngleFajr);            {نحسب الآن وقت الصلوات الناتج يجب تحويله إلى زمن}            Fajr_Time := Local_Noon - (Fajr_Arc / 15);            Sun_Rise := Local_Noon - (Durinal_Arc / 15);            Asr_Time := Local_Noon + (Asr_Arc / 15);            Sun_Set :=  Local_Noon + (Durinal_Arc / 15);            Esha_Time := Local_Noon + (Esha_Arc / 15); // Adjust Isha for Umm Al-Qura University// 90 Min after Maghrib on all Months but Ramadan 120 Min.If myMethod=3 Then  //begin   If GregorianToHijri(anydate).Month=9 Then      Esha_Time:=Sun_Set+2      Else      Esha_Time:=Sun_Set+1.5;If Sun_rise>=Local_Noon Then   Begin   Sun_rise := 0;   Fajr_Time := 0;   End Else       If Fajr_Time>=Sun_Rise Then          Fajr_Time := 0;If Sun_set<=Local_Noon Then   Begin   Sun_set := 0;   Esha_Time := 0;   End Else       If Esha_Time<=Sun_set Then          Esha_Time := 0;     Result[0]  := _Frac24(Fajr_Time);     Result[1]  := _Frac24(Sun_Rise);     Result[2]  := _Frac24(Local_Noon);     Result[3]  := _Frac24(Asr_Time);     Result[4]  := _Frac24(Sun_Set);     Result[5]  := _Frac24(Esha_Time); end;           //-----------------------------------------------------------------------------الاستخدامTtimes:=CalcPrayerTimes(Date,longitude,latitude,timezone,CalcWay,AsrType); for i:=0  to 5 do GlobelTimes:=Ttimes;//-----------------------------------------------------------------------------

الكود سورس كامل
 

اقتباس

http://www.mediafire.com/download/5e...tadan_fix2.zip

 

alpha.7z

الموقع الرسمي للبرنامج

تجدون فيه اخر نسخة مع الكود سورس

اقتباس

https://sourceforge.net/projects/mawakitt/