EasyDelphi Q&A

.تم الانتقال للموقع الجديد . وسيبقى الموقع القديم هذا متاح للقراءة فقط حتى الانتهاء من نقل كل الاسئلة إلى الموقع الجديد

يمكنك طرح الاسئلة والنقاشات في الموقع الجديد. الذهاب للموقع الجديد


+4 تصويتات
73 مشاهدات
سُئل في تصنيف fmx بواسطة (180 نقاط) | 73 مشاهدات

2 إجابة

+3 تصويتات

لكتابة التاريخ بهذا الشكل يجب تغيير التنسيق الى :


dd-MMMM-yyyy
 

  • اما في لوحة التحكم الخاصة بالنظام او من داخل البرنامج

هذا مثال لاستعمال التنسيق باستخدام الدالة formatdatetime  :
 

  ShowMessage(formatdatetime('dd-MMMM-yyyy', date));
  • هذا جدول يوضع طريقة عمل التنسيق
     

لعرض

استخدم تلك التعليمة البرمجية

الشهور على هيئة 1–12

m

الشهور على هيئة 01–12

mm

الشهور على هيئة Jan–Dec (ينايرـديسمبر)

mmm

الشهور على هيئة January–December (يناير–ديسمبر)

mmmm

الشهور على هيئة الحرف الأول من الشهر

mmmmm

الأيام على هيئة 1–31

d

الأيام على هيئة 01–31

dd

الأيام على هيئة Sun–Sat السبت-الأحد

ddd

الأيام على هيئة Sunday–Saturday السبت-الأحد

dddd

السنوات على هيئة 00-99

yy

السنوات على هيئة 1900-9999

yyyy

 

  • لاستعمال التنسيق الموجود في النظام باستخدام الدالة formatdatetime  :
    - التنسيق الطويل للتاريخ:  dddddd
    - التنسيق القصير للتاريخ:  ddddd 

 

  ShowMessage(formatdatetime('dddddd', date));
   ShowMessage(formatdatetime('ddddd', date));

 

 

تم الرد عليه بواسطة (8,060 نقاط)
عُدل بواسطة
0 تصويتات

اليك هذا المثال حيث يمكنك من كتابت التاريخ كاملا كما يمكنك التغيير فيه 

وهو يكتبه على الشكل التالي مثال : الاحد 25 نوفمبر 1972

 

procedure TForm1.Button1Click(Sender: TObject);

const

    Mois: array[0..11] of string = ('جانفي', 'فيفري', 'مارس', 'أفريل', 'ماي', 'جوان', 'جويلية', 'أوت', 'سمبتمبر', 'أكتوبر', 'نوفمبر', 'ديسمبر');

    jour: array[0..6 ] of string = ('السبت','الأحد','الإثنين','الثلاثاء', 'الأربعاء','الخميس','الجمعة');

 

var

  d, m, y: word;

 

begin

  DecodeDate(DateTimePicker1.Date, y, m, d);

  Label1.Caption := jour[d] +'  '+ IntToStr(d)+ '  ' + Mois[m-1]+'  '+ IntToStr(y);

end;

 
تم الرد عليه بواسطة (1,050 نقاط)

اسئلة متعلقة

0 تصويتات
2 إجابة
سُئل أكتوبر 5، 2019 في تصنيف fmx بواسطة xorpas (1,360 نقاط) | 236 مشاهدات
0 تصويتات
0 إجابة
سُئل أبريل 12 في تصنيف fmx بواسطة Abdou_System (120 نقاط) | 28 مشاهدات
+1 تصويت
4 إجابة
سُئل ديسمبر 2، 2019 في تصنيف fmx بواسطة nacertaker (240 نقاط) | 118 مشاهدات
0 تصويتات
2 إجابة
سُئل أغسطس 25، 2019 في تصنيف fmx بواسطة xorpas (1,360 نقاط) | 111 مشاهدات
+3 تصويتات
2 إجابة
سُئل أكتوبر 29، 2018 في تصنيف fmx بواسطة isamzaki1978 (150 نقاط) | 217 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

497 سؤال
752 إجابة
1,417 تعليق
271 مستخدم