\'; if ($lb_esNIF) { // Verifica que sea NIF (f_LetraNIF($ls_numero) == $ls_letra)?$li_ret=1:$li_ret=-1; } if ($lb_esCIF) { // Verifica que sea CIF f_ValidarCIF($ls_numero)?$li_ret=2:$li_ret=-2; } } return $li_ret; } function f_LetraNIF ($dni) { $valor= (int) ($dni / 23); $valor *= 23; $valor= $dni - $valor; $letras= "TRWAGMYFPDXBNJZSQVHLCKEO"; $letraNif= substr ($letras, $valor, 1); return $letraNif; } // // Valida el número CIF // (C)2004 Juan Prada www.silueth.com // // string $ccNumber (El CIF (Sin letra) a verificar) // // Retorno boolean true Es correcto // false No vale // function f_ValidarCIF($ccNumber) { $lb_ret=false; if (strlen($ccNumber) == 8) { $lb_ret=true; $numOfDigits = 0 - strlen($ccNumber); $i = -1; while ($i>=$numOfDigits){ if (($i % 2) == 0){ $double = 2*(substr($ccNumber, $i, 1)); $total += substr($double,0,1); if (strlen($double > 1)){ $total += substr($double,1,1); } } else { $total += substr($ccNumber, $i, 1); } $i--; } if (($total % 10) != 0){ $lb_ret=false; } } return $lb_ret; } ?>