حساب عدد ايام بين تاريخين

[boughagha]

السلام عليكم

اعمل بالدالفي 5 وحاولت حساب عدد ايام بين تاريخين ولم انجح في دلك

لدي جدول كالتالي produit/// N°, date , qte, prix, montant

في الفورم يوجد, edit1 , DATETIMEPICKER1 , DATETIMEPICKER2 .button 1 et 2

اردت حساب مبيعات خلا ل 10 ايام باستعمال DATETIMEPICKER 1 و datetimepicker 2

var
Date1, Date2 : TDateTime;
Diff : Extended
Day1, Month1, year1 : Word;
day2, Month2, year2 : Word;
begin
datetimepicker1.date:=date;
datetimepicker1.date:=date;
Date1 := EncodeDate(Year1, Month1, Day1);
Date2 := EncodeDate(year2, Month2, Day2);
Diff := DaysBetween(Date2, Date1);
TABL1.FILETRED:=TRUE;
end;
متلا عندما احدد التاريخ 01/12/2011 و 10/12/2011 في datetimepicker 1 et 2

واضغط على الزر يقوم الجدول بالتصفية من 01/12/2011 الى 10/12/2011

وعندما اضغط على زر 2 يضع حساب الكمية في edit1
وشكرا