meta data de esta página
  •  

Comprobar letra NIF

Ejemplo en Basic de como comprobar la letra de un NIF 

10 A$="TRWAGMYFPDXBNJZSQVHLCKET"
20 INPUT "DNI:";B$
30 A=(1+VAL(B$)-23*INT(VAL(B$)/23))
40 PRINT B$+MID$(A$,A,1)