delphi4arab منتديات دلفي للعرب
كتابة التاريخ بالعربية - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كتابة التاريخ بالعربية (/showthread.php?tid=7319)



كتابة التاريخ بالعربية - عبدالله منداس - 24-11-2015

السلام عليكم 
عند طباعة التقرير باستعمال الكويك ربور يظهر التاريخ بشكل اللغة الفرنسية 12/06/2012 و المطلوب هو الشكل العربي 2012/06/12 
استعملت السلاسل النصية و الان أريد كيفية تغير التاريخ الى الحروف على هذا الشكل 12 جوان 2012.
هل من مساعدة ؟


RE: كتابة التاريخ بالعربية - onexite - 25-11-2015

PHP كود :
const

mldmnth       : array[1..12] of string = ('جانفي','فيفري','مارس','أفريل','ماي','جوان','جويلية','اوت','سبتمبر','اكتوبر','نوفمبر','ديسمبر');
days          : array[1..7]  of string = ('الأحد','الإثنين','الثلاثاء','الأربعاء','الخميس','الجمعة','السبت');


Function 
DateArabe(Today : TDateTime): String;
var
    d,m,y : word; s:string;
begin
  DecodeDate
(today,y,m,d);
  s:= days[DayOfWeek(today)];
  s := s + ' ' + IntToStr(d);
  s := s + ' ' + mldmnth[m];
  s := s + ' ' + IntToStr(y);
  Result := s;
end; 



RE: كتابة التاريخ بالعربية - nadirzeghni - 20-12-2015

بارك الله فيك اخي

للاضافة