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

[taha_gh]

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

الحل - أن أوفق

PHP كود :

procedure TForm1.ComboBox1Change(Sender: TObject);
var
Fil:String;
M,J,A:Integer;
begin
 Fil :='';
 M:=(Combobox1.ItemIndex+1);
 A := 2008;
 case M of
 1,3,5,7,8,10,12 : j := 31;
 4,6,9,11 : j := 30;
 2 : if (A mod 4)=0 then j:= 29 else j := 28;
 end;
 fil := 'Date>=''01/'+formatfloat('00',M)+'/'+Formatfloat('0000',A)+''' and date<='''+Formatfloat('00',j)+'/'+formatfloat('00',M)+'/'+Formatfloat('0000',A)+'''';
 Table1.Filtered:=true;
 Table1.Filter:=Fil;
 end;