Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Bazooka en Septiembre 13, 2011, 03:12:10 pm
-
Hola gente quiero resolver esto y no puedo:
Tengo un 12 textBox y quiero que al escribir la fecha en el primero (index 0) me vaya poniendo un mes más en el siguiente o sea que si coloco en el
tx(0)=10/04/2011 ---- aqui se escribe
tx(1)=10/05/2011 -----este se rellena automatic.
tx(2)=10/06/2011 ----- '' '' ''
............
...........
y asi hasta el 10 contemplando la posibilidad de que si fuera 31 la fecha del 1º habria que chequear si el mes sisguiente tiene esa cantidad de digitos!!!
Algun aporte?
Gracias
-
Proba con este amigo.
Private Sub Command1_Click()
For i = 0 To 12
Text1(i).Text = DateAdd("m", i, Date)
Next i
End Sub
-
Buenisimo Ariel!! eso es lo que buscaba con eso me arme una funcion que aqui abajo posteo solo que en vez de colocar en el evento changue del textbox utilize un DateTimePiker para seleccionar la fecha inicial aca el codigo por si alguno lo precisa alguna vez:
Private Sub date1_Change()
On Error Resume Next
Dim n As Integer
Dim tFecha As Date
tFecha = date1.Value
txFecha(1) = tFecha
For n = 2 To txFecha.UBound
If txFecha(n).Visible Then
txFecha(n).text = CalcularMesSiguiente(tFecha)
tFecha = txFecha(n).text
End If
Next
End Sub
Private Function CalcularMesSiguiente(fecha As Date) As Date
Dim tmpFecha As Date
tmpFecha = DateAdd("m", 1, fecha)
CalcularMesSiguiente = tmpFecha
End Function