[Linux-bruxelles] [HS] PHP et numéro de registre national belge

[Serge SMEESTERS]

Salut à tous,

Désolé de ce petit hors sujet...

Bon, c'est quand même à propos du logiciel libre PHP et des numéro de
registre national belge, donc pas loin de Bruxelles :)

Voici ce que je viens de pondre pour vérifier la validité des numéro
de registre national belge...

À vérifier !

À tester !

À commenter !


    function str_only_digit( $str )
    {
        $res = "";
        $length = strlen( $str );
        for( $i = 0 ; $i < $length ; ++$i )
        {
            $char = $str[ $i ];
            if( is_numeric( $char ) )
                $res .= $char;
        }
        return $res;
    }

    function is_numregnat_valid( $num )
    {
        $numdigits = str_only_digit( $num );
        return (
            intval( substr($numdigits, 9, 2) )
            ==
            intval(
                97 - (
                    ($date < date_create("2000-01-01") ? "" : "2"
).substr( $numdigits, 0, 9 )
                    % 97
                )
            )
        );
    }