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

[MixanMM]

Добрый день, подскажите, как правильно сделать округление меньшую сторону после деления, до первого знака после запятой? Т.е например 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]

Сообщение от DIONISKA

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

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

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

[BDA]

Kronos913, но div сработает только с целыми.

[digitalis]

function div_down(arg1,arg2: double) : double ;
begin
  Result := Trunc(arg1/arg2*10.0)/10.0
end;