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


الملفات المرفقة
.rar   VERIFICATION CLE SS.rar (الحجم : 56.95 ك ب / التحميلات : 185)
[-] كل من 1 user says قال شكرا ل amar99 على المشاركة المفيدة
  • wadoud
الرد
#2
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;
حتى لو فشلت يكفيك شرف المحاولة....
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم