کمک در مورد اعداد خیلی بزرگ

[mdelghandy]

170000000100324200001182700mod 97
حاصل این عبارت را چطوری محاسبه کنم

[vbhamed]

سلام يكسري الگوريتمها هستند كه محاسبات رو به صورت رشته اي انجام ميدن، مشابه همون كاري كه تو دبستان براي جمع و تفريق انجام مي‌داديم تو اينترنت هم فراوونه (جمع و تفريق رشته اي)
مثلا عدد 97 رو از عدد بالا تا جايي كه به عددي كمتر از 97 برسيم كم مي‌كنيم

[hrj1981]

170000000100324200001182700mod 97
حاصل این عبارت را چطوری محاسبه کنم

اين براي اعتبار سنجي حساب شبا نيست ؟

[mdelghandy]

برای ایجاد شماره شبا لازمه عدد بزرگی رو به 97 تقسیم و باقیمانده انو بدست بیاریم لطفا راهنمائی کنید

[hrj1981]

Public Function ShebaControl(ShebaValue As String) As Boolean
If Trim$(ShebaValue) = vbNullString Then ShebaControl = False: Exit Function
If Len(Trim$(ShebaValue)) <> 24 Then ShebaControl = False: Exit Function

Dim A As Variant, B As Variant, C As Variant
A = CDec(Right$(ShebaValue, 22) & "182700")
B = Abs(97)
C = A - Int(A / B) * B
If C <= -1 Then C = (C * (-1))
C = (98 - C)
Dim CtrlNumber1 As String
CtrlNumber1 = Format$(C, "00")
If Not StrComp(Left$(ShebaValue, 2), CtrlNumber1) = 0 Then ShebaControl = False: MsgBox "ERROR" , vbCritical + vbMsgBoxRight, EMPTY: Exit Function
ShebaControl = True
End Function

[raminshahmoradi]

سلام
برنامه زیر رو امتحان کن

موفق باشید