desbordamiento
Publicado por fernando (29 intervenciones) el 22/10/2003 23:18:27
en un testbox tengo introducido este codigo para calcular la letra de nif, pero cuando introduzco 11 digitos se produce un error por desbordamiento, como lo puedo evitar.
tambien se produce un error por desbordamiento cuando pulso la tecla de retroceso y quito el último digito ¿como lo puedo evitar?
Private Sub TextBox1_Change()
TextBox2 = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (TextBox1 Mod 23) + 1, 1)
End Sub
tambien se produce un error por desbordamiento cuando pulso la tecla de retroceso y quito el último digito ¿como lo puedo evitar?
Private Sub TextBox1_Change()
TextBox2 = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (TextBox1 Mod 23) + 1, 1)
End Sub
Valora esta pregunta
0