![]() |
![]() |
![]() |
|
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
|
Была похожая ситуация. Нужно было отображать прописью вес (причём с точностью до грамма)
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |