دخول

amar99

سور دلفي مراقبة رقم الضمان الإجتماعي SS

getsource · 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;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة