Fungsi Kalender Hijriyah Delphi

Fungsi Kalender Hijriyah Delphi.
Fungsi ini untuk menampilkan kalender hijriyah pada aplikasi yg kita buat. dan tentunya aplikasi yg dibuat dengan delphi.. hehehe.. :D
Function TglHijriah(AValue: TDateTime; HijriDiff: integer=0): TDateTime;<br />var Y,M,D: word; Calculate,temp1,temp2,temp3: integer;<br />begin<br />DecodeDate(AValue, Y, M, D); Inc(D,HijriDiff);<br />if ((Y>1582) or ((Y=1582) and (M>10)) or ((Y=1582) and (M=10) and (D>14))) then<br />Calculate:=Trunc((1461*(Y+4800+Trunc((M-14)/12)))/4)+Trunc((367*(M-2-12*(Trunc((M-14)/12))))/12)-Trunc((3*(Trunc((Y+4900+Trunc((M-14)/12))/100)))/4)+D-32075 else Calculate:=367*Y-Trunc((7*(Y+5001+Trunc((M-9)/7)))/4)+Trunc((275*M)/9)+D+1729777;<br />temp1:=Calculate-1948440+10632;<br />temp2:=Trunc((temp1-1)/10631);<br />temp1:=temp1-10631*temp2+354;<br />temp3:=(Trunc((10985-temp1)/5316))*(Trunc((50*temp1)/17719))+(Trunc(temp1/5670))*(Trunc((43*temp1)/15238));<br />temp1:=temp1-(Trunc((30-temp3)/15))*(Trunc((17719*temp3)/50))-(Trunc(temp3/16))*(Trunc((15238*temp3)/43))+29;<br />M:=Trunc((24*temp1)/709); D:=temp1-Trunc((709*M)/24);<br />Y:=30*temp2+temp3-30; Result:=EncodeDate(Y,M,D);<br />end;<br /><br />function Hijriyah:String;<br />var tgl:TDate; bln:String[14];<br />begin<br />Tgl:=TglHijriah(Now);<br />Case StrToInt(FormatDateTime('MM',tgl)) of<br />1: bln:='Muharram';<br />2: bln:='Shafar';<br />3: bln:='Rabi’ul Awal';<br />4: bln:='Rabi’ul Akhir';<br />5: bln:='Jumadil Awal';<br />6: bln:='Jumadil Akhir';<br />7: bln:='Rajab';<br />8: bln:='Sya’ban';<br />9: bln:='Ramadhan';<br />10: bln:='Syawal';<br />11: bln:='Zulqaidah';<br />12: bln:='Zulhijjah';<br />end;<br />Result:=FormatDateTime('dd ',tgl)+bln+FormatDateTime(' yyyy',tgl)+' H'<br />end;
Cara makenya, misal :
procedure TForm1.Timer1Timer(Sender: TObject);<br />begin<br />  Edit1.Text := Hijriyah;<br />end;