30-10-2009, 04:39 AM
السلام عليكم ورحمة الله
لدي دالة واحتاج الى معرفة من اي تقويم تعطي البيانات هل من تقويم ام القرى ام من تقويم ويندوز .
الويندوز فيستا ، ومنصة النظام يعتمد على تقويم ام القرى .
لدي دالة واحتاج الى معرفة من اي تقويم تعطي البيانات هل من تقويم ام القرى ام من تقويم ويندوز .
الويندوز فيستا ، ومنصة النظام يعتمد على تقويم ام القرى .
كود :
function Tfr_report.GregToHijri(Date: TDateTime): String;
var
GregDate: TSystemTime;
HigriText: array[0..127] of Char; {For Hijra date}
begin
DateTimeToSystemTime(Date, GregDate);
GetDateFormat(0, DATE_USE_ALT_CALENDAR, @GregDate, 'yyyy/MM/dd', HigriText, 128);
Result := StrPas(HigriText);
end;