Public Function Cprfunk(Cpr) As Integer Dim MultiPly As Variant, I As Integer MultiPly = Array(4, 3, 2, 7, 6, 5, 4, 3, 2, 1) For I = 1 To 10 Cprfunk = Cprfunk + Mid(Cpr, I, 1) * MultiPly(I - 1) Next End Function
i din forespørgsel kalder du den med. Sum: Cprfunk([CPR nr])
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.