Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: YAcosta en Diciembre 22, 2011, 03:22:02 am
-
Hola. Una consulta, tengo dos textbox donde se introducirán dos números (el primero siempre sera menor) por ejemplo (un ejemplo pequeño)
txtCuenta1= 140
txtCuenta2= 145
Y quiero obtener esta cadena: "140, 141, 142, 143, 144, 145"
Entonces hice este código:
NumCuentas = txtCuenta1
a = Val(txtCuenta1) + 1
For i = a To Val(txtCuenta2)
NumCuentas = NumCuentas & ", " & i
Next i
Y obtengo la cadena, mañana entrego el trabajo pero mi pregunta es si existe alguna función que haga eso.
Saludos
-
HOLA!!!
NEEEEE!!!
Si, hay una funcion:
Private Function CreateStringArray(Min As Long, Max As Long) As String
If Min > Max Then Exit Function
CreateStringArray = Min
If Min = Max Then Exit Function
For i = Min + 1 To Max
CreateStringArray = CreateStringArray & ", " & i
Next
End Function
GRACIAS POR LEER!!!
-
Error mio, no me explique bien, debi decir una funcion propia de VB6, por cierto que lo que publique no lo volvi funcion porque solo lo usare una vez ademas que son menos lineas a la vista, sorry debi explciarme mejor, igual muchas gracias.
-
HOLA!!!
(era una joda [chiste])
GRACIAS POR LEER!!!
-
ahhh ok jaja, no lo había entendido men.
Saludos