Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Febrero 01, 2013, 01:20:13 pm

Título: Sacar en año, mes y dia la diferencia entre fechas
Publicado por: E N T E R en Febrero 01, 2013, 01:20:13 pm

Tengo este codigo que arme pero no se si lo correcto. Quiero que muestre cuando ha pasado desde una fecha hasta la otra.

Código: (VB) [Seleccionar]

Private Sub Timer1_Timer()
   
    Label1.Caption = "Año: " & DateDiff("yyyy", "18/03/1979", Date)
    Label2.Caption = "Mes: " & DateDiff("m", "01/01/" & Format(Date, "yyyy"), Date)
    Label3.Caption = "Dias: " & Format(Date, "d")

End Sub