HOLA!!!
Estoy trabajando mucho, pero nunca dije que no a un reto...
EDITE LA FUNCIONPrivate Function ExtractNums7913(expression As String) As String
Dim a() As Byte
Dim b() As Byte
Dim ct As Long
a = expression
b = a
For x = 0 To UBound(a) Step 2
If a(x) < 58 Then
If a(x) > 47 Then
b(ct + ct) = a(x)
ct = ct + 1
End If
End If
Next
ReDim Preserve b(ct + ct)
ExtractNums7913 = b
End Function
P.D: NO COMPARTO EL USO DE CLASES O FUNCIONES EXTERNAS, SI ES UNA FUNCION QUE SE VALGA POR ELLA MISMA.P.D2: ESTOY USANDO MAGIA NEGRA... (EVIL TYPE CONVERT // BAD TYPE CONVERT) PERO ES VALIDO PARA MI.P.D3: TENES QUE PONER LA DECLARACION DE LA FUNCION POR EJEMPLO:
Private Function ExtractNums7913(expression As String) As String
POR QUE SINO SE PUEDE JUGAR CON LOS TIPOS.GRACIAS POR LEER!!!
Mostrar Mensajes
