Thema Datum  Von Nutzer Rating
Antwort
07.12.2008 17:55:23 Harry Müller
NotSolved
08.12.2008 16:31:26 Holger
NotSolved
08.12.2008 20:19:42 Harry Müller
NotSolved
12.12.2008 10:58:49 Holger
NotSolved
12.12.2008 11:01:43 Holger
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:VBA-Kreditkartentypen
25.12.2008 19:25:08 Harry Müller
NotSolved

Ansicht des Beitrags:
Von:
Harry Müller
Datum:
25.12.2008 19:25:08
Views:
795
Rating: Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
NotSolved
08.12.2008 16:31:26 Holger
NotSolved
08.12.2008 20:19:42 Harry Müller
NotSolved
12.12.2008 10:58:49 Holger
NotSolved
12.12.2008 11:01:43 Holger
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:VBA-Kreditkartentypen
25.12.2008 19:25:08 Harry Müller
NotSolved