Jag håller på med en applikation som räknar ut den sista kontrollsiffran i personnummret.
Problemet är att VB 5.0 inte vill ta len, vad kan jag använda mig istället av.
Så här ser koden ut för nuvarande:
Dim a, b, c, d, e, f, g, h, i As Integer
a = (Mid(sKolla, 1, 1))
a = a * 2
If Len(a) > 1 Then
a = (Left(a, 1)) + (Right(a, 1))
Else
a = (a)
End If
MVH
Unka :q