Manual de ASP/ASP & VBScript

De Wikilibros, la colección de libros de texto de contenido libre.

< Manual de ASP(Redirigido desde ASP 3.0 VBScript)

[editar] ASP & VBScript

[editar] Ejemplo

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

Y para validar el NIF:

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
Obtenido de "http://es.wikibooks.org/wiki/Manual_de_ASP/ASP_%26_VBScript"
Herramientas personales