26/08/2008, 03:17
|
| | | Fecha de Ingreso: enero-2007 Ubicación: Tingo María - Perú
Mensajes: 399
Antigüedad: 18 años, 3 meses Puntos: 13 | |
| Respuesta: Pequeño problemilla de tipos
Cita:
Iniciado por Bukanero  ' Comprobamos que sean 9 caracteres
If Len(valor) <> 9 And Not IsNumeric(Mid(valor, 2, 7)) Then
VALIDAR_CIF = False
End If que tal si luego de :
VALIDAR_CIF = False
pones: Exit Function
de tal modo que te quede asi:
Código:
' Comprobamos que sean 9 caracteres
If Len(valor) <> 9 And Not IsNumeric(Mid(valor, 2, 7)) Then
VALIDAR_CIF = False
Exit Function
End If
__________________
Vivir para ser buenos y ser buenos para servir mejor. |