Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#46: 2010-11-28 21:22:21 ЛС | профиль | цитата
andrestudio,задача стояла в получении числа в формате ХХХХХХХХХ.ХХ

------------ Дoбавленo в 21.13:
1.твоя функция похожа на индусский код. Зачем (где-то) преобразовывать дробное число в строку, затем в функции делать обратное (StrToFloat(s)).
2.подай на свою функцию "123". На выходе получишь 123.00 ?
3.жалко конечно что нет функции FloatToStrF()

------------ Дoбавленo в 21.22:
nesco, а может добавишь в Convertoк RealToStrF ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26073
Рейтинг: 2122
#47: 2010-11-28 21:38:06 ЛС | профиль | цитата
Tad писал(а):
жалко конечно что нет функции FloatToStrF()

А то в KOL-e смотрел
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#48: 2010-11-28 21:43:01 ЛС | профиль | цитата
Ещё нет. Пока занят
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26073
Рейтинг: 2122
#49: 2010-11-28 21:51:46 ЛС | профиль | цитата
Tad, а зачем в твоем коде вот это, в задании запрешено округлять

sd := Double2str(round(ReadReal(_Data,Data)/0.01)*0.01);
карма: 22

0
Ответов: 4641
Рейтинг: 334
#50: 2010-11-28 22:25:58 ЛС | профиль | цитата
нельзя округлять! Округлить всегда можно успеть!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16884
Рейтинг: 1239
#51: 2010-11-28 22:29:09 ЛС | профиль | цитата
а если входное число 12.099999. Без округления получим 12.09, с округлением 12.10.
Черт его знает где правда. Вообще-то бухгалтера округляют.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26073
Рейтинг: 2122
#52: 2010-11-28 22:33:20 ЛС | профиль | цитата
Короче, все это фигня, и не пойдет для широкого пользования -- сугубо конкретная вещь, каждый должен делать для себя сам. ИМХО.
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#53: 2010-11-28 22:41:15 ЛС | профиль | цитата
Ravilr писал(а):
нельзя округлять! Округлить всегда можно успеть!
После этой строки округлять уже нехрен.
Число знаков уже нужное - что округлять то будешь ?
------------ Дoбавленo в 22.41:
nesco писал(а):
и не пойдет для широкого пользования
Если захочет красиво выстроить цифры в таблице, то без неё никак. Мне пофик - у меня компонент есть, который число 1234 рисует 1,234.00 и все довольны.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:Konst
Разработчик
Ответов: 26073
Рейтинг: 2122
#54: 2010-11-28 22:43:38 ЛС | профиль | цитата
Tad, ты споришь ниочем -- мы не знаем, для какой цели он НЕ ОКРУГЛЯЕТ результат, возможно, это совсем не связано с бухгалтерией

------------ Дoбавленo в 22.43:
Tad писал(а):
Если захочет красиво выстроить цифры в таблице, то без неё никак

nesco писал(а):
конкретная вещь, каждый должен делать для себя сам

карма: 22

0
Ответов: 4641
Рейтинг: 334
#55: 2010-11-28 22:49:17 ЛС | профиль | цитата
nesco писал(а):
это совсем не связано с бухгалтерией

реестр платежей! Что пришло то и ушло и ни какого округления! + - копейка тут не прокатит.
------------ Дoбавленo в 22.49:
Tad писал(а):
а если входное число 12.099999

то сначало.. если конечно необходимо... можно и округлить. но штатными средствами.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16884
Рейтинг: 1239
#56: 2010-11-28 23:10:30 ЛС | профиль | цитата
Ravilr писал(а):
реестр платежей!
не гони пургу.

------------ Дoбавленo в 23.10:
Если это платежи, то там уже давно нет тысячных и ничего округляться не будет даже если пропустить через
------------ Дoбавленo в 23.10:
Round. Пришло 0.09 и уйдёт 0.09.
Или у тебя платежи с четырьмя знаками после запятой ??? Абсурд.

------------ Дoбавленo в 23.10:

Только курс доллара идет с четырмя знаками.
Ravilr писал(а):
но штатными средствами
каждый сам за себя.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 5227
Рейтинг: 587
#57: 2010-11-29 06:07:30 ЛС | профиль | цитата
Ravilr, Ivann, Tad, согласен что к т.з не подходит. тады vbs гуд.
code_21629.txt
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_21629.txt [554B] [282]
Ответов: 16884
Рейтинг: 1239
#58: 2010-11-29 09:52:22 ЛС | профиль | цитата
andrestudio, нормально.

После компиляции:
вариант с IC - 49 412 байт
вариант с VBS- 70 528 байт.
"А если результат одинаков, зачем платить больше ?" (с)
------------ Дoбавленo в 09.52:

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 4641
Рейтинг: 334
#59: 2010-11-29 10:26:36 ЛС | профиль | цитата
Tad, что то вы путаетесь

nesco писал(а):
для какой цели он НЕ ОКРУГЛЯЕТ результат,

Ravilr писал(а):
реестр платежей!


Tad писал(а):
у тебя платежи с четырьмя знаками после запятой ???

а кто сказал что у меня 4 знака после запятой?
У меня 2 знака и все тут.

карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16884
Рейтинг: 1239
#60: 2010-11-29 10:51:27 ЛС | профиль | цитата
Я не путаюсь. Я задал тебе вопрос (знаки вопроса в конце предложения ! ).

------------ Дoбавленo в 10.51:
А если проблема только в выравнивании до двух знаков после запятой, то для облагораживания
123
123.1
на
123.00
123.10
четырёх страниц форума достаточно


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)