25-02-2008, 07:18 PM
و بدمج الوظيفة الثانية في الأولى نحصل على الوظيفة النهائية
كود :
function GregToHijri(Date: TDateTime): String;
var
GregDate: TSystemTime;
HigriText: array[0..127] of Char; {For Hijra date}
HDate : String;
begin
DateTimeToSystemTime(Date, GregDate);
GetDateFormat(0, DATE_USE_ALT_CALENDAR, @GregDate, 'dd/MM/yyyy', HigriText, 128);
HDate:= StrPas(HigriText);
Result := Copy(HDate,7,4)+'-'+Copy(HDate,4,2)+'-'+Copy(HDate,1,2);
end;