Wikilibros

Diferencia entre revisiones de «Algoritmia/Algoritmo para obtener la letra del NIF»

Explorar historial interactivamente
← Edición anteriorEdición siguiente →
Contenido eliminado Contenido añadido
VisualWikitexto
Línea 55:
return character (1 + (dni as integer) mod 23) of "TRWAGMYFPDXBNJZSQVHLCKE"
end LetraDNI
</source>
 
=== [[Manual de ASP/ASP & VBScript|ASP 3.0 VBScript]] ===
<source lang=asp>
Function sacaLetra(ByVal dni)
Dim tabla,pos
tabla = Array("T","R","W","A","G","M","Y","F","P","D","X","B","N","J","Z","S","Q","V","H","L","C","K","E")
pos = dni mod 23
sacaLetra = tabla(pos)
End Function
</source>
Y para Validar el NIF:
<source lang=asp>
Function validaNIF(ByVal nif)
Dim dni
If Len(nif)<7 Then
validaNIF = false
Else
dni = Left(nif,Len(nif)-1)
validaNIF = UCase(nif)=dni&sacaLetra(dni)
End If
End Function
</source>
 
Obtenido de «https://es.wikibooks.org/wiki/Algoritmia/Algoritmo_para_obtener_la_letra_del_NIF»