+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية وضع النسبة المؤية مع DBGrid (/showthread.php?tid=5402)
كيفية وضع النسبة المؤية مع DBGrid - المحجوب - 17-07-2013
السلام عليكم
لدي DBGrid به عدد موظفين مجازين
اردت عمل نسبة مؤية مع الموظفين العاملين
بحيث ان عدد الموظفين العاملين سوف اضعهم في edit وتظهر النتيجة في lable
كيف استخرج النسبة المؤية في ذلك ؟
كيفية وضع النسبة المؤية مع DBGrid - S.FATEH - 18-07-2013
السلام عليكم
تحسب النسبة المؤوية
عدد الموضفين = عدد الموضفين العاملين + عدد الموضفين المجازين
النسبة المؤوية = عدد الموضفين المجازين * عدد الموضفين /100
اثناء العرض طبق ما تشاء على النتيجة
كيفية وضع النسبة المؤية مع DBGrid - المحجوب - 22-07-2013
لكن لم افهم ما المشكلة في حال القسمة يظهر خطأ
PHP كود :
var
A: integer;
B: integer;
C: integer;
d: Integer;
begin
a:= StrToint(edit3.text);
b:= StrToint(edit2.text);
Edit4.text:= intToStr(A+B);
C:=StrToInt(Edit4.Text);
Edit5.Text:=IntToStr(c*b);
d:= StrToInt(Edit5.Text);
sSpeedButton9.Caption:=IntToStr(d/100);
كيفية وضع النسبة المؤية مع DBGrid - makhlouf - 22-07-2013
السلام عليكم و رحمة الله تعالى و بركاته
أخي النسبة المئوية عدد حقيقي و ليس طبيعي و لا صحيح و لهذا استعمل float بدلا من int
مثل:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var a:real;
begin
edit3.Text:=floattostr(strtofloat(edit1.text)/ strtofloat(edit2.text));
end;و إن أردت القسمة بالعدد الصحيح فاستخدم الدالة "div" بدلا من "/"
بالتوفيق
كيفية وضع النسبة المؤية مع DBGrid - المحجوب - 22-07-2013
شكراً لكم تحقق الامر والملخص نتيجتين كلهما نفس الناتج
PHP كود :
Edit4.Text:=FloatToStr(StrToFloat(Edit2.Text)+StrToFloat(Edit3.Text ));
Edit5.Text:=FloatToStr(StrToFloat(Edit2.Text)*StrToFloat(Edit4.Text ));
sSpeedButton9.Caption:=FloatToStr(StrToFloat(Edit5.Text)/StrToFloat( Edit6.Text));
PHP كود :
var
A: integer;
B: integer;
C: integer;
begin
a:= StrToint(edit3.text);
b:= StrToint(edit2.text);
Edit4.text:= intToStr(A+B);
C:=StrToInt(Edit4.Text);
Edit5.Text:=IntToStr(c*b);
sSpeedButton9.Caption:=FloatToStr(StrToFloat(Edit5.Text)/StrToFloat( Edit6.Text));