Club Builder

[Carlos J. Fernandez]

Hola amigos,

Alguien me podría traducir esta función? es para validar un NIF de Portugal, pero no me termina de salir bien.

function ValidaNIF(NIF:String):Boolean;
var
i:byte;
Control:Integer;
begin
// Testa o tamanho do NIF (Obrigatório 9 digitos)
Result:=Length(NIF)=9;

// Testa o NIF por tipo de caracteres (apenas númerico é aceite)
try
Control:=StrToInt(NIF);
except
Result:=False;
end;

// Testa se o digito inicial é válido (1, 2, 5, 6, 7, 8 ou 9)
Result:=Result AND (Pos(NIF[1],'1256789')>0);

// Calcula o CheckDigit do número e valida-o contra o último algarismo (algarismo de controle) pelo método Módulo 11
if Result
then begin
Control:=StrToInt(NIF[1])*9;
for i:=2 to 8 do
Control:=Control+(10-i)*StrToInt(NIF[i]);
Control:=11-(Control Mod 11);
if Control>=10 then Control:=0;
Result:=Control = StrToInt(NIF[9]);
end;
end;
_________________
Carlos J. Fernandez

[_Leo]

Lo mas literal posible:

[Carlos J. Fernandez]

Leo,

Estupendo, muchas gracias, es que con Delphi me lío.

Un abrazo.

Carlos
_________________
Carlos J. Fernandez