| Вопрос: ДВА ЧИСЛА!!! СРОЧНО :) | Добавлено: 30.03.06 15:23 |
Автор вопроса:  SRV | ICQ: 254226129 |
| Привет всем! Может и глупый вопрос, но никак немогу понять как это сделать! Есть два числа, скажем 35,00 и 50,00. Как их сплюсовать чтобы не терялись нули(*,00)? Я пробовал Abs Val и тому подобное но не выходит! Числа за писани в ТексБоксах... Спасибо. |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  avdey ICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #1 | Добавлено: 30.03.06 16:01 |
|
Text2.Text & ",00" =Cint(Left(Text1.Text, Text1.TextLengh-3) + Cint(Left(Text2.Text, Text2.TextLengh-3)
Может быть  ))))
|
||
|
Номер ответа: 2 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #2 | Добавлено: 30.03.06 16:06 |
|
Если после запятой всегда нули, можно так решить:
Option Explicit
Private Sub Command1_Click() Text3 = LTrim(Str(Val(Text1) + Val(Text2))) & ",00" End Sub |
||
|
Номер ответа: 3 Автор ответа: SRVICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #3 | Добавлено: 30.03.06 16:26 |
| Нули не всегда, может быть и 35,80 | ||
|
Номер ответа: 4 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #4 | Добавлено: 30.03.06 16:49 |
MsgBox Format(10.283648, "0.00"
|
||
|
Номер ответа: 5 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #5 | Добавлено: 30.03.06 16:52 |
| используй тип Currency и Format$/FormatCurrency | ||
|
Номер ответа: 6 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #6 | Добавлено: 30.03.06 17:40 |
|
Ну даже если нули не всегда когда нужно к строке прибавляй ,00 - ну а
если там ,80 то оно само сабой будет |
||
|
Номер ответа: 7 Автор ответа: SRVICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #7 | Добавлено: 31.03.06 16:07 |
|
Спасибо огромное Tamplier
Пошло как по маслу
|
||
|
Номер ответа: 8 Автор ответа: Temak ICQ: 264-692-095 Вопросов: 4 Ответов: 24 |
Профиль | | #8 | Добавлено: 02.04.06 03:16 |
| Тип Currency и ничего другово не надо выдумывать | ||
|
Номер ответа: 9 Автор ответа: Beralus_ICQ: 255004422 Вопросов: 0 Ответов: 14 |
Профиль | | #9 | Добавлено: 07.04.06 17:43 |
|
Sub AppendToRight(param)
const maxDecLen=2 dim Pos as byte pos= instr(param,"."
if pos =0 then param=param & "." pos = len (param) End if '-------------- while len (right$(param,Len(param)-pos)))<maxDecLen param =param & "0" wend end sub 'Priblezitelno vot tak , esli ya ponyalvas pravilno...A luchshiy sposob dumayu chto uje skazan tip Currency |
||
Страница: 1 |