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;ختاما أرجوا أن يفيدكم هذا المثال البسيط
تحياتي