__vknDogrulama ( vkn )

Girilen Vergi Kimlik Numarasının doğruluğunu kontrol eder.

Average rating: 5.0 (1 vote) Log in to vote

Ercan DOÄžU - Show more from this author
As YazÄ±lÄ±m
https://asyazilim.ist

Sample input:

__vknDogrulama ( 0340362913 )
__vknDogrulama ( 1340362913 )

Sample output:

1
0

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
 * Fonksiyon Adı : __vknDogrulama
 * Parametre     : vkn
 * Açıklamalar   :
 * Girilen Vergi Kimlik Numarasının doğruluğunu kontrol eder.

by AsYa  - info@asyazilim.ist
 
 */

Let ( 
[
  vkn = vkn ;
   d1 = Middle ( vkn ;  1 ; 1 ) ;
   d2 = Middle ( vkn ;  2 ; 1 ) ;
   d3 = Middle ( vkn ;  3 ; 1 ) ;
   d4 = Middle ( vkn ;  4 ; 1 ) ;
   d5 = Middle ( vkn ;  5 ; 1 ) ;
   d6 = Middle ( vkn ;  6 ; 1 ) ;
   d7 = Middle ( vkn ;  7 ; 1 ) ;
   d8 = Middle ( vkn ;  8 ; 1 ) ;
   d9 = Middle ( vkn ;  9 ; 1 ) ;
 ctrl = Right ( vkn ; 1 ) ;
   p1 = Mod ( ( d1 + 10 - 1 ) ; 10 ) ;
   p2 = Mod ( ( d2 + 10 - 2 ) ; 10 ) ;
   p3 = Mod ( ( d3 + 10 - 3 ) ; 10 ) ;
   p4 = Mod ( ( d4 + 10 - 4 ) ; 10 ) ;
   p5 = Mod ( ( d5 + 10 - 5 ) ; 10 ) ;
   p6 = Mod ( ( d6 + 10 - 6 ) ; 10 ) ;
   p7 = Mod ( ( d7 + 10 - 7 ) ; 10 ) ;
   p8 = Mod ( ( d8 + 10 - 8 ) ; 10 ) ;
   p9 = Mod ( ( d9 + 10 - 9 ) ; 10 ) ;
   q1 = If ( p1 = 9 ; p1 ; Mod ( ( p1 * 2^ ( 10 - 1 ) ) ; 9 ) ) ;
   q2 = If ( p2 = 9 ; p2 ; Mod ( ( p2 * 2^ ( 10 - 2 ) ) ; 9 ) ) ;
   q3 = If ( p3 = 9 ; p3 ; Mod ( ( p3 * 2^ ( 10 - 3 ) ) ; 9 ) ) ;
   q4 = If ( p4 = 9 ; p4 ; Mod ( ( p4 * 2^ ( 10 - 4 ) ) ; 9 ) ) ;
   q5 = If ( p5 = 9 ; p5 ; Mod ( ( p5 * 2^ ( 10 - 5 ) ) ; 9 ) ) ;
   q6 = If ( p6 = 9 ; p6 ; Mod ( ( p6 * 2^ ( 10 - 6 ) ) ; 9 ) ) ;
   q7 = If ( p7 = 9 ; p7 ; Mod ( ( p7 * 2^ ( 10 - 7 ) ) ; 9 ) ) ;
   q8 = If ( p8 = 9 ; p8 ; Mod ( ( p8 * 2^ ( 10 - 8 ) ) ; 9 ) ) ;
   q9 = If ( p9 = 9 ; p9 ; Mod ( ( p9 * 2^ ( 10 - 9 ) ) ; 9 ) ) ;
   qi = Sum ( q1 ; q2 ; q3 ; q4 ; q5 ; q6 ; q7 ; q8 ; q9 ) ;
   c1 = Mod ( ( 10 - Mod ( qi ; 10 ) ) ; 10 ) 
] ;
If ( ctrl = c1 ; True ; False )
 )

Girilen Vergi Kimlik Numarasının doğruluğunu kontrol eder.
Sonuç True yada False döner

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

__vknDogrulama ( vkn )

Comments

Support this website.

Support this website.