Buscar por:

Como calcular digito verificador de cnpj e cpf?

Código

Function CalculaCnpjCpf(Numero : String) : String; 

var 

  i,j,k, Soma, Digito : Integer; 

  CNPJ : Boolean; 

begin 

  Result := Numero; 

  case Length(Numero) of 

  9: 

  CNPJ := False; 

  12: 

  CNPJ := True; 

  else 

  Exit; 

  end; 

  for j := 1 to 2 do 

  begin 

  k := 2; 

  Soma := 0; 

  for i := Length(Result) downto 1 do 

  begin 

  Soma := Soma + (Ord(Result[i])-Ord('0'))*k; 

  Inc(k); 

  if (k > 9) and CNPJ then 

  k := 2; 

  end; 

  Digito := 11 - Soma mod 11; 

  if Digito >= 10 then 

  Digito := 0; 

  Result := Result + Chr(Digito + Ord('0')); 

  end; 

end;