Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Enero 31, 2013, 01:56:45 pm

Título: Sumar fechas
Publicado por: E N T E R en Enero 31, 2013, 01:56:45 pm

Tengo este código y quiero sumarle15 días a partir de la fecha que le digo es recomendable hacer esta forma?

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
   
    Dim a As Integer
    List1.Clear
   
    For i = 1 To 10
        a = a + 15
        List1.AddItem DateAdd("d", a, Date)
    Next i
   
End Sub

Título: Re:Sumar fechas
Publicado por: YAcosta en Enero 31, 2013, 08:17:29 pm

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
   
    Dim a As Integer
    List1.Clear
   
    For i = 1 To 10
        List1.AddItem DateAdd("d", i * 15, Date)
    Next i
   
End Sub

je, no se me ocurre nada mas.