¡ Hola ¡
Estoy intentado crear un pequeño codigo para que al introducir un dni con la letra verifique que es correcta , siguiendo algo que encontre en javascript
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As notesdocument
Set uidoc = workspace.CurrentDocument
Dim dni As String, ldni As String, unid As String
Dim numero As Integer
Dim alfa As String
Dim laletra As String
Dim extrae As String
alfa="TRWAGMYFPDXBNJZSQVHLCKET"
dni=uidoc.FieldGetText( "dni" )
If Len(dni)<9 Then
Msgbox "Debe introducir un dni, un pasaporte o un nie"
Else
' Funcion Val extrae el valor número de la expresion
Idni=Val(dni)
' Funcion Mod da el resto de la división
numero = Idni Mod 23
' Funcion Rightc extrae desde la derecha es numero de caracteres especificado
laletra=Rightc(dni, 1)
' extrae = alfa.charAt(numero) Esta seria en Javascript
' Ver variables
Msgbox laletra
Msgbox numero
Msgbox "Tiene 9 caracteres"
End If
End Sub
El tema ahora es que funcion me sirve para extraer de la variable alfa que contiene las letras para verificar el dni e la posición que me da la variable numero ( resto de la division del dni / 23) para compararlo con la letra que han introducido y ver si es correcta o no
¿Que función extrae el caracter nº tal desde la izquierda de un string ?
Gracias de antemano por cualquier comentario
Un saludo