Visual Basic - Obtener fechas mas cercana

Life is soft - evento anual de software empresarial
   
Vista:

Obtener fechas mas cercana

Publicado por roxana (35 intervenciones) el 14/10/2007 23:24:55
Mi problema es el siguiente:

Tenemos un textbox llamado "fecha"(20/3/2007), el que comparamos con una tabla historica "P_Historica" que contiene varios registros (codigo, nombre, fecha).
Ejm

Historica.
fechas
01/01/2006
31/03/2006
20/07/2006
03/04/2007
30/05/2007

El hecho es que necesitamos comparar entre el textbox y la tabla historica, de manera de obtener de la tabla la fecha menor mas cercana al textbox .

Es decir el resultado a mostrar deberia ser el 20/07/2006

Espero nos puedan ayudar.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Obtener fechas mas cercana

Publicado por Natalia Camino (46 intervenciones) el 15/10/2007 08:32:44
Una forma que se me ocurre es abir un recordset mediante una sentencia de comparación de fecha igual o menor a la indicada en el TextBox y el ultimo registro sería el buscado.

Algo así:

"Select * From P_Historica Where fecha <= #" & TxtFecha.Text & "# Order by fecha"

y después de abierto el recordset:
MiRs.MoveLast
MsgBox "La fecha mas cercana es " & MiRs!Fecha

Nota: los separadores de fecha varían en función de la base de datos que estés utilizando, los indicados en el ejemplo son para una BD Access.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Obtener fechas mas cercana

Publicado por Roxana (35 intervenciones) el 16/10/2007 03:09:37
Natalia, muchas gracias tu respuestas nos soluciono el problema.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar