Округление при делении

Posted by obzor under Delphi

Как правильно сделать округление в меньшую сторону после деления, до первого знака после запятой?

Т.е например 1000/26,5 = 37.73 округлить до 37,70, а если 2000/26,5 = 75.47, но мне нужно что бы было 75,40 а не 75,50 как делает RoundTo.

DIONISKA

Если решать проблему в лоб, то можно сделать так: value:=trunc(1000/26.5*10)/10; то-есть умножить на 10 после деления, получить целочисленную часть, а затем разделить на 10 или менять RoundMode и использовать RoundTo:

 var
  OldRoundMode: TRoundingMode;
  value:Double;
begin
//...
  OldRoundMode:=GetRoundMode();
  SetRoundMode(rmDown);
  value:=RoundTo(1000/26.5,-1);
  SetRoundMode(OldRoundMode); // не забываем вернуть старый режим округления
//...

Kronos913

Можно немного проще

x:=( (a*10) div b )/10.0

тема на форуме

Похожие статьи

• Вывод вещественных чисел
• Как вычесть дату?
• Как в datetimepicker взять только дату