25-02-2014, 04:07 PM
25-02-2014, 06:08 PM
السلام عليكم...
أضف الوحدة DateUtils إلى عبارة uses. ثم استعمل الدالة DaysBetween التي تعيد الفرق بين تاريخين بالأيام كعدد صحيح.
توجد أيضاً الدالة DaySpan التي تعيد القرق بين تاريخين بالأيام كعدد كسري، حيث الجزء الكسري يمثل أجزاء من اليوم. مثلاً إذا أعادت الدالة DaySpan العدد 7.75 فذلك يعني 7 أيام و ثلاثة أرباع اليوم (أي 7 أيام و 18 ساعة).
نرجو الاستفادة و السلام.
أضف الوحدة DateUtils إلى عبارة uses. ثم استعمل الدالة DaysBetween التي تعيد الفرق بين تاريخين بالأيام كعدد صحيح.
توجد أيضاً الدالة DaySpan التي تعيد القرق بين تاريخين بالأيام كعدد كسري، حيث الجزء الكسري يمثل أجزاء من اليوم. مثلاً إذا أعادت الدالة DaySpan العدد 7.75 فذلك يعني 7 أيام و ثلاثة أرباع اليوم (أي 7 أيام و 18 ساعة).
نرجو الاستفادة و السلام.
25-02-2014, 06:25 PM
السلام عليكم
PHP كود :
var Date1 : TdateTime;
NbJour : Integer;
begin
Date1 := EncodeDate(2014, 01, 1);
Date1 := Date1 + NbJour;
{ou bien Date1 := Date1 - NbJour;}
end;
26-02-2014, 10:12 AM
السلام عليكم...
الصيغة العامة لها هي:
حيث Date1 و Date2 التاريخان. و variable اسم متغير من النوع Integer.
بفرض أن التاريخ الأول في Edit1 و التاريخ الثاني في Edit2:
و السلام.
الصيغة العامة لها هي:
كود :
variable := DaysBetween(Date1, Date2);حيث Date1 و Date2 التاريخان. و variable اسم متغير من النوع Integer.
بفرض أن التاريخ الأول في Edit1 و التاريخ الثاني في Edit2:
كود :
var
Interval: Integer;
//
begin
Interval := DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text));
//و السلام.
26-02-2014, 12:46 PM
شكرا لك
نجحت الطريقة
ربي يوفقك ويعطيك ما تتمناه
نجحت الطريقة
ربي يوفقك ويعطيك ما تتمناه
26-02-2014, 01:48 PM
السلام عليكم
طريقة على السريع
طريقة على السريع
26-02-2014, 03:32 PM
شكرا لك
طريقتك تعمل
طريقتك تعمل