Nueva Fecha según la actual

[mantraxer21]

Estimados,

Quiero que al momento se seleccionar una fecha nueva (DBDatePicketEdit) me muestre en el calendario sólo los días de Lunes a Viernes y que esta nueva fecha sea igual o mayor a la fecha actual del sistema.

Fecha actual sistema

Código Delphi [-]
FechaActual.DateTime:= now;

[Casimiro Notevi]

No se entiende qué quieres conseguir.

[mantraxer21]

La idea es que al momento de seleccionar una fecha del control JvDateTimePickerEdit llamado "nueva_fecha", ésta me permita seleccionar sólo los dias de lunes a viernes y que su inicio sea igual o mayor (el día seleccionado) a la fecha actual del sistema

[ecfisa]

Hola mantraxer21.

No conozco el control JvDateTimePickerEdit, pero con un TDateTimePicker podrías hacer:

Código Delphi [-]
...

uses DateUtils;

procedure TForm1.DateTimePicker1Exit(Sender: TObject);
var
  d1,d2: TDateTime;
begin
  d1:= DateTimePicker1.DateTime;
  d2:= Now;
  // Si la fecha ingresada es menor o igual a la fecha actual o es día no hábil ...
  if ((d1 <= d2) or (DayOfTheWeek(d1)>5)) then
    raise Exception.Create('El día seleccionado no es válido'); // Mostrar error
  //...
end;

No usé el evento OnChange por que el control TDateTimePicker lo dispara dos veces cuando se cambia la fecha desplegando el calendario, por lo que obtendrías duplicado el mensaje de error. Tal vez el control que usas no tenga ese comportamiento y puedas incluir el código de verificación en él.

Saludos