PREENCHER COM ZEROS A ESQUERDA
Alguém tem uma função que preencha com uma quantidade de zeros à esqueda do número digitado?
Ex.:
Nro01 = [Ô]1234[Ô]
zeroesquerda = [Ô]0001234[Ô]
Lembrando que a quantidade de zeros é da minha escolha.
Obrigado,
Ex.:
Nro01 = [Ô]1234[Ô]
zeroesquerda = [Ô]0001234[Ô]
Lembrando que a quantidade de zeros é da minha escolha.
Obrigado,
Wilherme - dei uma olhada no endereço que vc me enviou, só que os exemplos lá contido só tem com uma quantidade de zeros fixos, o que eu quero é que a função peça a quantidade de zeros a esquerda como no exemplo acima.
Dim Nro01 as String = [Ô]1234[Ô]
Dim zeroesquerda as String = Nro01.PadLeft(4, [Ô]0[Ô])4 é a quantidade e 0 é o que vai preencher, lembrando que existe o PadRight se precisar !
Segue Link ! http://www.arquivodecodigos.net/dicas/vb-net-como-inserir-uma-determinada-quantidade-de-um-determinado-caractere-a-esquerda-de-uma-string-1487.html
Abraços
Bom não sei se é exatamente o que precisa, mas vai ai uma dica:
Dim strcampo As String = Me.codigo_mcv.Text
strcampo = codigo_mcv.Text
strcampo = ([Ô]00000000[Ô] & strcampo)
codigo_mcv.Text = strcampo
Abraços...
Dim strcampo As String = Me.codigo_mcv.Text
strcampo = codigo_mcv.Text
strcampo = ([Ô]00000000[Ô] & strcampo)
codigo_mcv.Text = strcampo
Abraços...
Wilherme - ZeroCal - agradeço pela ajuda, consegui fazer a função do modo que está abaixo:
Module Module1
Public Function FormataZerosEsq(ByVal Valor As String, ByVal nZeros As String)
FormataZerosEsq = Valor.PadLeft(nZeros, [Ô]0[Ô])
End Function
End Module
Obrigado,
Module Module1
Public Function FormataZerosEsq(ByVal Valor As String, ByVal nZeros As String)
FormataZerosEsq = Valor.PadLeft(nZeros, [Ô]0[Ô])
End Function
End Module
Obrigado,
Tópico encerrado , respostas não são mais permitidas