Все знаки после запятой...

[Ramzes]

Как в label проситать все знаки после запятой?

[Ennor]

Через InStr() находишь порядковый номер запятой в строке, а потом берешь все справа от нее функцией Right(). Только стартовый номер символа правильно передавай...

[Ramzes]

А поподробнее...

[GSerg]

mid$(label1.caption,instr(1,label1.caption,",")+1)

[Ramzes]

mid$(label1.caption,instr(1,label1.caption,",")+1)

требует "="

[Bethy]

требует "="

Функции обыкновенно возвращают знчения. Потому и требует "=".
Попробуй так:

Код: Выделить всё

MsgBox mid$(label1.caption,instr(1,label1.caption,",")+1)

[Ramzes]

Прекрасно, а как сделать так чтоб, число бло двух значное, т.е. если получаеться 3 то 30, 4 то 40 и т.д. если 03 то 03

[Ennor]

Все вышеуказанное передать как аргумент вот сюда:
Format(..., "#0")

[Ramzes]

Приведите пожалуйста код

[bonch]

:?
Приведите пожалуйста код

Код: Выделить всё


value1=mid$(label1.caption,instr(1,label1.caption,",")+1)

If value1 like "#" then value1=value1+"0"'где #  любая цифра
'или
value1=format(value1,"#.##")


[Ramzes]

при общении с Ennor'oм вот такой код усвоилься у меня в программе:

Код: Выделить всё

kop = Mid$(Label8.Caption, InStr(1, Label8.Caption, ",") + 1)
If Len(kop) = 1 Then kop = kop & 0


Всем спасибо