Fórum Criar digito verificador #164250

E aeê, Tom
olhe essa funcao que eu peguei do clube a muito tempo

function DV11(Matr : string): string;

{Calculo pelo módulo 11 - tabela 2..9}

var
X, Cont, Soma, DV, NMatr : integer;
begin
Cont := 5;
Soma := 0;
For X := 1 to length(matr) do[color=red:bb54a3eea7]//alterado[/color:bb54a3eea7]
begin
NMatr := StrToInt(Copy(Matr,Cont-4,1));
Soma := Soma + (NMatr * Cont);
Inc(Cont);
end;
DV := Soma mod 11;
if DV > 9 then
DV := 11 - DV;
Result := matr+IntToStr(DV);
end;
///**************************************
ali onde ta escrito [color=red:bb54a3eea7]alterado [/color:bb54a3eea7]é por que quando peguei do clube ela tava pronta apenas para 4 digitos se tivesse menos ou mais dava erro.

mas mesmo assim eu uso no meu sistema para gerar um numero de inscricao com Digito verificador

tbcandidatos.append;
tbcandidatos.fieldbyname(´inscricao´).value:=dv11(EdtNumFicha.text);
.
..
...
....
tbcandidatos.post;
dbisaveChanges(tbcandidatos.handle);//salva as alteracoes direto na tabela.

Tchau Tom, boa Sorte.

Valeu pela funcao Danilo, qualquer coisa estamos aqui:

icq: 162211254
antoniocorreia@fsonline.com.br