és un calculo de la letra de nif pero quiero que me la calcule automaticamente en un campo o que me salga un msgbox diciendo la letra que es.
Como lo implemento en ASP, soy novato.
Gracias
_________________
Function CalcularNIF(ByVal DNI As Long) As String
Select Case DNI - (Int(DNI / 23) * 23)
Case 0: CalcularNIF = "T"
Case 1: CalcularNIF = "R"
Case 2: CalcularNIF = "W"
Case 3: CalcularNIF = "A"
Case 4: CalcularNIF = "G"
Case 5: CalcularNIF = "M"
Case 6: CalcularNIF = "Y"
Case 7: CalcularNIF = "F"
Case 8: CalcularNIF = "P"
Case 9: CalcularNIF = "D"
Case 10: CalcularNIF = "X"
Case 11: CalcularNIF = "B"
Case 12: CalcularNIF = "N"
Case 13: CalcularNIF = "J"
Case 14: CalcularNIF = "Z"
Case 15: CalcularNIF = "S"
Case 16: CalcularNIF = "Q"
Case 17: CalcularNIF = "V"
Case 18: CalcularNIF = "H"
Case 19: CalcularNIF = "L"
Case 20: CalcularNIF = "C"
Case 21: CalcularNIF = "K"
Case 22: CalcularNIF = "E"
Case 23: CalcularNIF = "T"
End Select
End Function
Esta es mucho más cortita, más comoda de manejar, ¿verdad?.
Public Function sCalculaNif(ByVal DNI As Long) As String
sCalculaNif = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", 1 + DNI Mod 23, 1)
End Function
__________________
