التعامل مع التاريخ و الوقت

[HAFTARI]

السلام عليكم و رحمة الله تعالى و بركاته

هذا المثال يفيد التعامل مع الوقت و التاريخ

كود :

تسمية المتغيرات var DateEtHeure : TSystemTime; begin إستحداث التاريخ و الزمن الفعلي للنظام GetSystemTime(DateEtHeure); // récupère la date et 'heure système (GMT ?) إدراج السنة Edit1.Text:=IntToStr(DateEtHeure.wYear); إدراج الشهر Edit2.Text:=IntToStr(DateEtHeure.wMonth); إدراج رقم الأسبوع Edit3.Text:=IntToStr(DateEtHeure.wDayOfWeek); إدراج اليوم Edit4.Text:=IntToStr(DateEtHeure.wDay); إدراج الساعة الفعلية للنظام Edit5.Text:=IntToStr(DateEtHeure.wHour); // heure système إدراج الدقائق Edit6.Text:=IntToStr(DateEtHeure.wMinute); إدراج الثواني Edit7.Text:=IntToStr(DateEtHeure.wSecond); إدراج الجزء من الثانية Edit8.Text:=IntToStr(DateEtHeure.wMilliseconds); إدراج الفرق بين الساعات Edit9.Text:=IntToStr(DateEtHeure.wHour+EcartHeures); // heure réelle end;

ختاما أرجوا أن يفيدكم هذا المثال البسيط
تحياتي

[مهدي]

أحسنت

هذه الطريقة أفضل من إستعمال الإجراء DecodeDate و DecodeTime

غير أن السطر الأخير يحتاج إلى مراجعة

ما هي EcartHeures ؟

[HAFTARI]

السلام عليكم

أود أن اشكرك أخي مهدي أولا على هذه الملحوظة.

في الحقيقة يوجد خطأ بالكود، EcartHeures هذا الكود غير متاح في دلفي.
أود أن أشير أنه يمكننا إيجاد الفرق بين الساعة الفعلية للنظام و الساعة الحقيفية GMT (توقيت غرينيتش)
لكني نسيت الكود
مرة أخرى شكرا جزيلا