VPF::Разобраться с Format() - Форум программистов

Rust04

Дата 10.3.2006, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 14.7.2005

Репутация: нет
Всего: нет

Сообразить не могу smile

Как правильно задать шаблон форматирования для вывода чисел, чтобы были разделители триад - пробелы и дробную часть выводилась только при ее наличии?

Akina

Дата 10.3.2006, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Используй FormatNumber()

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Rust04

Дата 10.3.2006, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 14.7.2005

Репутация: нет
Всего: нет

Цитата(Akina @ 10.3.2006, 11:49

)

Используй FormatNumber()

Не работает, если есть дробная часть.

Akina

Дата 10.3.2006, 11:58 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Ну так напиши свой. Потому как неотображение десятичного разделителя при отсутствии дробной части и отображение при ее наличии - штука нетривиальная.
Добавлено @ 12:04
что-нить типа:

Код

' Draft
Function MyNumberFormat(Value as Variant) as String
Neg=Sign(Value)
Value=ABS(Value)
Re=trim(cstr(fix(value)))
Im=trim(Mid(cstr(Value),instr(cstr(Value),".")+1))
if Neg = -1 Then re = "-" & Re
If Im <> String(Len(im),"0") then 
   MyNumberFormat=Re & "." & Im
Else
   MyNumberFormat=Re
End If
End Function

--------------------

Rust04

Дата 10.3.2006, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 14.7.2005

Репутация: нет
Всего: нет

Цитата(Akina @ 10.3.2006, 11:58

)

Ну так напиши свой.

Хех, так потому и спрашиваю, что писать лень ;)
А если серьезнее, то в языке 1С, который на 90% с бейсика слизан, функция Формат() позволяла нужные мне выкрутасы. А в "оригинале" похоже с ними глухо.

Gannibal

Дата 12.3.2006, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

Код


numer = 5121235.1
MsgBox Format(numer, "##,##0.00")

вот тебе и пример на формат.. как можно от форматировать так как ты хотел сделать в принципе

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

Rust04

Дата 14.3.2006, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 14.7.2005

Репутация: нет
Всего: нет

Цитата(Gannibal @ 12.3.2006, 14:07

)

Format(numer, "##,##0.00")

Не годится smile

Если дробной части нет, выводить ее не надо.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »