دخول

HAFTARI · 28-02-2008, 11:50 AM

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

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

كود :
تسمية المتغيرات
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;

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة