rafaah
20 de Julio del 2004

Alguien tiene alguna función para calcular o chekear las letras del NIf y/o Cif. Proferiblemente en VB.Net

Gracias

Mikel
20 de Julio del 2004

Te envio el codigo:

Public Function Calculo_NIF(ByVal DNI as Integer) As String
If DNI < 1 Or DNI > 99999999 Then
Calculo_NIF = -1
Else
Calculo_NIF = Mid("TRWAGMYFPDXBNJZSQVHLCKE", (DNI Mod 23) + 1, 1)
End If
End Function

Espero que te sirva. Saludos desde Euskal Herria.

Mikel