15 Días antes del actual - Fechas

[emma93]

Miren, tengo un problema.

Tengo una base de datos donde guardo clientes, y sus respectivas fechas de cumpleaños.

Lo que necesito es consultar las fechas de cumpleaños, y guardar sólo las fechas donde faltan 15 dias para el cumpleaños.

Por ejemplo, hoy es 1/1/2010. Supongamos que JUANCITO cumple el día 20/1/2010.
Necesito que el 5/1/2010 me avise que faltan 15 días para que cumpla Juancito. Cuando sea 6/1/2010 necesito que me avise que faltan 14 días, y asi sucesivamente.

Como haría esto ? El problema se me complica al restar los meses también. Supongamos que una persona cumple el 1 de Enero, entonces me tendría que avisar el 17 de Diciembre.

Espero que me puedan ayudar, Saludos !

[boluart]

esto para que lo hagas a nivel de base de datos (SQL Server):

declare @date datetime
set @date = '2009-11-11'
select DATEDIFF(day,getdate(),@date)

pero si quieres hacerlo desde .Net podrias usar la funcion AddDays, o Substract

[emma93]

Bien, lo que hice fue esto:

Código VB .NET:

For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            ReDim fechas(i)
            ReDim diferencias(i)
            fechas(i) = ds.Tables(0).Rows(i).Item("cumpleanos")
            diferencias(i) = fechas(i).Subtract(Now.Date)
            For x As Integer = 0 To 15
                If diferencias(i).TotalDays = x Then
                    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"))
                End If
            Next
        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 !

[boluart]

aplicale un Order By a la consulta que devuelves, otro metodo seria usar tu propio algoritmo de Ordenacion (Cosa que no te recomendaria porque podria inculo ser algo lenta).

[emma93]

Me parece que el error se encuentra en el FOR que lleva el listbox.

Cuando agrego los items voy agregando los del integer X, lo cual los ordena a medida que valla encontrando.

He probado con ORDER BY cumpleanos DESC pero no pasa nada.

Si me puedes hechar una mano estaría muy agradecido. Saludos !

[boluart]

2 cosas:
1° Asegurate de poner el Order By en tu consulta SQL
2° Asignale False al Sorted de tu ListBox (ListBox1.Sorted= false )

deberia de funcionar , a menos que tu consulta este haciendo order by a mas de una columna.

[emma93]

Te adjunto el código del FORM_LOAD donde quiero que se ejecute la consulta

Código VB.NET:

Dim command As String = "Select nombre,apellido,cumpleanos from clientes ORDER BY cumpleanos DESC"
        Dim cadena_conexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:\Documents and Settings\Administrador\Mis documentos\registros.mdb'"
        Dim dbconn As New System.Data.OleDb.OleDbConnection(cadena_conexion)
        Dim comando As New OleDbDataAdapter(command, dbconn)
        Dim ds As New DataSet
        comando.Fill(ds, "clientes")
        For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            ReDim fechas(i)
            ReDim diferencias(i)
            fechas(i) = ds.Tables(0).Rows(i).Item("cumpleanos")
            diferencias(i) = fechas(i).Subtract(Now.Date)
            If diferencias(i).TotalDays <= 15 Then
                ListBox1.Items.Add("Faltan " & diferencias(i).TotalDays & " días para el cumpleaños de " & ds.Tables(0).Rows(i).Item("Nombre") & " " & ds.Tables(0).Rows(i).Item("Apellido"))
            End If
        Next
 

Que puede ser? :/

[boluart]

la columna cumpleanos de que tipo es?
y haber si listas los resultados que te muestra y en que orden los esta mostrando

[emma93]

Ahi está la forma en que se listan.

Y lo de saber el tipo de dato del campo cumpleanos no sé como hacerlo, si me indicarías te podría decir. Es muy importante eso ?

Saludos !

[boluart]

la verdad que si, asegurate de que ese campo sea de tipo fecha.

[emma93]

Era problema de la configuración de esa columna jaja.

Había que ponerla en formato FECHA/HORA, mientras que se encontraba en formato TEXTO.

Que tonto he sido como no me di cuenta antes !

Saludos y gracias :)