Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Junio 01, 2011, 04:15:41 pm

Título: Problemita con fecha
Publicado por: E N T E R en Junio 01, 2011, 04:15:41 pm

Estoy usando la función DateAdd, lo que quiero es sumar 1 mes por cada fecha pero cuando llega la fecha el 30 de cualquier mes y si se genera hasta febrero ya las otras fecha queda en 29.

Aca dejo el code a ver si me ayudan.

Código: [Seleccionar]

Private Sub Form_Load()
    txtFecha.Text = Date
End Sub


Código: [Seleccionar]

Private Sub Command2_Click()
       
    List1.Clear
    For i = 1 To 10
        txtFecha.Text = DateAdd("m", 1, txtFecha.Text)
        List1.AddItem txtFecha.Text
    Next i

End Sub
(http://s3.subirimagenes.com:81/otros/previo/thump_6477149fecha.jpg)

Título: Re:Problemita con fecha
Publicado por: YAcosta en Junio 01, 2011, 04:35:06 pm

Es porque en ese loop que haces llega a febrero con 29 dias y suma 1 mes y por eso que los demas te salen con fecha 29.
Te recomiendo este cambio

Código: (vb) [Seleccionar]

    List1.Clear
    For i = 1 To 10
        List1.AddItem DateAdd("m", i, txtFecha.Text)
    Next i


Título: Re:Problemita con fecha
Publicado por: E N T E R en Junio 01, 2011, 04:49:56 pm

Buenisimo muchas gracias YvanB