+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماذا تقرأ هذه الدالة - تقويم ام القرى ام تقويم ويندوز (/showthread.php?tid=1296)
ماذا تقرأ هذه الدالة - تقويم ام القرى ام تقويم ويندوز - أبو محمـد - 30-10-2009
السلام عليكم ورحمة الله
لدي دالة واحتاج الى معرفة من اي تقويم تعطي البيانات هل من تقويم ام القرى ام من تقويم ويندوز .
الويندوز فيستا ، ومنصة النظام يعتمد على تقويم ام القرى .
كود :
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;