די אחראים: זייער נייגעריג , אחראי , thefact
קאוד: וועל אויס אלע
Private Sub Text0_LostFocus()
Dim CCType As Integer, CCLength As Integer
CCLength = Len(Me.Text0.Text & "")
If CCLength = 0 Then Exit Sub
CCType = Left(Me.Text0.Text, 1)
Select Case CCType
Case 3
If CCLength <> 15 Then
MsgBox "CC Must have 15 Numbers!!!", vbCritical, "Zetzer"
Me.Text2.SetFocus
Me.Text0.SetFocus
Me.Text0.SelStart = CCLength
End If
Case Is > 3
If CCLength <> 16 Then
MsgBox "CC Must have 16 Numbers!!!", vbCritical, "Zetzer"
Me.Text2.SetFocus
Me.Text0.SetFocus
Me.Text0.SelStart = CCLength
End If
End Select
End Sub
קאוד: וועל אויס אלע
Public Function CCNumberValid(ByVal CCNumber As String) As Boolean
Dim Result As Long
Dim Total As Long
Dim idx As Integer
Dim i As Integer
Dim j As Integer
j = 1
For i = Len(CCNumber) To 1 Step -1
Result = (CInt(Mid$(CCNumber, i, 1)) * j)
If Result >= 10 Then
Total = Total + (CInt(Mid$(CStr(Result), 1, 1)) _
+ CInt(Mid$(CStr(Result), 2, 1)))
Else
Total = Total + Result
End If
If j = 2 Then j = 1 Else j = 2
Next
If Total Mod 10 = 0 Then
CCNumberValid = True
Else
CCNumberValid = False
End If
End Function
