Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Nueva Fecha según la actual (https://www.clubdelphi.com/foros/showthread.php?t=85401)

mantraxer21 12-03-2014 21:48:14

Nueva Fecha según la actual
 
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 12-03-2014 22:56:01

No se entiende qué quieres conseguir.

mantraxer21 13-03-2014 01:47:12

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 13-03-2014 05:58:34

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 :)


La franja horaria es GMT +2. Ahora son las 03:55:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi