Конференция VBStreets

**D_e_n_n** » 25.01.2008 (Пт) 10:11

Просто есть число длинное 158693469 надо чтобы оно выглядело так: 158.693 тыс. руб.

**alibek** » 25.01.2008 (Пт) 10:17

А что вызывает сложности?

**Денис** » 25.01.2008 (Пт) 11:33

D_e_n_n
Вот http://delphi4all.narod.ru/alg/numword.htm
тока на дельфи, осилишь?

**D_e_n_n** » 25.01.2008 (Пт) 11:42

Денис писал(а):D_e_n_n
Вот http://delphi4all.narod.ru/alg/numword.htm
тока на дельфи, осилишь?

нет на ВБА надо помочь это сделать но писать тыс.руб. не надо, надо просто 158563569 перевести 158 563 и всё!!!

**D_e_n_n** » 25.01.2008 (Пт) 11:43

Денис писал(а):D_e_n_n
Вот http://delphi4all.narod.ru/alg/numword.htm
тока на дельфи, осилишь?

нет на ВБА надо помочь это сделать но писать тыс.руб. не надо, надо просто 158563569 перевести 158 563 и всё!!!

**Денис** » 25.01.2008 (Пт) 11:50

Тоесть просто

Код: Выделить всё: если Число > 999999 тогда Строка = Слева(Число, 6) Строка = Слева(Строка, 3) + " " + Справа(Строка, 3) конец

так чтоли надо?

**Andrey Fedorov** » 25.01.2008 (Пт) 14:08

D_e_n_n писал(а):нет на ВБА надо помочь это сделать но писать тыс.руб. не надо, надо просто 158563569 перевести 158 563 и всё!!!

Format$(158563569 / 1000, "#,##0")

Гы?

**Krasnaja Shapka** » 28.01.2008 (Пн) 11:55

или Format$(158563569, "# ##0 ") - после нуля пробел обязателен!

преобразовать число 1234568 в 1.234 тыс. руб.