[Resolvido] Formatar campo

[Rodrigo Defende 0]

Na minha tabela o campo cnpj esta gravado assim:

 

02558157000162

 

Agora eu to tentando formatar para mostrar em uma labelbox mas nenhuma forma de formatar esta dando certo.

 

Alguem teria uma ideia de como formartar isso ai

[quintelab 91]

Como a formatação do CNPJ é fixa e não varia, basta você ir copiando parte do código com Substring e ir concatenando os pontos, barras e hífens.

 

Abraços...

[tiagoborges.net 0]

To passando de duas formas rapidas e ainda com MID, mas o ideal é ja usar o padrao novo

 

Forma 1

 

Function fncCpfOut(ByVal vCpfOut As String) As String
		If vCpfOut <> nothing Then vCpfOut = Mid(vCpfOut, 1, 3) & "." & Mid(vCpfOut, 4, 3) & "." & Mid(vCpfOut, 7, 3) & "-" & Mid(vCpfOut, 10)
		fncCpfOut = vCpfOut
	End Function

Forma 2

 

Dim nrCPF As Integer = "12345678900"
	Dim vCPF As String = Mid(nrCPF, 1, 3) & "." & Mid(nrCPF, 4, 3) & "." & Mid(nrCPF, 7, 3) & "-" & Mid(nrCPF, 10)

Padrao novo que falei: http://www.macoratti.net/vbn_str.htm

 

Mid vira .Substring como o QUINTELAB falou

[quintelab 91]

A idéia é essa, a diferença é que o tiago postou a formatação para CPF, utilize a mesma lógica para formatar o CNPJ.

 

Abraços...

[Rodrigo Defende 0]

Valeu pessoal pelas dicas.

 

ja to fazendo varias rotinas aqui pra cnpj,cpf,rg,cep,telefone entre outras. Assim que eu terminar e testar posto aqui para constar e ajudar outros.

 

valeu a todos.