Formatação do campo CPF

[morcego 0]

Amigos,Tem como formatar o campo CPF de forma q a pessoa digite so os numeros e já apareça no formato (999.999.999-99)?Obrigado

[mebkocznski 0]

Aí pessoal

 

Estou de volta.!!!!

 

Trata-se de duas funções......

 

A PRIMEIRA FORMATA O CAMPO, A SEGUNDA CALCULA O DÍGITO DO CPF...REGRINA DE MÓDULO 11.

 

FALOW !!!!!

 

Estarei disponibilizando-as no tópico de CÓDIGOS

 

Function Verifica_Cpf(Campo)		if campo <> "" then  Campo = Replace(Campo,".","")  Campo = Replace(Campo,"/","")  Campo = Replace(Campo,"-","")  Campo = Replace(Campo,",","")  Campo = Replace(Campo,"+","") 	 If CalculaCPF(Campo)= True then    Campo = InsereZeros(Campo,11)    If IsNumeric(Campo) then   	 Campo = Mid(Campo,1,3) & "." & Mid(Campo,4,3) & "." & Mid(Campo,7,3) & "-" & Mid(Campo,10,2)    else   	 Msgbox "CPF INVÁLIDO",VBCRITICAL   	 campo = ""    End if 	 else    Msgbox "CPF INVÁLIDO",VBCRITICAL    campo = "" 	 end if  Verifica_Cpf = Campo	end ifEnd Function

Function CalculaCPF(Cpf)If Len(Cpf) = 11 thenj = 10CodigoAtual = Mid(Cpf, 1, 9)For t = 1 To 2	Total = 0  For I = 1 To Len(CodigoAtual) 	 Total = Total + Mid(CodigoAtual, I, 1) * j 	 j = j - 1  Next	Resto = Total Mod 11	Total = 11 - Resto  If Resto = 0 Or Total = 10 Then 	 Digito = 0 	 Else 	 Digito = Total  End If  CodigoAtual = CodigoAtual & Digito  j = 11NextIf Mid(Cpf,10,2) = Right(CodigoAtual, 2) thenCalculaCPF = TrueEnd ifend ifEnd Function

[morcego 0]

Valeu Marcelo,Vou fazer um teste mais tarde.Abç,Léo