Ver Mensaje Individual
  #3 (permalink)  
Antiguo 20/10/2009, 14:57
emma93
 
Fecha de Ingreso: abril-2008
Ubicación: Córdoba
Mensajes: 103
Antigüedad: 16 años, 9 meses
Puntos: 4
Respuesta: 15 Días antes del actual - Fechas

Bien, lo que hice fue esto:

Código VB .NET:
Ver original
  1. For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
  2.             ReDim fechas(i)
  3.             ReDim diferencias(i)
  4.             fechas(i) = ds.Tables(0).Rows(i).Item("cumpleanos")
  5.             diferencias(i) = fechas(i).Subtract(Now.Date)
  6.             For x As Integer = 0 To 15
  7.                 If diferencias(i).TotalDays = x Then
  8.                     ListBox1.Items.Add("Faltan : " & x & " días para el cumpleaños de " & ds.Tables(0).Rows(i).Item("Nombre") & " " & ds.Tables(0).Rows(i).Item("Apellido"))
  9.                 End If
  10.             Next
  11.         Next

Ahora tengo otra duda, cuando me rellena los datos en el listbox, lo hace de la siguiente manera:

Faltan: 11 días para el cumpleaños de xxx
Faltan: 13 días para el cumpleaños de aaa
Faltan: 12 días para el cumpleaños de yyy

Quiero que queden todos ordenados, que valla en forma creciente. (Primero 11, despues 12 y después 13).

Como podría hacer esto ? Saludos !