Dígito Verificador Do Crm

[fgois]

Colegas,

alguém tem a rotina que calcula o dv do CRM (conselho regional de medicina) ?

[Arlon]

vai nesse site aqui na sessão 'dicas' e procura alguma coisa a respeito do q você quer, só q você precisa se cadastrar. Tem um sistema de busca q ajuda muito achar a dica q você quer.

[fgois]

Colega,

Valeu pela ajuda, mas já sou cadastrado naquele site, contudo apos muita procura consegui o que queria.

Segue abaixo a rotina:

Esta função calcula o digito verificador.
Funciona com Pis/Pasep, conta corrente, agência bancária e CRM.

function DV11(Matr : string): string;
var
X, Cont, Soma, DV, NMatr, nTaman : integer;
begin
Cont := 9;
Soma := 0;
nTaman:=length(matr);
For X := nTaman downto 1 do
begin
NMatr := StrToInt(Copy(Matr,X,1));
Soma := Soma + (NMatr * Cont);
dec(Cont);
if cont=1 then
Cont := 9;
end;
DV := Soma mod 11;
if DV > 9 then DV := 11 - DV;
Result := IntToStr(DV);
end;

[bolomaster]

Problema resolvido tópico fechado

Abraços