nif.bas

  1. Function NIF(dni)
  2. NIF = Mid("TRWAGMYFPDXBNJZSQVHLCKE", (dni Mod 23) + 1, 1)
  3. End Function

Proinf.net