есть ли типовая функция разложить число на комейки и рубли

входящий параметр - дробное число

есть функция Цел

а в чем собственно проблема ?

надо из числа получить две строки 1 целая другая дробная части

(4) не, это невозможно, ты же понимаешь. 1С не для этого.

(4) да точно, исправлюсь: есть функция Цел

(4) Что тебя не устраивает в ответе (2)?

(7) чего непонятно? ему надо...

(0) нет

Я тут поковырялся в украденных СП и пришёл к выводу, что в 1с это сделать невозможно. Нужно писать внешнюю компоненту...

функцией Цел я получил 0,81 -как из него получить 81

(11) читай (10)

(11) О_О
(10) будешь теперь ВК продавать? ;-)

(11) с помощью учебника по математике за 5-й класс

(11) Думаю тут нужно нанять специалиста.

вот и пришло молодое поколение одинэсников ;)

(14) за 5-й? у меня дочка в 1-м - уже проходили

(11) и как же это у тебя из 31,34 получилось 0,81?

Рубли = Цел(ТвоеЧисло);
Копейки = ТвоеЧисло-Рубли;

когда ж ламерство то прекратится...

(17) Не, по-моему все-таки в третьем

(18) через функцию, разложенную в ряд

(16) заметь, и это ещё реформа образования не прошла

(20) ты наверное про дроби. а я про умножение на 100

(23) Умножение у меня дочка в третьем классе изучать начала. А умножать на 10 и 100 еще в 5 лет умела. Но в первом классе это по-моему еще не изучали

(19) вот именно когда, ведь у тебя все равно выйдет не 34 копейки а 0,34 рубля

умножение - второй класс

Вероятно разница в программах. Таблицу умножения нам задавали учить на лето после 1го класса, но заниматься ей мы стали в самом конце второго

а задачка-то не такая тривиальная, как показалась с первого раза :-)))

Рубли = Цел(ТвоеЧисло);
Копейки = Окр(Макс(ТвоеЧисло,Рубли)-Мин(ТвоеЧисло,Рубли),2,1)*100;

вообще , таблицу умножения знать необязательно

(28) ага точно

коленку предлагали?

(28) туда даже курс не передашь =)

(31) ты свою предлагаешь? О_о

(28) это, по твоему нетривиально??

Строки же просят, а вы умножение, округление...
Сумма = "31,34";
Запятая = Лев(Сумма,1);
Пока Запятая <> "," Цикл  
   Рубли = Рубли + Лев(Сумма,1);
   Сумма = Прав(Сумма, СтрДлина(Сумма)-1);
   Запятая = Лев(Сумма,1);
КонецЦикла;
Копейки= Прав(Сумма, СтрДлина(Сумма)-1);

(28) может я еще не проснулся, но вроде как достаточно так:


Рубли = Цел(ТвоеЧисло);
Копейки = (ТвоеЧисло - Рубли) * 100;


не? :)

"количество разума на земле - константа. а население - растет..."©

(35) плюс надо это все упаковать в функцию, которая возвращает список значений.

(35)сколько копеек вернет для "31,3"?

(39) эх, упустил, надо нулями добить до длины 2

(36) "входящий параметр - дробное число"
не сказано, что оно положительное, и имеет не более 2-х знаков после запятой. а я стараюсь в меру сил делать алгоритмы устойчивые к входным данным. до кучи можно ещё забацать в начале проверку на тип значения )))

Цел() работает математически неверно, она дает:

Цел(-1.52)=-1, а правильно -2

Сумма = "31,34";
Буфер = стрЩаменить(Сумма,",",Символы.ПС);
Рубли = стрПолучитьСтроку(Буфер,1);
Копейки = стрПолучитьСтроку(Буфер,2);

(42) чо то ты загнался с утра пораньше.

