delphi4arab منتديات دلفي للعرب

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

لدي بيانات لفلترتها
وهي بيانات تاريخ
عند الفلترة تاتي نتائج غير صحيحة
عندما ابحث عن سنة محددة مثلا 1978 يقوم بعرض نتائج 2008
عند البحث في سنة 1980 يقوم بعرض نتائج 2010
لا ادري ما هي المشكلة.

والمثال في المرفقات.

خطأ طفيف في قراءة السنة Y

PHP كود :
var
  m,y: word;
  d1,d2 : TDateTime;
begin
  DateSeparator:='/';
  ShortDateFormat:='DD/MM/YYYY';

  m:= ComboBox1.ItemIndex + 1; if m=0 then Exit;
  y := StrToInt(ComboBox2.Text);  //<--- هنا

  d1:=EncodeDate(y,m,1);
  if m=12 then begin
  d2:=EncodeDate(Y+1,1,1);
  d2 := d2 -1 ;
  end else
  d2:=EncodeDate(Y,12,1);

  ADOTable1.Filter := '(Dat>='+QuotedStr(DateToStr(d1))+') and (Dat<='+QuotedStr(DateToStr(d2))+')';
  ADOTable1.Filtered := True;
end; 

بارك الله فيك استاذ دلتا وجعل مثواك الجنة

galag8

محمد عبد العزيز

galag8