Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.12.2008 17:55:23 |
Harry Müller |
|
|
|
08.12.2008 16:31:26 |
Holger |
|
|
|
08.12.2008 20:19:42 |
Harry Müller |
|
|
|
12.12.2008 10:58:49 |
Holger |
|
|
|
12.12.2008 11:01:43 |
Holger |
|
|
Aw:Aw:Aw:Aw:Aw:VBA-Kreditkartentypen |
25.12.2008 19:25:08 |
Harry Müller |
|
|
Von:
Harry Müller |
Datum:
25.12.2008 19:25:08 |
Views:
930 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:VBA-Kreditkartentypen |
Hi,
Frohe Weihnachten erstmal.
Ich habe noch eine Frage:
Ich habe jetzt diesen Code geschrieben, die Überprüfung ob die Kreditkarte gültig ist.
Nun meine Frage wie füge ich die deinen Teil dort ein. Den Kommentar habe ich an der Stelle hingeschrieben, wo deins rein müsste.
ER zeigt mir aber immer Fehlermeldungen an, wenn ich probiere es zu verknüpfen
Hier der Code:
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.12.2008 17:55:23 |
Harry Müller |
|
|
|
08.12.2008 16:31:26 |
Holger |
|
|
|
08.12.2008 20:19:42 |
Harry Müller |
|
|
|
12.12.2008 10:58:49 |
Holger |
|
|
|
12.12.2008 11:01:43 |
Holger |
|
|
Aw:Aw:Aw:Aw:Aw:VBA-Kreditkartentypen |
25.12.2008 19:25:08 |
Harry Müller |
|
|