(28) Макс(ТвоеЧисло,Рубли) всегда равно ТвоеЧисло, потому что ТвоеЧисло >= Цел(ТвоеЧисло) (*)
Мин(ТвоеЧисло,Рубли) всегда равно Рубли, аналогично (*)
Нужно округлять или нет, это уже от задачи зависит и входных данных, вот и получаем (36)

(43) исправил
Буфер = стрЗаменитьСтроку(Сумма,",",Символы.ПС);

(45) ышо адын... попей кофейку, проснись

(42) из СП "Вычисляет целую часть переданного числа, полностью отсекая дробную часть."

так что она делает ровно то, что написано в описании...

(47) пью пью

спасибо, посмеялся...
зы тож пошучу
вместо символа "," вставить перенос на следующую строку...

(41) с отрицательным числом (36) вполне справляется :)

(47) а чо не так то?

(51)+

Рубли = Цел(ВхЧисло);
Копейки = (ВхЧисло - Рубли) * 100;
                 
Сообщить("" + ВхЧисло + " = руб." + Рубли + " коп." + Копейки);


результат:


-10.15 = руб.-10 коп.-15


(51) ну, если знак всего числа в копейках д.б. сохранён - то да. тут как поставят условие

(52) я в (41) уже всё написал

люди - пятница завтра
но все равно - спасибо за хорошее настроение ))

(55) не увидел там объяснения использования Макс( и Мин( , особенно если (42)

+(57) для работы с отр. цифрами я б вначале лучше вот так сделал, чем усложнять алгоритм:

Если пЧисло < 0 Тогда

Возврат Коллекции.СоздатьМассив( - ВыделитьРубли( - пЧисло ) , - ВыделитьКопейки( - пЧисло ) );

КонецЕсли

(57) это аналог abs(), чтобы в копейках минуса не было, потому как спинным мозгом чую, результат будет использоваться для дальнейшего вывода. про (42) вообще не понял, кто что хочет сказать

lol :-d

(59) то есть -2.49 вернет -2 рубля и 49 копеек, но если их потом сложить, то получим -1.51

(61) кофе допивай уже скорее, подключай зрительный нерв
"потому как спинным мозгом чую, результат будет использоваться для дальнейшего вывода."
и будет у тебя гореть: -2 руб. -49 коп. как тебе это, нормуль?

(62) Отрицательное в топку.

(62) Это ты уже какую-то свою задачу решаешь, исходная: "разложить число на копейки и рубли" :)

(62) ну дык метод выделения и метод формирования строки нужно разделять, а не лепить все в одном месте

(48) "Вычисляет целую часть переданного числа, полностью отсекая дробную часть" - какое противоречие во фразе

В математике, целая часть вещественного числа x — округление x до ближайшего целого в меньшую сторону
wiki:Целая_часть

(65) странно это услышать от тебя после (58)

ЗЫ ладно, мужики, посмеялись, и будет, арбайтен, арбайтен!

(64) исходная задача вообще "Разложить число 31,34 на копейки и рубли" - правильный ответ 31 руб. 34 коп.

Мордобой будет?

(69) Подходи по одному.

добьем до 100? © SH

ВЫДЫХАЙ!

пятница завтра же

(67) в (58) только работа с чиселками, никакого форматирования, и вообще у меня еще кофе не все...

(66) судя по описанию (ну и на самом деле) метод тупо отсекает то, что после запятой. Там НЕ сказано, что это математически верный метод, и что "округление x до ближайшего целого в меньшую сторону ". Я не спорю, что возможно правильнее бы было сделать как в вики, но метод делает ровно то, что описано в СП

(74) ну я чисто только потому что ник такой

"в споре рождается истина"©

я таки думаю, что автору нужно почитать СП по Формат()

"отрицательные" рубли ещё не округляли ?

(77) озверел? Из строки рубли и копейки получать )))

(79) а чего? Вроде нормально выходит.

Стр = СокрЛП(Формат(Сумма * 100, ....));
Дл = СтрДлина(Стр);
Копейки = Сред(Стр, Дл - 1);
Рубли = Лев(Стр, Дл - 2);

