Fecha decreciente...

Hola, Matias:

Prueba esto:

Dim t As TimeSpan = #4/1/2006# - DateTime.Now

MsgBox(String.Format("{0} días, {1} horas, {2} minutos y {3} segundos", t.Days, t.Hours, t.Minutes, t.Seconds))



Saludos.



"Matias" escribió en el mensaje news:u4$
| Hola a todos!
| La idea es hacer un contador a hoy de una fecha dada.
| Poner una fecha futura en un form, ej: 01/04/2006.. y mostrar una etiqueta q
| diga "faltan xx dias, xx horas, xx minutos y xx segundo para el 01/04/2006"
| creo q se tiene q hacer con el control timer.. pero la verdad no se como..
| alguna ayuda sera agradecida..
|
| muchas gracias igual.
|
| saludos
|
| matias
|
|

Matias:
Me gustó el programita de "cuenta regresiva" que tiraste al foro.
Te mando una ayudita. Para hacerlo funcionar tienes que hacer un form con un
Timer1, un Label1 y guardar la fecha dada en una variable a nivel de clase
que se llame FechaSeleccionada, despues agrega este codigo para manejar el
evento Tick del Timer.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Dim Data(4) As String

Dim FechaFalta As TimeSpan = FechaSeleccionada.Subtract(Date.Now)

Data(0) = FechaFalta.Days

Data(1) = FechaFalta.Hours

Data(2) = FechaFalta.Minutes

Data(3) = FechaFalta.Seconds

Data(4) = FechaSeleccionada.ToString

Me.Label1.Text = String.Format("Faltan {0} dias, {1} horas, {2} minutos y
{3} segundos para el {4}.", Data)

End Sub

Espero que te sirva
Saludos
Diego