+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : التعامل مع التاريخ و الوقت (/showthread.php?tid=65)
التعامل مع التاريخ و الوقت - HAFTARI - 28-02-2008
السلام عليكم و رحمة الله تعالى و بركاته
هذا المثال يفيد التعامل مع الوقت و التاريخ
كود :
تسمية المتغيرات
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;ختاما أرجوا أن يفيدكم هذا المثال البسيط
تحياتي
التعامل مع التاريخ و الوقت - مهدي - 01-03-2008
أحسنت
هذه الطريقة أفضل من إستعمال الإجراء DecodeDate و DecodeTime
غير أن السطر الأخير يحتاج إلى مراجعة
ما هي EcartHeures ؟
التعامل مع التاريخ و الوقت - HAFTARI - 01-03-2008
السلام عليكم
أود أن اشكرك أخي مهدي أولا على هذه الملحوظة.
في الحقيقة يوجد خطأ بالكود، EcartHeures هذا الكود غير متاح في دلفي.
أود أن أشير أنه يمكننا إيجاد الفرق بين الساعة الفعلية للنظام و الساعة الحقيفية GMT (توقيت غرينيتش)
لكني نسيت الكود
مرة أخرى شكرا جزيلا