[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! :: Visual Basic

Validar RUT!
Visual Basic


Public Function RutDigito(ByVal Rut As Long) As String
    Dim Digito      As Integer
    Dim Contador    As Integer
    Dim Multiplo    As Integer
    Dim Acumulador  As Integer

    Contador = 2
    Acumulador = 0
    While Rut <> 0
      Multiplo = (Rut Mod 10) * Contador
      Acumulador = Acumulador + Multiplo
      Rut = Rut \ 10
      Contador = Contador + 1
      If Contador = 8 Then
        Contador = 2
      End If
    Wend
    Digito = 11 - (Acumulador Mod 11)
    RutDigito = CStr(Digito)
    If Digito = 10 Then RutDigito = "K"
    If Digito = 11 Then RutDigito = "0"
  End Function
Última Modificación: Nov 16, 2006, 4:10 pm         Esta página sin Plop!         Opera
Sitio Plop!