TC NO

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