| Вопрос: TextBox. Суммирование данных колокни. | Добавлено: 14.05.06 03:50 |
Автор вопроса:  Tony Corleone | Web-сайт: corleone.name | ICQ: 312123 |
|
Есть один текстбокс:
Распродажа
100 200 300 400 Как мне посчитать сумму чисел данных в этом текстбоксе? Зарание спасибо за помощь. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  BUG(O)R ICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #1 | Добавлено: 14.05.06 08:34 |
|
Private Sub Form_Load()
MsgBox AmountOfText(Text1.Text) End Sub Function AmountOfText(DataForAmout As String) As Long Dim arr arr = Split(DataForAmout, vbCrLf) For i = 0 To UBound(arr) If IsNumeric(arr(i)) Then AmountOfText = AmountOfText + arr(i) Next i End Function |
||
|
Номер ответа: 2 Автор ответа: Tony Corleone ICQ: 312123 Вопросов: 11 Ответов: 19 |
Web-сайт: Профиль | | #2 | Добавлено: 14.05.06 18:24 |
Спасибо 
|
||
Страница: 1 |