[تمرين] فلترة بيانات جدول حسب الشهر في سنة معينة

[hanipino]

السلام عليكم
تم اختصار نوعا ما الكود (على طريقة اخى Rover)
فيما يخص '/' و '-' سببت لى مشاكل . جربت طريقة Rover لاكن نفس الشىء .

PHP كود :

uses ,DateUtils; 


PHP كود :

procedure TForm1.ComboBox1Change(Sender: TObject);
var
Filr,DayMod:String;
I:Integer;
StartDate,EndDate:TDate;
begin
 I:=(Combobox1.ItemIndex+1);
 //______________________//
 if ((i)<=(7)) And (i<>2) then
 if (i) mod 2 = 0 then DayMod:='30' else DayMod:='31';
 if (i)= (2) then DayMod:='29';
 if (i)>=(8) then
 if (i)mod(2) = 0 then DayMod:='31' else DayMod:='30';
 //______________________//
StartDate:=StrToDate('01-'+IntTostr(i)+'-2008');
EndDate:=IncDay(StartDate,StrToInt(DayMod)-1);

Filr:='Date >= '+DateToStr(StartDate)+' And '+'Date <= '+DateToStr(EndDate);
Table1.Filtered:=True;
Table1.Filter:=Filr;
end;