Thema Datum  Von Nutzer Rating
Antwort
Rot Verknüpfung zweier Funtkionen
25.12.2008 19:46:35 Harry Müller
NotSolved

Ansicht des Beitrags:
Von:
Harry Müller
Datum:
25.12.2008 19:46:35
Views:
1424
Rating: Antwort:
  Ja
Thema:
Verknüpfung zweier Funtkionen
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

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
Rot Verknüpfung zweier Funtkionen
25.12.2008 19:46:35 Harry Müller
NotSolved