нужна помощь в записе числа прописью

Программирование на Visual Basic for Applications
marsel
Начинающий
Начинающий
 
Сообщения: 16
Зарегистрирован: 12.04.2006 (Ср) 13:13

нужна помощь в записе числа прописью

Сообщение marsel » 15.06.2006 (Чт) 8:06

люди добрые помогите как число перевести в строку (например есть число 0,5 в строке д.б ноль целых пять десятых), как это реализовать с помощью макроса

Nicky
Постоялец
Постоялец
 
Сообщения: 519
Зарегистрирован: 12.08.2004 (Чт) 12:14

Сообщение Nicky » 15.06.2006 (Чт) 8:26


marsel
Начинающий
Начинающий
 
Сообщения: 16
Зарегистрирован: 12.04.2006 (Ср) 13:13

Сообщение marsel » 15.06.2006 (Чт) 8:41

немного не та функция, мне нужен макрос, который бы преобразовывал ЧИСЛО (не денежная) в строку

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 15.06.2006 (Чт) 8:54

А ты немного подумай и доработай.
Lasciate ogni speranza, voi ch'entrate.

Nicky
Постоялец
Постоялец
 
Сообщения: 519
Зарегистрирован: 12.08.2004 (Чт) 12:14

Сообщение Nicky » 15.06.2006 (Чт) 9:05

marsel писал(а):немного не та функция, мне нужен макрос, который бы преобразовывал ЧИСЛО (не денежная) в строку

ИМХО рублей заменяешь на целых, копеек - на сотых, короче доработать напильником

specialist
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 12.08.2006 (Сб) 14:23

Сообщение specialist » 13.08.2006 (Вс) 22:23

В Excelу можно и без макросов - www.allok.ru - вариант попроще, www.denpro.ru - побольше настроек

Sneaky Pete
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 24.08.2006 (Чт) 21:56

Сообщение Sneaky Pete » 30.08.2006 (Ср) 9:51

Код: Выделить всё
    (..потёрто модерами по просьбам общественности...)


Вот нашел како-то исходинк и подправил функцию таким образом, чтобы при вводе NumStr (Число;"параметр") выдавались разные окончания, т.е. : RUR - рубли копейки, Litre - литры, km - километры...

Это пробный вариант, буду делать красивее... потом выложу, но как вариант...

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 30.08.2006 (Ср) 10:06

Ужас какой-то .... особенно в сочетании с боянизмом и некрофилией...
Весь мир матрица, а мы в нем потоки байтов!

Nicky
Постоялец
Постоялец
 
Сообщения: 519
Зарегистрирован: 12.08.2004 (Чт) 12:14

Сообщение Nicky » 30.08.2006 (Ср) 10:20

!Viper! писал(а):Ужас какой-то .... особенно ...

Особенно перлы вроде этого
Код: Выделить всё
Case 5
AddEnd = "километров"
Case 6
AddEnd = "километров"
Case 7
AddEnd = "километров"
Case 8
AddEnd = "километров"
Case 9
AddEnd = "километров"
Case 11 To 20
AddEnd = "километров"

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 30.08.2006 (Ср) 12:29

2 SneakyPete, прежде чем выкладывать такой код стоило наверно задуматься над его качеством. Я кнечно понимаю, что каждый начинающий проггер пишет калькулятор, парсер арифметических выражений и "число прописью", но стоит ли такие перлы выкладывать в качестве примера кода? Тем более, что ответ в топике уже был дан.

З.Ы. Модеры, по-моему стоит потереть сей перл.
Весь мир матрица, а мы в нем потоки байтов!


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 55

    TopList