16-07-2015, 01:54 PM
29-07-2015, 09:47 AM
السلام عليكم.
إستخدم (formatfloat(' # ### ###.##',a/b
بدلا من ( formatfloat('#,##0.00',a/b
إستخدم (formatfloat(' # ### ###.##',a/b
بدلا من ( formatfloat('#,##0.00',a/b
11-08-2015, 04:51 PM
اشكرك اخي الكريم hakimrahal هل من الممكن كتابة رقمين وراء الفاصلة فقط 0.99 بدل 0,997752808988764
25-08-2015, 08:53 PM
12-09-2015, 04:01 PM
نفس المشكل و ارجو منكم الحل في نفس المثال المرفق
13-09-2015, 11:01 AM
جرب هذه الدالة:
ما تقوم به هو تحويل القيمة الى string ثم بدئ عملية المعالجة بترك فقط رقمين بعد الفاصلة ثم اعادة تحولها الى قيمة...
التعديل سهل على الدالة اذا كان عندك نوع مخرجات اخرى...
طريقة استعمالها:
ما تقوم به هو تحويل القيمة الى 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
13-09-2015, 04:53 PM
السلام عليكم.... إستخدم هذا الكود:
كود :
medit2.text:=floattostr(int(a/b)+int(frac(a/b)*100)/100);