(79) я таки подумал, что автору таки надо в конце концов строку "32 рубля 31 копейка" получить

(81) будет весело, если изначально автору и надо получить "пропись" =)

(82) +100500 точняк!!!
(80) фу:

Рубли = Цел(Сумма);
Копейки =( Сумма - Рубли) * 100;


Пятница уже пришла? :)

вот такой вариант :
// Функция "расщепляет" строку на подстроки, используя заданный
//        разделитель. Разделитель может иметь любую длину.
//        Если в качестве разделителя задан пробел, рядом стоящие пробелы
//        считаются одним разделителем, а ведущие и хвостовые пробелы параметра Стр
//        игнорируются.
//        Например,
//        РазложитьСтрокуВМассивПодстрок(",ку,,,му", ",") возвратит массив значений из пяти элементов,
//        три из которых - пустые строки, а
//        РазложитьСтрокуВМассивПодстрок(" ку   му", " ") возвратит массив значений из двух элементов
//
//    Параметры:
//        Стр -            строка, которую необходимо разложить на подстроки.
//                        Параметр передается по значению.
//        Разделитель -    строка-разделитель, по умолчанию - запятая.
//
//
//    Возвращаемое значение:
//        массив значений, элементы которого - подстроки
//
Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт
   
   МассивСтрок = Новый Массив();
   Если Разделитель = " " Тогда
       Стр = СокрЛП(Стр);
       Пока 1=1 Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить(Стр);
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(Лев(Стр,Поз-1));
           Стр = СокрЛ(Сред(Стр,Поз));
       КонецЦикла;
   Иначе
       ДлинаРазделителя = СтрДлина(Разделитель);
       Пока 1=1 Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить(Стр);
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(Лев(Стр,Поз-1));
           Стр = Сред(Стр,Поз+ДлинаРазделителя);
       КонецЦикла;
   КонецЕсли;
   
КонецФункции // глРазложить






Массив = РазложитьСтрокуВМассивПодстрок(Строка(ТвоеЧисло),",");
Руб = Массив[0];
Коп = Массив[1];

(84) разминаемся )

(37) А в 77-м что взрывалось?

(87)
8 января — в Москве прогремело 3 взрыва, осуществлённых армянскими националистами.
25 февраля — пожар в московской гостинице «Россия».

27 марта — крупнейшая за всю историю авиации катастрофа. В Тенерифе (Испания) столкнулись 2 самолёта, погибли 583 человека.
5 апреля — начало серийного производства «Нивы».
2 мая — на остановочном пункте Крыжовка произошёл наезд пассажирского поезда Гродно — Орша на пригородный электропоезд. Катастрофа в Крыжовке — самая крупная из всех, что случались когда-либо в Белорусской ССР на железной дороге.
25 мая — в кинотеатрах США начались показы фильма Звёздные Войны. Эпизод IV: Новая надежда.
21 июня — в кинотеатрах США начались показы 22-го по счёту мультфильма Уолта Диснея «Спасатели».
7 октября — принята Конституция СССР.

17 февраля - найден алгоритм в 1С по разложению числа 31,34.

(11) ты где учился?

(83) с отрицательными затык. А в (80) всё путём.

(87)Мутации есть всегда. просто статистически в год взрыва на Маяке и в год взрыва ЧАЭС их, по понятным причинам, больше...

(92) нет там никакого затыка. Функция Цел разве знак рубит?

Идите, работайте лучше.

Пацаны, вы ничего не понимаете…
Человек в (0) спрашивает про типовую функцию для разложить на коМейки и рубли. Поэтому правильный ответ такой:

Рубли = Окр(Сумма, 0);
Комейки = 0;

.

(96) скомейка = 0,01 комейки

(95) поработали, чё дальше делать? =)

(98) жди ЗП )

(99) ))) как раз аванс сегодня уже получил! можно идти домой?

+(100) тщорт, не заметил 100!