• Home

Control para validar Número Seguridad Social España en Visual Basic

Te muestro el código para validar el NASS (Número de afiliación a la Seguridad Social) en Visual Basic .NET para Windows Form, si quieres puedes descargarte el archivo con el control terminado que incluye además otro para validar un DNI

Private Sub ValidarNass()

'Dos primeros dígitos
Dim a As Long = CInt(Me.Text.Substring(0, 2))
'Ultimos dos dígitos
Dim b As Long = CInt(Me.Text.Substring(2, 8))
'Digitos restantes
Dim c As Long = CInt(Me.Text.Substring(10, 2))
Dim d As Long = Nothing
If b < 10000000 Then
d = b + a * 10000000
Else
d = CLng(Me.Text.Substring(0, 2) & Me.Text.Substring(2, 8))
End If
Dim dc As Long = d Mod 97
If dc = c Then
'Es correcto
Me.BackColor = Drawing.Color.PaleGreen
Else
'es incorrecto
Me.BackColor = Drawing.Color.MistyRose
End If

End Sub

Control para validar DNI
Control para validar CUIT/CUIL
Controles Windows Form para herramientas gestión empresarial

¿Quieres unirte a la conversación? envía tú comentario y continua la conversación, o sucribete a mi "feed" y obtén mis articulos en tu lector favorito.

Copyright eTropicalia | Theme by DailyBlogTips