Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

terça-feira, 26 de junho de 2012

DELPHI - Formatando CNPJ/CPF

Reações: 


//ATLabs 26-06-2012


//Formatar CNPJ

function FormataCNPJ(const Valor : String) : string;
Const
  ZEROS = '000000000000000000'; // 18 Caracteres
Var S : String;
begin
   S := ZEROS + Valor;
   S :=       Copy(S, length(S) - 13, 2) +
        '.' + Copy(S, length(S) - 11, 3) +
        '.' + Copy(S, length(S) - 8, 3) +
        '/' + Copy(S, length(S) - 5, 4) +
        '-' + Copy(S, length(S) - 1, 2);
   result := Copy(S, Length(S) - 18, 18); // Tamanho 18 já com a formatação 00.000.000/0000-00
end;

//Formatar CPF
function FormataCPF(const Valor : String) : string;
Const
  ZEROS = '00000000000000'; // 14 Caracteres
Var S : String;
begin
   S := ZEROS + Valor;
   S :=       Copy(S, length(S) - 10, 3) +
        '.' + Copy(S, length(S) - 7, 3) +
        '.' + Copy(S, length(S) - 4, 3) +
        '-' + Copy(S, length(S) - 1, 2);
   result := Copy(S, Length(S) - 14, 14); // Tamanho 14 já com a formatação 000.000.000-00
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer