der zweite code nicht richtig übertragen...hier nochmal:
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
|