| Вопрос: Туплю... | Добавлено: 07.09.04 21:30 |
Автор вопроса:  Matrix | Web-сайт: delta-net.narod.ru
|
|
Сел на примитивной ошибке - не могу присвоить переменной дробное значение.те.
a=text1.text если а - строка, то все окейно, но мне надо чтобы это было ЧИСЛО |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #1 | Добавлено: 07.09.04 21:38 |
| В смысле text1.text = "24,455" и тебе надо, чтобы а = 24,455? Т.е чтобы а было не long, а Single или Double ? | ||
|
Номер ответа: 2 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #2 | Добавлено: 07.09.04 21:54 |
|
Dim a As Double
a = CDbl(Val(Replace(text1.text , ",", "."  ))
|
||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 08.09.04 13:18 |
| cresta, а зачем CDbl ты используешь если ф-ция Val возвращает и так этот тип? | ||
|
Номер ответа: 4 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #4 | Добавлено: 08.09.04 14:39 |
Для порядка 
|
||
|
Номер ответа: 5 Автор ответа: neo_matrix ICQ: 337536389 Вопросов: 4 Ответов: 13 |
Профиль | | #5 | Добавлено: 14.09.04 18:22 |
|
Капец, а это не действует?
Dim a As Single a = Val(Text1.Text) Или мож я чё-то не то пишу, попробуй... |
||
|
Номер ответа: 6 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #6 | Добавлено: 15.09.04 00:07 |
| А что за текст у тебя в ТексБоксе ? | ||
|
Номер ответа: 7 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #7 | Добавлено: 15.09.04 01:29 |
| neo_matrix, это будет действовать, только один момент: чтобы юзер не провоцировал ошибки, путая запятую и точку в качестве разделителя целой и дробной части числа, используется Replace. С ней можно использовать и запятую, и точку. | ||
|
Номер ответа: 8 Автор ответа: MatrixВопросов: 34 Ответов: 62 |
Web-сайт: Профиль | | #8 | Добавлено: 15.09.04 17:42 |
|
спасибо всем большое!
ps в текстбоксе число вида xxx.xxx... |
||
Страница: 1 |