validarRut ( Rut )

Rut chileno

Be the first to rate this function Log in to vote

Tomas ortega - Show more from this author
Augurio Solutions
http://augurio.cl

Sample input:

validarRut ( 11.111.111-1 )

Sample output:

Válido

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

/*
 * ==============================
 * validarRut ( RUT )
 * ==============================
 * Creado: 21-05-2021
 * By: Tomas ortega • https://augurio.cl
 * Version: 1.0
 * ==============================
*/

Let ([
    _rut = Substitute (RUT;".";"") ; 
    _dv = Right ( _rut ; 1 );
    _length = Length ( _rut ) ;
     _rut = Left ( _rut ; _length -2 )
     ];

If ( IsEmpty ( _rut ) ; "" ;
	While ( 
		[  i = 1 ; suma = "" ; digito = _length - 2 ; uno = 1 ; hasta = If ( Length (_rut ) = 8 ; 9 ; 8 )] ; 
		i   < hasta  ;
		[
			i = i + 1 ;
             uno = If ( uno = 7 ; 2 ; uno + 1);
             suma = 
If ( IsEmpty (suma) ; "" ; suma ) + Middle ( _rut ;  digito  ; 1 ) * uno;
             digito = digito - 1 ;
             resultado = 11 - (suma - (Floor (suma / 11) * 11))

		] ;
		 If (  Case ( resultado  = 11 ; 0 ;
                 resultado  = 10 ; "K";
                 resultado  ) = _dv ; "Válido"  ; "Inválido")
	))
//let )
 )

/*
* ==============================
* validarRut ( RUT )
* ==============================
* Creado: 21-05-2021
* By: Tomas ortega • https://augurio.cl
* Version: 1.0
* ==============================
*/

Comments

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

validarRut ( Rut )

Comments

Support this website.

Support this website.