Functie voor Elfproef
Ik heb een formulier gemaakt waarin een sofinummer en een bankrekening nummer zit
Deze wil ik graag controlleren.
Dit gaat dmv. een elfcontrolle: http://nl.wikipedia.org/wiki/Elfproef
ik heb een voorbeeldje van hoe ik het in vb.net heb opgelost:
Code (php)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function RekCheck(ByVal accNo As String) As Boolean
Dim Err
On Error GoTo Err
accNo = accNo.Replace(".", "")
Dim d As Double
For i As Integer = 9 To 1 Step -1
Dim x As Integer = CInt(Math.Sqrt((i - 9) * (i - 9)))
d = d + CInt(Val(accNo(x))) * i
Next
Return d Mod 11 = 0
Err:
msgbox("err")
End Function
Ik heb het e.a. geprobeerd maar er klopte geen .... van.
Gewijzigd op 01/01/1970 01:00:00 door OMEGA_ReD
ik had al gezocht op elf chech etc. maar had niks kunnen vinden.
bedankt!
PHP Newbie schreef op 18.09.2007 22:23:
En scroll dan ook direct even door het commentaar heen :-)
haha is goed bedankt!