قسمة عددين بدون قيمة تقريبية

[bouh25]

كيف اجري العملية برقمين وراء الفاصلة و بدون قيمة تقريبية
ولكم جزيل الشكـــر

[hakimrahal]

السلام عليكم.
إستخدم (formatfloat(' # ### ###.##',a/b
بدلا من ( formatfloat('#,##0.00',a/b

[bouh25]

اشكرك اخي الكريم hakimrahal هل من الممكن كتابة رقمين وراء الفاصلة فقط 0.99 بدل 0,997752808988764

[hakimrahal]

http://delphi4arab.net/forum/showthread.php?tid=7818

[bouh25]

نفس المشكل و ارجو منكم الحل في نفس المثال المرفق

[I3CT]

جرب هذه الدالة:
ما تقوم به هو تحويل القيمة الى string ثم بدئ عملية المعالجة بترك فقط رقمين بعد الفاصلة ثم اعادة تحولها الى قيمة...

التعديل سهل على الدالة اذا كان عندك نوع مخرجات اخرى...

PHP كود :

function FormatWithoutRoundIt(Val: Extended): Extended;
var
  strVal, strVal2: string;
begin
  strVal := FloatToStr(Val);

  if Pos('.', strVal) <> 0 then
    strVal2 := copy(strVal, 0, Pos('.', strVal) + 2)
  else
    strVal2 := strVal;

  result := StrToFloat(strVal2);
end; 


طريقة استعمالها:

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.text := FloatToStr(12356/81);
  Edit2.text := FloatToStr(FormatWithoutRoundIt(12356/81));
  Edit3.text := FloatToStr(FormatWithoutRoundIt(0.997752808988764));
  Edit4.text := FloatToStr(FormatWithoutRoundIt(0.947752808988764));
  Edit5.text := FloatToStr(FormatWithoutRoundIt(150.012345678));
end 


[hakimrahal]

السلام عليكم.... إستخدم هذا الكود:

كود :

medit2.text:=floattostr(int(a/b)+int(frac(a/b)*100)/100);