Función para extraer la letra del NIF

Os mostramos una función para Access que extrae la letra de un NIF, es una función con muy poco código y efectiva:
Function letranif(dni As Long)Dim tmp As Long, LACADENA As Stringtmp = (dni - (Int(dni / 23) * 23)) + 1LACADENA = "TRWAGMYFPDXBNJZSQVHLCKE"letranif = Mid(LACADENA, tmp, 1)End Function
Un ejemplo:
Advertisement:
leer más