FUNCAO Q RETIRA ZERO A ESQUERDA
Bom dia...Alguém saberia como faço p/a tirar o zero a esquerda de um nº por exemplo: 000001 ficaria 1, c fosse 001010 ficaria 1010...
Desde já Agradeço...
Desde já Agradeço...
Usando o format para o menor numero decasas desejado no caso coloquei apenas um veja:
ou seja se digitar 0000000001
vai ficar 1
se colocar 0100001
vai ficar
100001
e assim vai
Text1.Text = Format(Text1.Text, [Ô]0[Ô])ou seja se digitar 0000000001
vai ficar 1
se colocar 0100001
vai ficar
100001
e assim vai
tentei aki ñ deu certo..por exemplo se for 010031 c for 001052...ñ consegui...
Tente...
Text1 = CDbl(Text1)
posta seu códgio, alguma coisa etsá errada, pois funciona
Docto = txtnr.text
Txtnr.text = Format(txtnr.text, [Ô]0[Ô])
fiz assim e deu certo cdbl(txtnr.text)
Txtnr.text = Format(txtnr.text, [Ô]0[Ô])
fiz assim e deu certo cdbl(txtnr.text)
vê se é assim q vc precisa
Private Sub Command1_Click()
total = Text1.Text
[ô]--------------------------Retirar zeros esquerda
For zero = 1 To 5 Step 1 [ô]Aqui pode definir o tamanho do seu campo
If Mid$(total, zero, 1) = [Ô]0[Ô] And Mid$(total, (zero + 1), 1) <> [Ô],[Ô] Then
Mid$(total, zero, 1) = [Ô] [Ô]
Else
zero = 5
End If
Next
[ô]
Text2.Text = Trim(total)
End Sub
t+
Private Sub Command1_Click()
total = Text1.Text
[ô]--------------------------Retirar zeros esquerda
For zero = 1 To 5 Step 1 [ô]Aqui pode definir o tamanho do seu campo
If Mid$(total, zero, 1) = [Ô]0[Ô] And Mid$(total, (zero + 1), 1) <> [Ô],[Ô] Then
Mid$(total, zero, 1) = [Ô] [Ô]
Else
zero = 5
End If
Next
[ô]
Text2.Text = Trim(total)
End Sub
t+
entà o se resolveu encerra o tópico por favor
Citação:TECLA escreveu:
Tente...Text1 = CDbl(Text1)
Ou text1.text = VAL(text1.text)
Tópico encerrado , respostas não são mais permitidas