Howdy,

Någon som har en bra fungerande algoritm för att räkna fram kontrollsiffran i ett personnummer?
Visual Basic 5.0 använder jag.

Hej
Kolla mitt gamla uppskick

http://www.pellesoft.nu/login/upload/t_view4.asp?tid=59

Kom på att du har VB 5 där finns inte funktionen
StrReverse som jag använder i min funktion,byt ut enl nedan.

sLen = Len(nummer)
'tmpStr = StrReverse(nummer)
'VB 5 byter till denna Forsats
For i = sLen To 1 Step -1
tmpStr = tmpStr & Mid$(nummer, i, 1)
Next 'i

mvh
Sven