округления валюты

Question

у меня есть следующий код, чтобы закруглить валютном

function MyRound(value :currency) : integer; 

begin 
    if value > 0 then 
    result := Trunc(value + 0.5) 
    else 
    result := Trunc(value - 0.5); 
end; 

он работал хорошо до сих пор, моя проблема теперь, если я хочу, чтобы округлить валюту как 999999989000,40 это дает отрицательное значение, так как Truc принимает int и MyRound также возвращает int.

Мои возможные решения - конвертировать валюту в строку и получить строку до . и конвертировать строку обратно в валюту. Правильно ли это? Я новичок в delpi, поэтому PLS мне помогает.

Answer 1

Вы являетесь слишком сложными вопросами. Вы можете просто использовать Round:

program Project1; 
{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

var 
    C: Currency; 

begin 
    C := 999999989000.4; 
    Writeln(Round(C)); 
    C := 999999989000.5; 
    Writeln(Round(C)); 
    C := 999999989000.6; 
    Writeln(Round(C)); 
    C := 999999989001.4; 
    Writeln(Round(C)); 
    C := 999999989001.5; 
    Writeln(Round(C)); 
    C := 999999989001.6; 
    Writeln(Round(C)); 
    Readln; 
end. 

, который выводит

 
999999989000 
999999989000 
999999989001 
999999989001 
999999989002 
999999989002 

Если вы не хотите, округления банкира, и вы действительно хотите, чтобы ваша Trunc логика, то вам нужно написать свою собственную функцию. Но проблема с вашей функцией в том, что она усекалась до 32-битного целого. Убедитесь, функция возвращает 64 битное целое число:

program Project1; 
{$APPTYPE CONSOLE} 

uses 
    SysUtils, Math; 

var 
    C: Currency; 

function MyRound(const Value: Currency): Int64; 
begin 
    if Value > 0 then 
    result := Trunc(Value + 0.5) 
    else 
    result := Trunc(Value - 0.5); 
end; 

begin 
    C := 999999989000.4; 
    Writeln(MyRound(C)); 
    C := 999999989000.5; 
    Writeln(MyRound(C)); 
    C := 999999989000.6; 
    Writeln(MyRound(C)); 
    C := 999999989001.4; 
    Writeln(MyRound(C)); 
    C := 999999989001.5; 
    Writeln(MyRound(C)); 
    C := 999999989001.6; 
    Writeln(MyRound(C)); 
    Readln; 
end. 

 
999999989000 
999999989001 
999999989001 
999999989001 
999999989002 
999999989002 

Answer 2

С моей точки зрения, у вас есть два варианта:

1. Вы используете функцию Round, как указывает Дэвид Heffernan;
2. Вы можете использовать функцию SimpleRoundTo, как описано here. Преимущество SimpleRoundTo состоит в том, что он получает параметры типов данных Single, Double и Extended и преобразует круглые номера очень хорошо, как указано.

Вам не нужны преобразования типов. Есть много функций округления, которые уже доступны вам. Просто округлите желаемое число.

Answer 3

Это то, что я на самом деле использовать (очень хотелось бы услышать, если есть какие-либо проблемы с этим подходом!):

function RoundingFunction(X: Real): Int64; 
begin 
    Result := Trunc(SimpleRoundTo(X, 0)); 
end; 

Answer 4

Посмотрите на процедуры округления Джона Herbster в. Они предлагают практически любой тип округления вам может понадобиться, например:

drNone, {No rounding.} 
drHalfEven,{Round to nearest or to even whole number. (a.k.a Bankers) } 
drHalfPos, {Round to nearest or toward positive.} 
drHalfNeg, {Round to nearest or toward negative.} 
drHalfDown,{Round to nearest or toward zero.} 
drHalfUp, {Round to nearest or away from zero.} 
drRndNeg, {Round toward negative.     (a.k.a. Floor) } 
drRndPos, {Round toward positive.     (a.k.a. Ceil) } 
drRndDown, {Round toward zero.      (a.k.a. Trunc) } 
drRndUp); {Round away from zero.} 

Я не могу дать вам ссылку прямо сейчас, но Google: десятичное округление Джон Herbster Я думаю, что его последние процедуры округления в DecimalRounding_JH1.pas , Его обсуждение округления с плавающей точкой (где-то на веб-сайте Embarcadero является «обязательным»).