Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.07.2008, 08:55   #1
Mint86
Пользователь
 
Аватар для Mint86
 
Регистрация: 17.07.2008
Сообщений: 81
Злость Формат числа в калькуляторе

Есть калькулятор выражений. Надо чтобы в результирующей части формат числа был с разделителем групп разрядов.
Например: выражение 2+20000 должно отобразиться так 20 002. Возможно ли?
Вложения
Тип файла: zip Калькулятор выражений.zip (14.4 Кб, 14 просмотров)
Mint86 вне форума
Старый 25.07.2008, 09:23   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

"Вручную" можно сделать все, что угодно. Например, в Вашем Label отображать сформированную с нужными параметрами текстовую строку, а значение для последующего использования брать из другого Label или TextBox (у которого Visible = False) значение которого есть число.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 25.07.2008, 09:30   #3
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Запишите так:
Код:
Else
Label1.Caption = Format(Application.Evaluate(strExpr), "#,##0")
End If
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 25.07.2008, 09:32   #4
Mint86
Пользователь
 
Аватар для Mint86
 
Регистрация: 17.07.2008
Сообщений: 81
По умолчанию

SAS888 спасибо за идею, попробую.
Mint86 вне форума
Старый 25.07.2008, 09:36   #5
Mint86
Пользователь
 
Аватар для Mint86
 
Регистрация: 17.07.2008
Сообщений: 81
По умолчанию

VictorM респект!
Mint86 вне форума
Старый 25.07.2008, 09:38   #6
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

VictorM. Не знаю, на сколько Ваше предложение устроит автора, т.к. при задании подобного формата, либо обрежутся, либо добавятся лишние значения после запятой. Этот параметр задается данным форматом по умолчанию.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 25.07.2008, 09:55   #7
Mint86
Пользователь
 
Аватар для Mint86
 
Регистрация: 17.07.2008
Сообщений: 81
По умолчанию

В принципе два знака после запятой устроит, так каклькулятор в основном будет использоваться для расчета денежных единиц.
Цитата:
Else
Label1.Caption = Format(Application.Evaluate(strExpr ), "#,##0.00")
End If
Но, ваш вариант тоже интересен, попробую его тоже реализовать ради интереса, наскоко я понял там точность вообще не округлится.
Mint86 вне форума
Старый 25.07.2008, 11:41   #8
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Немного доработал Ваш код. Теперь данные отображаются с разделением групп разрядов и со всеми дробными значениями.
Но, если нужно далее вести какие-нибудь расчеты, то значение калькулятора нужно брать не из Label1, а из скрытого Label3, в котором они хранятся в "первозданном" виде.
Вложения
Тип файла: rar Калькулятор выражений_2.rar (12.4 Кб, 19 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 25.07.2008, 11:49   #9
Mint86
Пользователь
 
Аватар для Mint86
 
Регистрация: 17.07.2008
Сообщений: 81
По умолчанию

SAS888 Спасибо! Вам тоже респект!!!
Mint86 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль, Turbo Pascal, PascalABC.NET 3 23.03.2008 21:49
как написать в калькуляторе... Илюха Общие вопросы Delphi 6 02.11.2007 17:06
формат картинки AndrewASV Общие вопросы Delphi 3 23.09.2007 12:45
формат отрицательного числа zetrix Microsoft Office Excel 0 30.10.2006 18:54