[06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 01:54:12] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_sqlite.so: cannot open shared object file: No such file or directory in Unknown on line 0 [06-Jun-2009 02:09:22] PHP Warning: Unknown(): Unable to load dynamic library '/usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so' - /usr/local/php4/lib/php/extensions/no-debug-zts-20020429/pdo_mysql.so: cannot open shared object file: No such file or directory in Unknown on line 0 Ortega.cl
Ortega.cl :: Validar RUT! :: Excel

Validar RUT!
Excel


Function dv(a)
    j = 2
    For i = 0 To Len(a) - 1
        aux = aux + Val(Mid$(a, Len(a) - i, 1)) * j
        If j > 6 Then
            j = 2
        Else
            j = j + 1
        End If
    Next i
    aux1 = 11 - (aux Mod 11)
    If aux1 < 10 Then
        dv = aux1
    Else
        dv = "K"
    End If
End Function
Última Modificación: Nov 16, 2006, 4:10 pm         Esta página sin Plop!         Opera
Sitio Plop!