31-01-2017, 02:09 PM
01-02-2017, 10:45 PM
Function TestNSS(NSS: string) : boolean;
كود :
begin
if Length(trim(NSS) )<> 12 then Result := false
else
begin
if (NSS[11]+NSS[12])= inttostr( (99 -(((StrToInt(NSS[1]) +
StrToInt(NSS[3]) + StrToInt(NSS[5]) + StrToInt(NSS[7]) + StrToInt(NSS[9]))*2)
+ StrToInt(NSS[2]) + StrToInt(NSS[4]) + StrToInt(NSS[6]) +StrToInt(NSS[8]) + StrToInt(NSS[10]))) )
then
Result := true Else Result := false
end;
end;