VPF::Суммирование нескольких Label.Caption

Exception

Дата 8.12.2005, 14:17 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Flotskiy @ 8.12.2005, 14:55)

Akina, исправил на

код Visual Basic
1:

Label11.Caption = Val(Label1.Caption) + Val(Label2.Caption)

Благодарю за помощь. Всего доброго

Скорее

Код


Label11.Caption = Str$(Val(Label1.Caption) + Val(Label2.Caption))

Exception

Дата 8.12.2005, 14:44 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Flotskiy @ 8.12.2005, 07:27)

Наверно есть какай-то другой способ добывание данных

Используй выражение COUNT

Akina

Дата 8.12.2005, 18:26 (ссылка)

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

Загрузка ...

Советчик

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

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

Правильно так:

Код


Label11.Caption = CStr(CInt(Label1.Caption) + CInt(Label2.Caption))

Почему:
CInt преобразует к Integer, а Val - к Variant(Integer)
CStr преобразует к String, а Str - к Variant(String)

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

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

Exception

Дата 8.12.2005, 18:41 (ссылка)

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

Загрузка ...

Эксперт

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

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

Тогда вместо Str Str$. Но я этого раньше не замечал, респект

Akina

Дата 8.12.2005, 19:12 (ссылка)

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

Загрузка ...

Советчик

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

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

Цитата(Run @ 8.12.2005, 19:41)

Тогда вместо Str Str$. Но я этого раньше не замечал

В VB6 нет функции Str$. Однако компилятор ее нормально проглатывает - потому что в целЯх совместимости, но использует все одно Str. Это видно по времени исполнения:

Код


Dim t As Double
Dim i As Long
Dim s As String

t = Timer
For i = 1 To 100000
    s = CStr(CInt("123"))
Next
t = Timer - t
Debug.Print t
t = Timer
For i = 1 To 100000
    s = Str(CInt("123"))
Next
t = Timer - t
Debug.Print t
t = Timer
For i = 1 To 100000
    s = Str$(CInt("123"))
Next
t = Timer - t
Debug.Print t

Цитата(Debug)

0,109
0,172
0,172

Соотношение времен приблизительно 2:3, т.к. в первом случае 2 преобразования (String - Integer - String), а во втором и третьем - три (String - Integer - Variant - String).

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

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