Cálculo de la letra del DNI español
Basic
504 visualizaciones desde el 28 de Febrero del 2025
Dado el número del Documento Nacional de Identidad calcula la letra de seguridad asociada.
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta' Letra del DNI de Espana.' Calculo de la letra del D.N.I. Espanol.' Angel Bugarin Silva. QB64 Febrero 2025.' https://sites.google.com/site/abugarins/, abugarins@gmail.com'Option _Explicit
Screen _NewImage(1260, 940, 32)
_FullScreen
On Error GoTo erro
Option Base 0
Dim Resto As Double, Numero As DoubleDim Letras(22) As String, I As Integer
' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22Data "T","R","W","A","G","M","Y","F","P","D","X","B","N","J","Z","S","Q","V","H","L","C","K","E"
For I = 0 To 22Read Letras(I)
Next I
Cls
Locate 4, 4Input "Numero del DNI:", Numero
Cls
Locate 4, 4Resto = Numero Mod 23#
Print "D.N.I.:";Print Using "###,###,###"; Numero;Print "-"; Letras(Resto)
End
erro:Beep
Print ">>> Error "; Err; "("; _ErrorMessage$; ") en linea "; _ErrorLine; " <<<";
Beep
End
Comentarios sobre la versión: Versión 1.0 (0)
No hay comentarios