التحويل بين الهجري الى الميلادي

[onexite]

PHP كود :

uses DateUtils; 


PHP كود :

TMyDATE = record
  Year: Word;
  Month: Word;
  Day: Word;
end; 


PHP كود :

function HijriConvert(_date:TDateTime) : TMyDATE;
var l,n,j:Real;
begin

        l:=DateTimeToJulianDate(_date)-1948440+10632;
        n := int ((l- 1) / 10631);
        l := l- 10631 * n + 354;
        j := (int ((10985 - l) / 5316)) *(int (50 * l/ 17719)) +(int (l / 5670)) *(int (43 * l / 15238));
        l := l- (int ((30 - j) / 15)) *(int ((17719 * j) / 50)) -(int (j / 16)) *(int ((15238 * j) / 43)) + 29;

        Result.month := Trunc(24 * l / 709);
        Result.day := Trunc(   l - int (709 * Result.month / 24)   );
        Result.year := Trunc(30 * n + j - 30);
    end; 


الاستخدام

PHP كود :

ShowMessage(IntToStr(HijriConvert(Date).Year)); 


قمت بتحويل كود الجافا الى دلفي

https://code.google.com/p/mobimoon/