OCR linie til FI-indbetalingskort - kontrolciffer

Er de 4 cifrer regner fra højre, venste eller i midten?

Hej Mugs

Det er de sidste 4 cifre yderst til højre.

Faktisk et kundenummer, så de 14 cifre skulle være 00000000002193 hvis kundenummeret er 2193.

Hilsen
Jesper

Hej Jesper

Her er den VBA kode jeg bruger i Excel til at beregne det sidste kontrolciffer

Public Function Tjektal(Tal As String) As Integer
taeller = 1
gemtal = 0
Tjektal = 0
    For i = Len(Tal) To 1 Step -1
        If taeller = 1 Then
            gemtal = CInt(Mid(Tal, i, 1)) * 2
            taeller = 2
        Else
            gemtal = CInt(Mid(Tal, i, 1))
            taeller = 1
        End If
        Tjektal = Tjektal + TværSum(CStr(gemtal))
    Next i
Tjektal = 10 - Tjektal Mod 10
If Tjektal = 10 Then
    Tjektal = 0
End If
'Tjektal = gemtal
End Function

Public Function TværSum(Tal As String) As Integer

TværSum = 0
For i = 0 To Len(Tal) - 1
    TværSum = TværSum + Val(Left(Right(Tal, Len(Tal) - i), 1))
Next i

End Function


Denne næste kode bruger jeg til at fylde nuller foran det endelige tal:
Public Function Fyldnul(Tal As String, num As Integer) As String

Fyldnul = Tal
While Len(Tal) < num
    Tal = "0" & Tal
Wend

Fyldnul = Tal
End Function

Dvs. jeg i Excel kalder funktionerne således:
fyldnul(""&2193&tjektal(2193);15)

Hvilket giver resultatet: 000000000021931

Lav et udtry i din foresprædel:

Udtryk1: Right([DIT FELTNAVN];4)

Hej Mugs

Det er kontrolcifferet jeg skal have genereret. Jeg har tallet 2193 og skal generere linien: 00000000002193X hvor X er kontrolcifferet. De foranstillede nuller skal jeg også lige have med. Mine kundenumre er fra 1 til 4 cifre intdil videre, men kunne nok blive fem-cifrede med tiden.

Hej Benson

Hvordan bruger jeg VBA koden i excel. Jeg kunne jo bruge din "generator" til at lave en tabel i Acceess, hvor jeg slår FI-kodelinien op med kundenummeretsom reference.
Det er nok ikke raketvidenskab, men det fungerer. Måske kunne du lave et excel-ark med kundenumre fra 1 til 9999 med tilhørende FI-kodelinier?

Du kan finde et eksempel på www.hojholt.dk/download/test.xls