مرجع المبتدإ (مجموعة من الأكواد)

[nabilkeb]

39- حساب الفارق بين تاريخين DateTimePicker1 - DateTimePicker2 بالأيام:

كود :

function RemainingDays(from, _to: Tdate) : integer; begin Result := Trunc(_to - from); if Result < 0 then Result := 0; end;

للاستخراج:

كود :

Label1.Caption:=IntToStr(RemainingDays(DateTimePicker1.Date, DateTimePicker2.Date));

40- الحساب المتجدد للفارق بين توقيت معين و التوقيت الحالي : ___ مرفق


* الأكواد 8 - 17- 39 -40 ربما من شأنها أن تفيد أصحاب البرامج المتخصصة في التاريخ و التوقيت كعداد مقهى نت أو المؤذن ....