Stoned
New member
High!
Ich bin noch Anfänger und brauch die Prüfung einer 7 stelligen Artikelnummer!
Ich kann leider nur vba brauch aber die Prüfung in eines asp eingebaut und da scheint j-script die beste Möglichkeit!(glaub ich
)
Fragen:
1: Wie lese ich die einzelnen Stellen aus?
2: Kann ich ganz normal mit den Variablen rechnen?
hier mein vba script:
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim Prüfziffer As Integer
Dim Produktzahl As Long
Dim aufgerundeteProduktsumme As Integer
Dim PrüfzifferErrechnet As Integer
Dim intQS As Integer
Dim intCT As Integer
Dim strAN As String
Dim intAL As Integer
'Ziffern auslesen und Gewichtung zuführen
a = Val(Mid(Trim([Artikelnummer]), 1, 1))
b = Val(Mid(Trim([Artikelnummer]), 2, 1)) * 2
c = Val(Mid(Trim([Artikelnummer]), 3, 1))
d = Val(Mid(Trim([Artikelnummer]), 4, 1)) * 2
e = Val(Mid(Trim([Artikelnummer]), 5, 1))
f = Val(Mid(Trim([Artikelnummer]), 6, 1)) * 2
Prüfziffer = Val(Mid(Trim([Artikelnummer]), 7, 1))
Produktzahl = a & b & c & d & e & f 'Produktzahl zusammenführen
Rem Quersumme errechnen
strAN = Trim(Produktzahl)
intAL = Len(strAN)
intQS = 0
If intAL >= 1 Then
For intCT = 1 To intAL
intQS = intQS + Val(Mid((strAN), intCT, 1)) 'Mid(string, start[, length])
Next intCT
End If
aufgerundeteProduktsumme = Int((intQS + 9) / 10) * 10 'Produktsumme aufrunden auf nächsten Zehner
PrüfzifferErrechnet = aufgerundeteProduktsumme - intQS
If Prüfziffer <> PrüfzifferErrechnet Then MsgBox "Falsche Artikelnummer!!"
Wenn irgendjemand irgendwas darüber weiß, und mir ein bißchen weiterhelfen kann wäre ich sehr dankbar!!!
Thx
Stoned
Ich bin noch Anfänger und brauch die Prüfung einer 7 stelligen Artikelnummer!
Ich kann leider nur vba brauch aber die Prüfung in eines asp eingebaut und da scheint j-script die beste Möglichkeit!(glaub ich
Fragen:
1: Wie lese ich die einzelnen Stellen aus?
2: Kann ich ganz normal mit den Variablen rechnen?
hier mein vba script:
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim Prüfziffer As Integer
Dim Produktzahl As Long
Dim aufgerundeteProduktsumme As Integer
Dim PrüfzifferErrechnet As Integer
Dim intQS As Integer
Dim intCT As Integer
Dim strAN As String
Dim intAL As Integer
'Ziffern auslesen und Gewichtung zuführen
a = Val(Mid(Trim([Artikelnummer]), 1, 1))
b = Val(Mid(Trim([Artikelnummer]), 2, 1)) * 2
c = Val(Mid(Trim([Artikelnummer]), 3, 1))
d = Val(Mid(Trim([Artikelnummer]), 4, 1)) * 2
e = Val(Mid(Trim([Artikelnummer]), 5, 1))
f = Val(Mid(Trim([Artikelnummer]), 6, 1)) * 2
Prüfziffer = Val(Mid(Trim([Artikelnummer]), 7, 1))
Produktzahl = a & b & c & d & e & f 'Produktzahl zusammenführen
Rem Quersumme errechnen
strAN = Trim(Produktzahl)
intAL = Len(strAN)
intQS = 0
If intAL >= 1 Then
For intCT = 1 To intAL
intQS = intQS + Val(Mid((strAN), intCT, 1)) 'Mid(string, start[, length])
Next intCT
End If
aufgerundeteProduktsumme = Int((intQS + 9) / 10) * 10 'Produktsumme aufrunden auf nächsten Zehner
PrüfzifferErrechnet = aufgerundeteProduktsumme - intQS
If Prüfziffer <> PrüfzifferErrechnet Then MsgBox "Falsche Artikelnummer!!"
Wenn irgendjemand irgendwas darüber weiß, und mir ein bißchen weiterhelfen kann wäre ich sehr dankbar!!!
Thx
Stoned