Bir yerlerde buldum
Parameters enabiztc
lctc =Alltrim(enabiztc)
tcd_1 = Subs(m.lctc,1, 1)
tcd_2 = Subs(m.lctc,2, 1)
tcd_3 = Subs(m.lctc,3, 1)
tcd_4 = Subs(m.lctc,4, 1)
tcd_5 = Subs(m.lctc,5, 1)
tcd_6 = Subs(m.lctc,6, 1)
tcd_7 = Subs(m.lctc,7, 1)
tcd_8 = Subs(m.lctc,8, 1)
tcd_9 = Subs(m.lctc,9, 1)
tcd_10 = Subs(m.lctc,10, 1)
tcd_11 = Subs(m.lctc,11, 1)
tcd_tekler = Val(m.tcd_1)+Val(m.tcd_3)+Val(m.tcd_5)+Val(m.tcd_7)+Val(m.tcd_9)
tcd_ciftler = Val(m.tcd_2)+Val(m.tcd_4)+Val(m.tcd_6)+Val(m.tcd_8)
tcd_t1 = ( m.tcd_tekler * 3 ) + m.tcd_ciftler
tcd_c1 = ( 10 - ( m.tcd_t1 % 10 ) ) % 10
tcd_t2 = m.tcd_c1 + m.tcd_ciftler
tcd_t3 = ( m.tcd_t2 * 3 ) + m.tcd_tekler
tcd_c2 = ( 10 - ( m.tcd_t3 % 10 ) ) % 10
If m.tcd_c1 = Val(m.tcd_10) And m.tcd_c2 = Val(m.tcd_11)
Return "gecerli"
Else
Return "gecersiz"
Endif