Hi,
Frohe Weihnachten erstmal.
Ich habe noch eine Frage:
Ich habe diesen Code geschrieben, die Überprüfung ob die Kreditkarte gültig ist.
Nun meine Frage ist muss eine andere Funktion kreditkartentyp in die Funktion kkn einfügen. Den Kommentar habe ich an der Stelle hingeschrieben, wo es rein müsste.
ER zeigt mir aber immer Fehlermeldungen an, wenn ich probiere es zu verknüpfen bzw. anzupassen.
Hier der Code der Funktion kkn:
Function kkn(kk$)
Const Min = 13
Const Max = 20
Dim i%, Stellen_Wert%, Q_Summe%
kk = Trim(kk)
If Len(kk) Max Or IsNumeric(kk) = False Then
kkn = "Fehler"
Exit Function
End If
'Normierung auf Max-Zeichen mit vornullen
kk = String(Max - Len(kk), "O") & kk
For i = Max To 1 Step -1
Stellen_Wert = Mid(kk, i, 1) * 1
If i Mod 2 = 1 Then
If Stellen_Wert > 4 Then
Stellen_Wert = Stellen_Wert * 2 - 9
Else
Stellen_Wert = Stellen_Wert * 2
End If
End If
Q_Summe = Q_Summe + Stellen_Wert
Next i
If Q_Summe Mod 10 = 0 And Q_Summe <> 0 Then
kkn = "OK"
'Hier bitte die Prefixe prüfen (Also welche Kreditkartentyp es ist ,z.B. Visa)
Else
kkn = "Nicht Ok"
End If
End Function
Hier die Funktion Kreditkartentyp (soll in die andere eingefügt werden):
Function kreditkartentyp(kr$)
Dim kh
Select Case Len(kr)
Case 13
If (Left(kr, 1)) = "4" Then kh = "VISA"
Case 14
If (Left(kr, 3) > "299" And Left(kr, 3) "50" And Left(kr, 3) "" Then
kreditkartentyp = "kh"
Else
kreditkartentyp = " nicht gültig"
End If
End Function
|