![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] VB 6.0. Запутался с типами переменных. Не считает сотые |
|
VBA - [решено] VB 6.0. Запутался с типами переменных. Не считает сотые
|
Ветеран Сообщения: 823 |
Dim k1sum As Double k1sum = Val(k11.Text) + Val(k21.Text) + Val(k31.Text) + Val(k41.Text) + Val(k51.Text) // Считает верно b11.Caption = Round(Val(k11.Text) / k1sum, 2) // Считает верно b12.Caption = Round(Val(k12.Text) / k2sum, 2) // Считает верно b13.Caption = Round(Val(k13.Text) / k3sum, 2) // Считает верно b14.Caption = Round(Val(k14.Text) / k4sum, 2) // Считает верно b15.Caption = Round(Val(k15.Text) / k5sum, 2) // Считает верно n1.Caption = Val(b11.Caption) + Val(b12.Caption) + Val(b13.Caption) + Val(b14.Caption) + Val(b15.Caption) // Считает неверно. Выводит 0 а вот b11.Caption - уже сотые меньше нуля, и в caption записывается через запятую типа: 0,01 возможно по этому не считает. как сделать так, что бы записывало не через запятую, а через точку. |
|
------- Отправлено: 02:50, 21-05-2010 |
Ветеран Сообщения: 5624
|
Профиль | Отправить PM | Цитировать Artem-Samsung, это новый стиль программирования такой - в заголовок заносить значения?
Цитата Artem-Samsung:
|
|
------- Отправлено: 02:57, 21-05-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 823
|
Профиль | Сайт | Отправить PM | Цитировать Dim a1 As Double Dim a2 As Double Dim a3 As Double Dim a4 As Double Dim a5 As Double a1 = Round(Val(k11.Text) / k1sum, 2) b11.Caption = a1 a2 = Round(Val(k12.Text) / k2sum, 2) b12.Caption = a2 a3 = Round(Val(k13.Text) / k3sum, 2) b13.Caption = a3 a4 = Round(Val(k14.Text) / k4sum, 2) b14.Caption = a4 a5 = Round(Val(k15.Text) / k5sum, 2) b15.Caption = a5 n1.Caption = (a1 + a2 + a3 + a4 + a5) Спасибо. |
------- Отправлено: 03:03, 21-05-2010 | #3 |
Ветеран Сообщения: 5624
|
Профиль | Отправить PM | Цитировать Artem-Samsung, ну вот и чудненько
![]() |
------- Отправлено: 03:04, 21-05-2010 | #4 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
UserGate - Не считает мой трафик | Deman | Сетевые технологии | 0 | 08-12-2009 11:23 | |
CMD/BAT - батник который считает файлы | LeonanVasia | Скриптовые языки администрирования Windows | 1 | 28-09-2009 05:55 | |
Win2KproRU : WindowsUPdate MsXML и DotNetFX - запутался какой язык ставить | kefi | Microsoft Windows NT/2000/2003 | 0 | 30-11-2006 21:17 | |
Запутался в правах | Avlita | Microsoft Windows NT/2000/2003 | 7 | 10-12-2004 09:03 | |
.NET - Запутался в весиях Visual Basic'a и C/C++/C# | Delf | Программирование и базы данных | 4 | 05-09-2002 15:51 |
|