امیرحسین قاسمی 610 ارسال شده در 31 فروردین، ۱۴۰۲ اشتراک گذاری ارسال شده در 31 فروردین، ۱۴۰۲ سلام برای بررسی صحت کد ملی ابتدا این تابع رو به پروژه خودتون اضافه کنین: Sub IsNationalCodeValid(NationalCode As String)As Boolean Dim Temp As Int=0 For i=0 To NationalCode.Length-2 Temp=Temp+(NationalCode.CharAt(i).As(String)*(10-i)) Next Dim R As Int=Temp Mod 11 Dim ControlDigit As Int=NationalCode.CharAt(NationalCode.Length-1).As(String) If R < 2 Then Return (R==ControlDigit) Return (11-R==ControlDigit) End Sub به این شکل میتونین از تابع بالا استفاده کنین: Log(IsNationalCodeValid("5545862382")) لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.