delphi4arab منتديات دلفي للعرب

السلام عليكم
اخوتي ما هي دالة تقريب الرقم العشري الى قيمة اعلى مهما كانت القيمة العشرية مثلا 10.1 يصبح 11 و 10.5 يصبح 11 و 10.05 يصبح 11
اعرف الدالة round لكنها عندما تكون المنزلة العشرية اقل من 5 مثل 10.1 ترجعه 10 وليس 11

المصدر
مع بعض اللمسات

PHP كود :
function RoundCorrect(R: Real): LongInt;
var
  s: Real;
begin
  Result:= Trunc(R);        // extract the integer part
  if Frac(R) > 0 then
    Result := Result + 1;   // ...add 1
end; 

وعليكم السلام ورحمة الله
يمكن ايضا

كود :
Trunc(12.1)+1:=13;
Trunc(12.9)+1:=13;

(23-02-2018, 12:20 AM)Agmcz كتب : [ -> ]المصدر
مع بعض اللمسات

PHP كود :
function RoundCorrect(R: Real): LongInt; var s: Real; begin Result:= Trunc(R); // extract the integer part if Frac(R) > 0 then Result := Result + 1; // ...add 1 end; شكراا لك

dahmane26

Agmcz

mobile

dahmane26