+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : مراقبة رقم الضمان الإجتماعي SS (/showthread.php?tid=8382)
مراقبة رقم الضمان الإجتماعي SS - amar99 - 31-01-2017
سور دلفي مراقبة رقم الضمان الإجتماعي SS
RE: مراقبة رقم الضمان الإجتماعي SS - getsource - 01-02-2017
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;