Perfeito, Desculpe, foi falha minha.
Valeu Pedro. ________________________________ De: Ricardo Augusto <ricardo250...@yahoo.com.br> Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 10 de Abril de 2010 13:42:58 Assunto: Re: [delphi-br] Draw - Page Control Acho que vc teria que ter aberto um outro tópico, já que no assunto não tem nada a ver com esse... O dígito verificador é formado por 2 dígitos onde o primeiro é o módulo 11 dos 32 algarismos da mátricula e o segundo é módulo 11 dos mesmos algarismos concatenado ao primeiro dígito. Supondo que no Edit1 está o número completo da matrícula (sem espaços) e no Edit2 sairá o DV: *function *calcularDX(Numero: *string*): integer; > *var* > i: integer; > mult: integer; > soma: integer; > *begin* > i := 1; > mult := Length(Numero) + 1; > soma := 0; > > *while *i <= Length(Numero) do > *begin* > Inc(soma, ((Ord(Numero[i]) - 48) * mult) * 10); > Inc(i); > Dec(mult); > *end*; > > Result := soma *mod *11; > > *if *Result = 10 *then *Result := 1; > *end*; > > *procedure *TForm1.Button1Click(Sender: TObject); > *var* > D1, D2: Char; > *begin* > D1 := Chr(CalcularDX(Edit1.Text) + 48); > D2 := Chr(CalcularDX(Edit1.Text + D1) + 48); > Edit2.Text := D1 + D2; > *end*; > No provimento 2 da norma do CNJ está descrito a que se refere cada parte do número da matrícula. OBS.: Da próxima vez, abre outro tópico =) Em 9 de abril de 2010 21:49, Pedro Neves <neve...@yahoo.com> escreveu: > > > Pessoal, boa noite. > > Alguém tem a fórmula para calcular o digito verificador da matrícula > das > novas certidões de nascimento, casamento e óbtio. > > Atenciosamente, > > Pedro > > > [As partes desta mensagem que não continham texto foram removidas] > > > -- _____________________________________ Ricardo Augusto "Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas" (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> ____________________________________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]