Saludos Amigos, espero puedan ayudarme, porque tengo encima ungran problema. Tengo una aplicación que exporta registros, pero me piden que haga una opción para elegir los registros a importar, similar a lo que pasa cuando vamos a imprimir en Word... Lo que quiero es una función que me valide los intervalos para evitar errores:


La función debería aceptar: 12,2,15,16,19-25,30


Y no debería aceptar cosas como: a,3,4,2-1,b


Les agradezco su ayuda, y cualquier dato que me puedan dar, se los agradecería mucho más, porque mi código ya está bastante largo y me faltan más cosas por validad.... GRACIAS Edited by: jesusnumero2

Bueno Amigos, creo que he hecho algo xD... jeje, espero que esto sirva, lo probé y no le encontré errores. Lo único que no hace es verificar que el primer intervalo sea menor que el segundo. Pero no importa, es igual poner 5-2 que 2-5, porque miscrosoft word tambien permite eso... Aquí les dejo el código de mi función:





Function ICorrecto(Intervalo As String) As Boolean
Dim T As Boolean
Dim L As Boolean, I As Integer, C As String
T = True
If Len(Trim(Intervalo)) = 0 Then T = False
If T Then
' Aquí se eliminan todos los espacios en blanco
L = False
Intervalo = Trim(Intervalo)
While Not L
L = True
For I = 1 To Len(Intervalo)
C = Mid(Intervalo, I, 1)
If C = " " Then
Intervalo = Mid(Intervalo, 1, I - 1) & Mid(Intervalo, I + 1, Len(Intervalo) - I)
L = False
Exit For
End If
Next I
Wend
'Aquí se eliminan los ceros a la izquierda
L = False
Intervalo = Trim(Intervalo)
While Not L
L = True
For I = 1 To Len(Intervalo)
C = Mid(Intervalo, I, 1)
If I = 1 Then
If C = "0" Then Intervalo = Mid(Intervalo, 2, Len(Intervalo) - 1)
Else
If C = "," Or C = "-" Then
If Mid(Intervalo, I + 1, 1) = "0" Then
Intervalo = Mid(Intervalo, 1, I) & Mid(Intervalo, I + 2, Len(Intervalo) - (I - 1))
L = False
Exit For
End If
End If
End If
Next I
Wend


End If
If T Then
'Aquí se revisa q la coma(,) no este en primera posición ni en última
'posicion. A la vez se verifica que a ambos lados de la coma hayan
'valores numéricos, igualmente se hace con el guión(-)

For I = 1 To Len(Intervalo)
C = Mid(Intervalo, I, 1)
If I = 1 And Not IsNumeric(C) Then
T = False
Exit For
End If
If I > 1 Then
If Not IsNumeric(C) And (C <> "," And C <> "-") Then
T = False
Exit For
End If
If C = "," And (Not IsNumeric(Mid(Intervalo, I - 1, 1)) Or Not IsNumeric(Mid(Intervalo, I + 1, 1))) Then
T = False
Exit For
End If
If C = "-" And (Not IsNumeric(Mid(Intervalo, I - 1, 1)) Or Not IsNumeric(Mid(Intervalo, I + 1, 1))) Then
T = False
Exit For
End If
End If
Next I
End If
'Aqui verificaremos que no se repitan las comas ni guiones
Dim Guion As Integer
Guion = 0
For I = 1 To Len(Intervalo)
If Mid(Intervalo, I, 1) = "-" Then
If Guion = 0 Then
Guion = 1
Else
T = False
Exit For
End If
End If
If Mid(Intervalo, I, 1) = "," Then
Guion = 0
End If


Next I
ICorrecto = T
End Function