Condicionales para las fechas

[[Chris]]

Empezado por ElDioni

Hola Chris,

donde pones DBetween en realidad debería poner days_to_void, ¿verdad?, y otra cosa, si la fecha de vencimiento fuera 5 días después de la actual te volvería a pintar la fila en verde, o me equivoco, creo que no llego a comprender para que sirve la función iff.

Saludos.

En realidad sí. Es que luego que puse el código, cambié el nombre de la variable. Olvidé esa línea. Gracias por la observación.

Si la fecha fuera 5 días después de hoy, la fila se pintaría en rojo. Es de ahí la última condición "days_to_void < 0".

La función iif es una función común en algunos lenguajes o entornos. Lástima que Delphi no la incluye -hasta dónde sé-. La función iif es cómo cualquier otra función. Es una función que se utiliza para ahorra líneas de código y hacer el código más leíble. Tienes que declararla en cualquier lugar de tu aplicación. El último código que puse sería su "source code".

Lo que aún si no estoy claro es en el orden de los parámetros de la función DaysBetween. Si hay cualquier problema, la solución sería intercambiar los parámetros Query.FieldByName(...) y Now().

Saludos!

[[ElDioni]]

Hola,
yo es que creo que en la función de DaysBetween da igual el orden de las fechas, siempre te marca la diferencia de días entre una y otra, aunque la primera fecha se superior a la segunda.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
fecha1,fecha2:TDate;
begin
fecha1:=Now;
fecha2:=now+10;
ShowMessage(IntToStr(daysbetween(fecha1,fecha2)));//muestra 10
ShowMessage(IntToStr(daysbetween(fecha2,fecha1)));//muestra 10
end;

Saludos.

[[Chris]]

Empezado por ElDioni

Hola,
yo es que creo que en la función de DaysBetween da igual el orden de las fechas, siempre te marca la diferencia de días entre una y otra, aunque la primera fecha se superior a la segunda.

Tienes razón! Que tonto soy :P

Creo que ya llevar unos meses fuera de Delphi está empezando a hacer efecto en mí