АВ
А, ну как я вижу на msdn апи расширили, и костыль прикрутили для .net
Size: a a a
2020 April 23
АВ
А так - использовать как я выше написал
Р
Ну так то да, и строк тысяч наверное 30. Но вообще зачем юзать эту древнюю либу? Только если для каких-то com вещей.
Нужно, например число 0.75 округлить с точностью 0.5. Т.е. по правилам математического округления должен получить 1. Но увы, иногда получаю 0.5. Это катастрофа. Эпсилон не сильно помогает.
Р
А так - использовать как я выше написал
Спасибо, буду пытаться👍
АВ
А....Ceil? Оно округляет к ближайшему большему целому
АВ
А Floor к меньшему. Не все в Round опирается:D
Р
А как узнать когда именно использовать Ceil или Floor?
SP
А как узнать когда именно использовать Ceil или Floor?
Ceiling - потолок, вверх. Floor - пол, вниз.
Р
Ceiling - потолок, вверх. Floor - пол, вниз.
Правильно, если >= 0.5 - Ceil, Только вот не всегда Extended выдаёт этот 0.5
Р
Иногда получается 0.499999999999999999... и приходится брать бубен
АВ
А как узнать когда именно использовать Ceil или Floor?
Ну а тут все зависит, можно на досуге почитать: https://docs.oracle.com/cd/E19957-01/806-3568/ncg_goldberg.html
I
главное не забывать, что в дельфях по умолчанию бухгалтерское округление
Р
Ну а тут все зависит, можно на досуге почитать: https://docs.oracle.com/cd/E19957-01/806-3568/ncg_goldberg.html
Это наверное более продвинутая версия вот этого?
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374
Р
Igor
главное не забывать, что в дельфях по умолчанию бухгалтерское округление
Ничего подобного
Р
Это наверное более продвинутая версия вот этого?
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374
Прочитал, легче не стало)))
I
Ничего подобного
напечатай round(1.5) и round(2.5)
Р
Igor
напечатай round(1.5) и round(2.5)
round для лошар. Нормальные мужики пользуют SimpleRoundTo
Р
round для лошар. Нормальные мужики пользуют SimpleRoundTo
Но и он не совершенен. С ним то и проблемы
АВ
SimpleRoundTo? Там бухгалтерское округление
Р
SimpleRoundTo? Там бухгалтерское округление
нет
function SimpleRoundTo(const AValue: Single; const ADigit: TRoundToRange = -2): Single;
var
LFactor: Extended;
begin
LFactor := IntPower(10.0, ADigit);
if AValue < 0 then
Result := Int((AValue / LFactor) - 0.5) * LFactor
else
Result := Int((AValue / LFactor) + 0.5) * LFactor;
end;
function SimpleRoundTo(const AValue: Single; const ADigit: TRoundToRange = -2): Single;
var
LFactor: Extended;
begin
LFactor := IntPower(10.0, ADigit);
if AValue < 0 then
Result := Int((AValue / LFactor) - 0.5) * LFactor
else
Result := Int((AValue / LFactor) + 0.5) * LFactor;
end;