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

[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 (توقيت غرينيتش)
لكني نسيت الكود
مرة أخرى شكرا جزيلا