הנושאים החמים
יישר כח עצום!
השתמשתי בפעם הראשונה והיה מעולה.
היתה רק בעיה עם חיוב אחד שהוא היחיד מבנק מס' 14
אני יודע בוודאות שהפרטים תקינים, אבל בתוכנה כאן רשום פרטי בנק לא תקינים.
מה עושים?
תודהההה
קובץ אקסס להפקת ובדיקת קבצי מס''ב
- פותח הנושא moishy
- פורסם בתאריך
השתמשתי בפעם הראשונה והיה מעולה.
היתה רק בעיה עם חיוב אחד שהוא היחיד מבנק מס' 14
אני יודע בוודאות שהפרטים תקינים, אבל בתוכנה כאן רשום פרטי בנק לא תקינים.
מה עושים?
תודהההה
Option Compare Database
Option Explicit
Public Function fValidateBankAccount(lngBankNumber As Long, _
lngBranch As Long, _
lngAccount As Long) As Boolean
Dim lngRequiredAccountLength As Long
Dim lngTotal As Long
Dim strArrayAccount() As String
Dim strArrayBranch() As String
Dim strAccount As String
Dim strBranch As String
fValidateBankAccount = False
' קביעת אורך המספר חשבון
Select Case lngBankNumber
Case 10, 13, 34
lngRequiredAccountLength = 8
Case 12, 4 ' פועלים, יהב
lngRequiredAccountLength = 6
Case 11, 17 ' דיסקונט, מרכנתיל דיסקונט
lngRequiredAccountLength = 9
Case 20 ' מזרחי טפחות
lngRequiredAccountLength = 6
Case 31, 52 ' הבינלאומי, פאגי
lngRequiredAccountLength = 9
Case 9 ' הדואר
lngRequiredAccountLength = 9
Case 22 ' Citibank N.A
lngRequiredAccountLength = 9
Case 46 ' מסד
lngRequiredAccountLength = 9
Case 14 ' אוצר החייל
lngRequiredAccountLength = 9
End Select
If lngBankNumber <> 54 Then
strAccount = String(lngRequiredAccountLength - Len(CStr(Left(lngAccount, lngRequiredAccountLength))), "0") & CStr(Left(lngAccount, lngRequiredAccountLength))
Else
strAccount = CStr(lngAccount)
End If
' strAccount = Right("0000000000" & CStr(lngAccount), lngRequiredAccountLength) ' This is an alternative to the previous line
strAccount = StrConv(strAccount, vbUnicode)
strArrayAccount = Split(strAccount, vbNullChar)
If lngBankNumber = 20 And lngBranch > 400 Then ' אם מספר הסניף בבנק מזרחי-טפחות גדול מ400
strBranch = CStr(lngBranch - 400) ' לפני החישובים יש להפחית 400
Else ' אם מספר הסניף בבנק מזרחי-טפחות לא גדול מ400
strBranch = CStr(lngBranch) ' לפני החישובים אל תבצע כלום
End If
If Len(strBranch) < 3 Then
strBranch = String(3 - Len(strBranch), "0") & strBranch ' מוסיף אפסים להשלים ל3 ספרות
End If
strBranch = StrConv(strBranch, vbUnicode)
strArrayBranch = Split(strBranch, vbNullChar)
Select Case lngBankNumber
Case 54
' כל חשבון חוקי
fValidateBankAccount = True
Case 10, 13, 34
Select Case CLng(Right( _
CLng(strArrayBranch(0)) * 10 + _
CLng(strArrayBranch(1)) * 9 + _
CLng(strArrayBranch(2)) * 8 + _
CLng(strArrayAccount(0)) * 7 + _
CLng(strArrayAccount(1)) * 6 + _
CLng(strArrayAccount(2)) * 5 + _
CLng(strArrayAccount(3)) * 4 + _
CLng(strArrayAccount(4)) * 3 + _
CLng(strArrayAccount(5)) * 2 + _
CLng(Right(lngAccount, 2)) _
, 2))
Case 90, 72, 70, 60, 20
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case 12, 4
lngTotal = CLng(strArrayBranch(0)) * 9 + _
CLng(strArrayBranch(1)) * 8 + _
CLng(strArrayBranch(2)) * 7 + _
CLng(strArrayAccount(0)) * 6 + _
CLng(strArrayAccount(1)) * 5 + _
CLng(strArrayAccount(2)) * 4 + _
CLng(strArrayAccount(3)) * 3 + _
CLng(strArrayAccount(4)) * 2 + _
CLng(strArrayAccount(5)) * 1
Select Case lngTotal Mod 11
Case 0, 2
fValidateBankAccount = True
Case 4, 6
Select Case lngBankNumber
Case 12
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case Else
fValidateBankAccount = False
End Select
Case 11, 17
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
Select Case lngTotal Mod 11
Case 0, 2, 4
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case 20
lngTotal = CLng(strArrayBranch(0)) * 9 + _
CLng(strArrayBranch(1)) * 8 + _
CLng(strArrayBranch(2)) * 7 + _
CLng(strArrayAccount(0)) * 6 + _
CLng(strArrayAccount(1)) * 5 + _
CLng(strArrayAccount(2)) * 4 + _
CLng(strArrayAccount(3)) * 3 + _
CLng(strArrayAccount(4)) * 2 + _
CLng(strArrayAccount(5)) * 1
Select Case lngTotal Mod 11
Case 0, 2, 4
fValidateBankAccount = True
End Select
Case 31, 52
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
Select Case lngTotal Mod 11
Case 0, 6
fValidateBankAccount = True
Case Else
lngTotal = CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 11 = 0 Or lngTotal Mod 11 = 6 Then
fValidateBankAccount = True
End If
End Select
Case 9
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 10 = 0 Then
fValidateBankAccount = True
End If
Case 22
lngTotal = CLng(strArrayAccount(0)) * 3 + _
CLng(strArrayAccount(1)) * 2 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2
If 11 - (lngTotal Mod 11) = CLng(strArrayAccount(8)) Then
fValidateBankAccount = True
End If
Case 46
lngTotal = CLng(strArrayBranch(0)) * 9 + _
CLng(strArrayBranch(1)) * 8 + _
CLng(strArrayBranch(2)) * 7 + _
CLng(strArrayAccount(0)) * 6 + _
CLng(strArrayAccount(1)) * 5 + _
CLng(strArrayAccount(2)) * 4 + _
CLng(strArrayAccount(3)) * 3 + _
CLng(strArrayAccount(4)) * 2 + _
CLng(strArrayAccount(5)) * 1
Select Case lngTotal Mod 11
Case 0
fValidateBankAccount = True
Case 2
Select Case strBranch
Case 154, 166, 178, 181, 183, 191, 192, 503, 505, 507, 515, 516, 527, 539
fValidateBankAccount = True
End Select
End Select
If fValidateBankAccount = False Then
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 11 = 0 Then
fValidateBankAccount = True
Else
lngTotal = CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 11 = 0 Then
fValidateBankAccount = True
End If
End If
End If
Case 14
lngTotal = CLng(strArrayBranch(0)) * 9 + _
CLng(strArrayBranch(1)) * 8 + _
CLng(strArrayBranch(2)) * 7 + _
CLng(strArrayAccount(0)) * 6 + _
CLng(strArrayAccount(1)) * 5 + _
CLng(strArrayAccount(2)) * 4 + _
CLng(strArrayAccount(3)) * 3 + _
CLng(strArrayAccount(4)) * 2 + _
CLng(strArrayAccount(5)) * 1
Select Case lngTotal Mod 11
Case 0
fValidateBankAccount = True
Case 2
Select Case strBranch
Case 347, 361, 362, 363, 365, 385, 384
fValidateBankAccount = True
End Select
Case 4
Select Case strBranch
Case 361, 362, 363
fValidateBankAccount = True
End Select
End Select
If fValidateBankAccount = False Then
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 11 = 0 Then
fValidateBankAccount = True
Else
lngTotal = CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 11 = 0 Then
fValidateBankAccount = True
End If
End If
End If
End Select
End Function
'בדיקת מספר תעודת זהות
'Public Function fValidateTeudatZehut(lngNum As Long) As Boolean
' Dim ch As String, i As Integer, iSum As Integer
' Dim iTemp As Integer
'
' For i = 1 To 8
' ch = Mid(lngNum, i, 1)
' iTemp = Val(ch) * (((i - 1) Mod 2) + 1)
' If iTemp > 9 Then iTemp = (iTemp Mod 10) + (iTemp \ 10)
' iSum = iSum + iTemp
' Next i
'
' If ((10 - (iSum Mod 10)) Mod 10) = Val(Mid(lngNum, 9, 1)) Then
' fValidateTeudatZehut = True
' Else
' fValidateTeudatZehut = False
' End If
'End Function
Public Function fValidateTeudatZehut(ID As Variant) As Boolean
' http://halemo.net/info/idcard/index.html
Dim i As Integer
Dim sum As Integer
Dim digit As Integer
ID = Val(ID)
While Len(ID) < 9
ID = "0" & ID
Wend
sum = 0
For i = 1 To 9
digit = Strings.Mid$(ID, i, 1)
If (i Mod 2) = 0 Then
If digit >= 5 Then
digit = 2 * digit - 9
Else
digit = digit * 2
End If
End If
sum = sum + digit
Next i
fValidateTeudatZehut = (sum Mod 10) = 0
End Function
תשתמש בקוד הזה
קוד:
Option Compare Database
Option Explicit
Public Function fValidateBankAccount(lngBankNumber As Long, _
lngBranch As Long, _
lngAccount As Long) As Boolean
On Error GoTo fValidateBankAccount_Error
Dim lngRequiredAccountLength As Long
Dim lngTotal As Long
Dim strArrayAccount() As String
Dim strArrayBranch() As String
Dim strAccount As String
Dim strBranch As String
If lngBankNumber = 0 Or lngBranch = 0 Or lngAccount = 0 Then Exit Function
Select Case lngBankNumber
Case 10, 13, 34
lngRequiredAccountLength = 8
Case 12, 4
lngRequiredAccountLength = 6
Case 11, 17
lngRequiredAccountLength = 9
Case 20
lngRequiredAccountLength = 6
Case 31, 52
lngRequiredAccountLength = 9
Case 9
lngRequiredAccountLength = 9
Case 22
lngRequiredAccountLength = 9
Case 46
lngRequiredAccountLength = 9
Case 14
lngRequiredAccountLength = 9
Case 54
lngRequiredAccountLength = 9
End Select
strBranch = lngBranch
strAccount = String(lngRequiredAccountLength - Len(CStr(lngAccount)), "0") & CStr(lngAccount)
strAccount = StrConv(strAccount, vbUnicode)
strArrayAccount = Split(strAccount, vbNullChar)
If lngBankNumber = 20 And lngBranch > 400 Then ' אם מספר הסניף בבנק מזרחי-טפחות גדול מ400
strBranch = CStr(lngBranch - 400) ' לפני החישובים יש להפחית 400
Else ' אם מספר הסניף בבנק מזרחי-טפחות לא גדול מ400
strBranch = CStr(lngBranch) ' לפני החישובים אל תבצע כלום
End If
If lngBankNumber = 12 Or lngBankNumber = 4 Then
strBranch = lngBranch
End If
If Len(strBranch) < 3 Then
strBranch = String(3 - Len(strBranch), "0") & strBranch ' מוסיף אפסים להשלים ל3 ספרות
End If
strBranch = StrConv(strBranch, vbUnicode)
strArrayBranch = Split(strBranch, vbNullChar)
Select Case lngBankNumber
Case 10, 13, 34
lngTotal = CLng(strArrayBranch(0)) * 10 + _
CLng(strArrayBranch(1)) * 9 + _
CLng(strArrayBranch(2)) * 8 + _
CLng(strArrayAccount(0)) * 7 + _
CLng(strArrayAccount(1)) * 6 + _
CLng(strArrayAccount(2)) * 5 + _
CLng(strArrayAccount(3)) * 4 + _
CLng(strArrayAccount(4)) * 3 + _
CLng(strArrayAccount(5)) * 2 + _
Right(lngAccount, 2)
Select Case Right(lngTotal, 2)
Case 90, 72, 70, 60, 20
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case 12
lngTotal = CLng(strArrayBranch(0)) * 9 + _
CLng(strArrayBranch(1)) * 8 + _
CLng(strArrayBranch(2)) * 7 + _
CLng(strArrayAccount(0)) * 6 + _
CLng(strArrayAccount(1)) * 5 + _
CLng(strArrayAccount(2)) * 4 + _
CLng(strArrayAccount(3)) * 3 + _
CLng(strArrayAccount(4)) * 2 + _
CLng(strArrayAccount(5)) * 1
Select Case lngTotal Mod 11
Case 0, 2, 4, 6
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case 4
lngTotal = CLng(strArrayBranch(0)) * 9 + _
CLng(strArrayBranch(1)) * 8 + _
CLng(strArrayBranch(2)) * 7 + _
CLng(strArrayAccount(0)) * 6 + _
CLng(strArrayAccount(1)) * 5 + _
CLng(strArrayAccount(2)) * 4 + _
CLng(strArrayAccount(3)) * 3 + _
CLng(strArrayAccount(4)) * 2 + _
CLng(strArrayAccount(5)) * 1
Select Case lngTotal Mod 11
Case 0, 2
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case 11, 17
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
Select Case lngTotal Mod 11
Case 0, 2, 4
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case 20
lngTotal = CLng(strArrayBranch(0)) * 9 + _
CLng(strArrayBranch(1)) * 8 + _
CLng(strArrayBranch(2)) * 7 + _
CLng(strArrayAccount(0)) * 6 + _
CLng(strArrayAccount(1)) * 5 + _
CLng(strArrayAccount(2)) * 4 + _
CLng(strArrayAccount(3)) * 3 + _
CLng(strArrayAccount(4)) * 2 + _
CLng(strArrayAccount(5)) * 1
Select Case lngTotal Mod 11
Case 0, 2, 4
fValidateBankAccount = True
End Select
Case 31, 52
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
Select Case lngTotal Mod 11
Case 0, 6
fValidateBankAccount = True
Case Else
lngTotal = CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
Select Case lngTotal Mod 11
Case 0, 6
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
End Select
Case 9
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 10 = 0 Then
fValidateBankAccount = True
Else
fValidateBankAccount = False
End If
Case 54
fValidateBankAccount = True
Case 22
lngTotal = CLng(strArrayAccount(0)) * 3 + _
CLng(strArrayAccount(1)) * 2 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2
If 11 - (lngTotal Mod 11) = CLng(strArrayAccount(8)) Then
fValidateBankAccount = True
Else
fValidateBankAccount = False
End If
Case 46
lngTotal = CLng(strArrayBranch(0)) * 9 + _
CLng(strArrayBranch(1)) * 8 + _
CLng(strArrayBranch(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
Select Case lngTotal Mod 11
Case 0
fValidateBankAccount = True
Case 2
Select Case strBranch
Case 154, 166, 178, 181, 183, 191, 192, 503, 505, 507, 515, 516, 527, 539
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case Else
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 11 = 0 Then
fValidateBankAccount = True
Else
lngTotal = CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 11 = 0 Then
fValidateBankAccount = True
Else
fValidateBankAccount = False
End If
End If
End Select
Case 14
lngTotal = CLng(strArrayBranch(0)) * 9 + _
CLng(strArrayBranch(1)) * 8 + _
CLng(strArrayBranch(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
Select Case lngTotal Mod 11
Case 0
fValidateBankAccount = True
Case 2
Select Case strBranch
Case 347, 361, 362, 363, 365, 385
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case 4
Select Case strBranch
Case 361, 362, 363
fValidateBankAccount = True
Case Else
fValidateBankAccount = False
End Select
Case Else
lngTotal = CLng(strArrayAccount(0)) * 9 + _
CLng(strArrayAccount(1)) * 8 + _
CLng(strArrayAccount(2)) * 7 + _
CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 11 = 0 Then
fValidateBankAccount = True
Else
lngTotal = CLng(strArrayAccount(3)) * 6 + _
CLng(strArrayAccount(4)) * 5 + _
CLng(strArrayAccount(5)) * 4 + _
CLng(strArrayAccount(6)) * 3 + _
CLng(strArrayAccount(7)) * 2 + _
CLng(strArrayAccount(8)) * 1
If lngTotal Mod 11 = 0 Then
fValidateBankAccount = True
End If
End If
End Select
End Select
On Error GoTo 0
Exit Function
fValidateBankAccount_Error:
fValidateBankAccount = False
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure fValidateBankAccount of Function mdlValidations"
End Function
Public Function fValidateTeudatZehut(ID As Variant) As Boolean
On Error GoTo fValidateTeudatZehut_Error
Dim lngCounter As Long
Dim lngSum As Long
Dim lngDigit As Long
If Len(ID) = 0 Then fValidateTeudatZehut = False: Exit Function
ID = Val(ID)
While Len(ID) < 9
ID = "0" & ID
Wend
lngSum = 0
For lngCounter = 1 To 9
lngDigit = Strings.Mid$(ID, lngCounter, 1)
If (lngCounter Mod 2) = 0 Then
If lngDigit >= 5 Then
lngDigit = 2 * lngDigit - 9
Else
lngDigit = lngDigit * 2
End If
End If
lngSum = lngSum + lngDigit
Next lngCounter
fValidateTeudatZehut = (lngSum Mod 10) = 0
On Error GoTo 0
Exit Function
fValidateTeudatZehut_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure fValidateTeudatZehut of Function mdlValidations"
End Functionתוסיף בעמודה חדשה בשאילתה
קוד:
שם_מלא: [משפחה] & " " & [פרטי]
קוד:
FullName: [LastName] & " " [FirstName]מצורף כאן קובץ לבניית קובצי מסב תקינים
כן הכנסנו הכל
בדיוק לפי מה שאמרו לנו במסב...
yosale2011
משתמש חדש
אם עדיין לא הסתדרת, כתוב לי.
לא הסתדרנו
עברנו לנדרים שיעשו את העבודה....
אבל חשוב לי לדעת איך עושים את זה, ומה התקלה
אנחנו נצטרך את זה בהמשך.
תודה רבה רבה
עדיין רלוונטי?
משמרת השלום
משתמש חדש
מצאתי משהו מושלם להמרת קובץ אקסל לקובץ מס"ב
לטובת הכלל
masav-converter.com
לטובת הכלל
Masav Online File Generator
Web application convert transaction from excel to masav file. Online masav file editor and builder. Export masav file easily
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
לוח מודעות
- אסתר קצלנבוגן
- נוצר:
- שירה נתן בחכמה
- נוצר:
- גרפי 1
- נוצר:
- שושנה - בית שמש
- נוצר:
- פיינע נייעס
- נוצר:
- סטודיו SPETS
- נוצר:
- meravm
- נוצר:
- שרה יונגרמן
- נוצר:
- מיכל וייס
- נוצר:
- שרה יונגרמן
- נוצר:
- ANK
- נוצר:
- תומר זכריה
- נוצר:
- תהילה גמליאל
- נוצר:
- תהילה גמליאל
- נוצר:
- טובה פרויקטים
- נוצר:
- פלמינגו.
- נוצר:
- השלגיה
- נוצר:
- הכל בסדר
- נוצר:
- ברכת הגשם
- נוצר:
עיצוב גרפי דרושה לנו מעצבת גרפית אלופה, בטעם של עוד.
למשרדי עמותה בבני ברק
דרושה גרפיקאית+ עבודות...
עריכת וידאו נעצב לכם סרט שילווה את אירוע החלומות שלכם!
עורכת וידאו עם הרבה שנים נסיון בעריכת סרטי...
למכירה למכירה כמה פריטים חדשים מנקסט לתינוקת, ונעל לילד
למכירה כמה פריטים חדשים מנקסט שהגיעו לי בטעות...
הוראה בית ספר תקשורת בית יעקב בבית שמש
יש לי ילדה על הרצף ששנה הבאה עולה לכיתה א ...
אלעד דרושה דירה 3 חדרים או יחידת דיור גדולה באלעד
דרושה דירה 3 חדרים או יחידת דיור גדולה באלעד
קופירייטינג דרושה קופירייטית לדף נחיתה
דרושה קופירייטית עבור כתיבת תוכן לדף נחיתה...
עיצוב פנים מחפשת מעצבת פנים/אדריכלית בעפולה
מחפשת מעצבת פנים/אדריכלית בעפולה לעיצוב בית של...
צילום צילומי חלאקה במחיר חגיגה !!!! התמונות הקסומות עליהן תמיד חלמת !!
עכשיו - רק עד ר"ח אייר
יש לך ההזדמנות לצלם את...
עיצוב גרפי מחפשת משהי לעיצוב לוח ל 100 יום
מחפשת משהי מתחילה שתעצב לי לוח ל100 יום יש לי...
צילום מנהלת מעון / גן ילדים - בואי לתכנן את סופשנה!!!
מנהלת יקרה - גננת משקיעה
בוודאי תרצי לפנק את...
למכירה נעלי ARA (גרמניה) מידה 36 חדשות בקופסא הוזמן מאמזון
נעלי ARA הוזמן מאמזון והגיע מידה שגויה, מסובך...
כתיבת תוכן עורך תורני קבוע בעל ניסיון
לגליון תורני של רב חשוב דרוש מתמלל (מתוך שיעור...
למכירה !!בובו (קוקס נמוך) במצב חדש!!
היה בשימוש 3 פעמים בודדות,
נקנה ב-200 , נמכר...
למכירה שמלה מהממת חדשה ( לא נלבשה בכלל ) מתות קידס!
מוכרת שמלה מושלמת מתות קידס, נמכרת עם החגורה...
דרושה יחידה להשכרה לזוג צעיר בבני ברק
מחפשים יחידה להשכרה לזוג שתהיה פנויה החל...
עריכת וידאו דרושה עורכת וידיאו לעריכת סרט תדמית קצר במחיר זול
עבור עסק קטן
אשמח לקבל עבודות להתרשמות ביצירת קשר
למכירה 3 חליפות בנים מאלפות של אנג'לס!!
למכירה 3 סטים של חליפות מאלפות של אנג'לס בצבע...
עיצוב גרפי דרוש בדחיפות לוגו ליום הולדת 70 (בתשלום)
דרוש בדחיפות -למחר יום ד'
בבקשה לשלוח עבודות...
ירושלים והסביבה מחפשים דירת 3 חדרים לזוג צעיר בנווה יעקב
ממש למיידי, לא משנה מרוהט או לא
עדיף משופץ או...
תגיות נפוצות
אדריכלות ועיצוב פנים
אחוה פלוטקין
איור
איור דיגיטלי
איש את רעהו
אלי-אקספרס
אריאל לוי
אתר
ביטוח לאומי
בין הזמנים
בינה מלאכותית
בית שמש
בני ברק
בניית אתרים
בקשה
גלופות
גרפיקה
דירה
דרוש
דרוש מידע
דרושים
הדמיה
המלצה
הני מושקוביץ
השבת אבידה
השכרה
התייעצות
וורדפרס
חלאקה
חנוכה
חרבות ברזל
חתונה
טיול
יד שניה
ילדים
ירושלים
לוגו
לימודים
למכירה
מודיעין עילית
מוזיקה
מחשב
מטבח
מידע
מייל
מיתוג
מלחמה
מלי אורצל
מלכי לסקר
מצלמה
משכנתא
משלוח מנות
מתכון
מתנה
נופש
נטפרי
ניו בורן
נשים
סטודיו
ספר
סקר
עבודה
עגלה
עוגה
עזרה
עימוד
עיצוב
עיצוב גרפי
עיצוב פנים
פוטושופ
פורים
פלאפון
פסח
פרוג
פרסום
ציור
צילום
צילום ילדים
צילום מקצועי
צילומי חוץ
צילומי סטודיו
צלמת
צלמת בצפת
צלמת מקצועית
צפת
קומיקס
קורונה
רכב
שאלה
שבת
שיר
שירים
שיתוף
תודה
תחפושות
תחפושת
תינוק
תמונה
תמונות
תפילה
