Имя: Пароль:
1C
1C 7.7
v7: Формат РубКоп существует?
0 Мисти
 
09.11.12
10:51
Не могу найти, мне кажется, он только какой-то доморощенный - чтоб печаталось 33 руб. 09 коп. - вроде и не прописью, и не просто число?
1 Ёпрст
 
гуру
09.11.12
10:53
чпдс
2 zak555
 
09.11.12
10:53
это фантастика
3 Мисти
 
09.11.12
10:55
(1) ЧПДС - это именно прописью, всё буквами.
4 Ёпрст
 
гуру
09.11.12
10:58
тогда ничто не мешает брать отдельно целую и дробную часть и прибавлять руб и коп
5 Mikeware
 
09.11.12
10:59
(4) кроме ДНК...
6 zak555
 
09.11.12
11:00
Функция МояРубКоп Экпорт (Чис, ВыводитьКоп = 1)
  Возврат "" + Цел(Чис) + " руб." + ?(ВыводитьКоп = 1, " " + Число(Чис - Цел(Чис)) + " коп.", "");
КонецФункции
7 zak555
 
09.11.12
11:08
но тут есть ошибка
8 1Сергей
 
09.11.12
11:09
(6) а теперь сделай то же самое, но чтобы брал наименование валюты из SPL :)
9 1Сергей
 
09.11.12
11:10
(7) и не одна
10 zak555
 
09.11.12
11:14
(8) не умею

(9) ?
11 1Сергей
 
09.11.12
11:16
(10) ошибки:

1. слово Экспорт написано с ошибками (пропущена буква с)
2. слово Экспорт должно быть написано в конце определения функции
3. Число(Чис - Цел(Чис)) вернёт 0.********
12 zak555
 
09.11.12
11:24
(11)
3. почему ?
13 1Сергей
 
09.11.12
11:27
Число(1.53 - Цел(1.53)) = 0.53
14 zak555
 
09.11.12
11:41
(13) на 10 надо домножить
15 1Сергей
 
09.11.12
11:42
(14) :) бггг
10*Число(1.53 - Цел(1.53)) = 5.3
16 zak555
 
09.11.12
11:45
ltcznm hfp
17 zak555
 
09.11.12
11:45
*десять раз
18 Мисти
 
09.11.12
12:04
Функция РубКоп(Сумма)
   Руб=Цел(Сумма);
   Коп=100*ОКР((Сумма-Руб),2,1);
   СуммаРубКоп=""+Руб+" руб. "+Цел(Коп/10)+(Коп-10*Цел(Коп/10))+" коп.";
   Возврат СуммаРубКоп;
КонецФункции
Надо было 1С спрашивать просто контекстным поиском! А я помню, сама кому-то сочиняла  - тоже именно рубкоп писала.
19 zak555
 
09.11.12
12:05
(18) о_О

что это ?
20 1Сергей
 
09.11.12
12:05
(18) кошмар. Формат отменили? :)
21 zak555
 
09.11.12
12:06
> +Цел(Коп/10)+(Коп-10*Цел(Коп/10))

это зачем ?
22 1Сергей
 
09.11.12
12:07
(21) ей нужны копейки с лидирующим нулём. Твоя функция
1.01 вернёт "1 руб. 1 коп.", а надо "1 руб. 01 коп."
23 zak555
 
09.11.12
12:12
(22) так есть же формат(ч, "ч(0)2")
24 Мисти
 
09.11.12
12:16
(19) В типовой - в документах зарплаты.
(23) Это ж без руб. коп.!
25 zak555
 
09.11.12
12:17
действительно
26 zak555
 
09.11.12
12:17
//******************************************************************************
Функция РубКоп(Сумма)
   Руб=Цел(Сумма);
   Коп=100*ОКР((Сумма-Руб),2,1);
   СуммаРубКоп=""+Руб+" руб. "+Цел(Коп/10)+(Коп-10*Цел(Коп/10))+" коп.";
   Возврат СуммаРубКоп;
КонецФункции
27 1Сергей
 
09.11.12
12:18
Функция РубКоп(Сумма)
   Руб=Цел(Сумма);
   Коп=100*ОКР((Сумма-Руб),2,1);
   СуммаРубКоп=""+Руб+" руб. "+Формат(Коп, "Ч(0)2")+" коп.";
   Возврат СуммаРубКоп;
КонецФункции
28 vova1122
 
09.11.12
12:49
Была похожая ситуация. Нужно было отображать прописью вес (причём с точностью до грамма)