[RESUELTO] ¿mal funcionamiento de IsNumeric?

[JorgeSan]

Hola a todos
Me ocurre que en una de mis macros donde introduzco datos de clientes, basado en el programa de ejemplo del excelente manual de Mauricio, debo comprobar que el NIF (número de identificación fiscal en España) no es un número, puesto que debe llevar una letra, al menos.
Me funciona perfecto hasta que doy con un dato concreto, solamente ocurre con cadenas compuestas de números con la letra "D" al final.
el código es el siguiente:

Código: Seleccionar todo

Sub comprobacion ( )

	If IsNumeric( "71127946D" ) Then
		MsgBox "Es numérico"
	Else
		msgbox "No es numérico"
	End If

End sub

En este caso obtengo el mensaje "es numérico" cuando no debería serlo. Cambiando los números ocurre igual, siempre que tenga la letra "D" al final. Si la letra es otra, como "A", "B" ó "C", la respuesta es "no es numérico".
Me ocurre en LibO 3.5 y LibO 3.6 corriendo en windows 7 profesional x64 SP1
¿pueden probarlo y decirme si es un fallo mío o de LibO?
Gracias

[mauricio]

Hola...

La D y la E tiene un significado especial al usarse en las variables, compruebalo:

Código: Seleccionar todo

	s = 123d
	MsgBox TypeName(s)

Te sugiero cambiar tu algoritmo para verificar tu valor...

Saludos

[JorgeSan]

Ah ya entiendo , la letra D designa el tipo de dato Double
Muchas gracias, Mauricio, por tu inestimable ayuda.
Por suerte ya tenía incluidas más verificaciones en mi algoritmo, que son suficientes para verificar el dato.

[SLV-es]

Sólo por que viene a cuento, en Función letra NIF tienes una función para validar la letra del NIF español.

[JorgeSan]

Gracias