Foros del Web » Programando para Internet » ASP Clásico »

Letre Nif

Estas en el tema de Letre Nif en el foro de ASP Clásico en Foros del Web. Como pongo utilizo esto és un calculo de la letra de nif pero quiero que me la calcule automaticamente en un campo o que me ...
  #1 (permalink)  
Antiguo 07/10/2003, 08:53
Avatar de engonga
Usuario no validado
 
Fecha de Ingreso: marzo-2002
Ubicación: Buenos Aires
Mensajes: 1.300
Antigüedad: 22 años, 2 meses
Puntos: 8
Letre Nif

Como pongo utilizo esto
é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
__________________
  #2 (permalink)  
Antiguo 07/10/2003, 16:34
Avatar de linkses  
Fecha de Ingreso: agosto-2002
Ubicación: Sevilla - España
Mensajes: 785
Antigüedad: 21 años, 9 meses
Puntos: 0
Hay por ahí algun que otro javascript que te lo dice, no hace faltas que recurra a asp.

Saludos
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:44.