VPF::Округление чисел до заданной точности

wofs

Дата 29.8.2009, 09:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

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

Romikgy

Дата 29.8.2009, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

Код


RoundTo(1234567, 1)

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

wofs

Дата 5.10.2009, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

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

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

dumb

Дата 5.10.2009, 12:56 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158

Код


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

wofs

Дата 5.10.2009, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 1.5.2007

Репутация: нет
Всего: нет

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

Код


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

Это сообщение отредактировал(а) wofs - 5.10.2009, 13:35

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »