hbkor
دوشنبه 09 آذر 1383, 12:16 عصر
:flower: :flower: :flower: :flower: :
گیج: :گیج: :گیج:
procedure TForm1.Button6Click(Sender: TObject
);
var
i,j:integer;
begin
try
i:=0;
table1.First;
for j:= 1 to form1.Table1.RecordCount do
begin
if (table1.FieldValues['date']<=strtodate(EDate3.text ))and
(table1.FieldValues['date']>=strtodate(EDate4.text))
then
begin
i:=i+table1['kod'];
table1.Next;
end;
label11.Caption:=inttostr(i);
end;
except
showmessage(' dar in tarikh hichy nabod');
end;
گنبد دلفی
لطفا کمک کنید خواهششششششششششششش می کنم
خیلی خیلی فوری
ضمنا:تاریخ استفاده شده از کامپوننت آقای ربیعی عزیز است (hrtools_>edate)
اگر کد اس کیو ال هم دارید بنویسید
1383/09/09
end;
گیج: :گیج: :گیج:
procedure TForm1.Button6Click(Sender: TObject
);
var
i,j:integer;
begin
try
i:=0;
table1.First;
for j:= 1 to form1.Table1.RecordCount do
begin
if (table1.FieldValues['date']<=strtodate(EDate3.text ))and
(table1.FieldValues['date']>=strtodate(EDate4.text))
then
begin
i:=i+table1['kod'];
table1.Next;
end;
label11.Caption:=inttostr(i);
end;
except
showmessage(' dar in tarikh hichy nabod');
end;
گنبد دلفی
لطفا کمک کنید خواهششششششششششششش می کنم
خیلی خیلی فوری
ضمنا:تاریخ استفاده شده از کامپوننت آقای ربیعی عزیز است (hrtools_>edate)
اگر کد اس کیو ال هم دارید بنویسید
1383/09/09
end;