Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Округление чисел до заданной точности

Автор: wofs 29.8.2009, 09:48

Суть:
есть прайс-лист с ценами.
необходимо округлять любое число больше 100 до десяти рублей
например
100,05 = 110
105=110
256=260
и т.п.
помогите пожалуйста.
нашел округление только до целого... не то...

Автор: Romikgy 29.8.2009, 11:12

Код


RoundTo(1234567, 1)

Автор: wofs 5.10.2009, 11:47

в отъезде был...
спасибо, немного не то, но как вариант пойдет smile

а именно не то:
100,05 округляет математически до 100 руб
а мне бы хотелось результат 110 руб..

Автор: dumb 5.10.2009, 12:56

Код


var
  sum: Double;
  rsum: Int64;
begin
  sum:=100.05;
  rs:=((Trunc(s) div 10)+1)*10;

Автор: wofs 5.10.2009, 13:34

Вах! Огромное спасибо!!! То, что надо!!
только очепятки поправить, но это мелочи smile

Код


var
  sum: Double;
  rsum: Int64;
begin
  sum:=0.5;
  rsum:=((Trunc(sum) div 10)+1)*10;
  ShowMessage(IntToStr(rsum));