Hola ¡
Gracias por la respuesta.
El caso es que intento usar la funcion dentro de lotus designer en un boton , parece que no la coge, sale en rojo como si la función o la sintaxis fueran incorrectas
El codigo que tengo hasta ahora - sin completar es -
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
' Calcula el resto de dividir el nº dni entre 23
'@Modulo( dni; 23 )
'retorna el caracter 9 del dni , es decir la letra
'@RightBack("dni";8)
'Convierte una cadena de texto en un número, cuando es posible.
'@TextToNumber
' 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=@Left("alfa";3)
Msgbox laletra
Msgbox numero
Msgbox "Tiene 9 caracteres"
End If
End Sub
No se que función usar para extraer de la variable alfa , la posición de la letra que me da la variable numero que es el resto de dividir el dni entre 23
Gracias por la aportación
Un saludo [adjunto captura pantalla del designer]