Restar un dia a Datetimepicker sin contar fines de semana

[ZiriusB]

Buenas amigos, tengo el siguiente problema...

Necesito que en un Datatimepicker se muestre el dia anterior al actual,

Código Delphi [-]
procedure TForm7.FormActivate(Sender: TObject);
Var
midate:TDate;
begin
midate:=now-1;
HFecha.DateTime:= midate;
end;

Hfecha es el Datetimepicker, todo bien, me coloca el dia anterior pero el problema es que solo quiero que me coloque los dias laborables (Lunes a Viernes) cuando llega el dia del lunes el Datetimepicker me muestra el dia Domingo, pero yo quiero que me muestre el dia Viernes que es el ultimo dia laborable!

¿Tienen alguna sugerencia?, Añado que el control se carga solo, no es un valor tomado de una base de datos ni algo por el estilo!

Saludos

[ecfisa]

Hola ZiriusB.

Según entiendo el problema lo vas a tener los días lunes y domingo, en el primer caso tenes que restar 3 a la fecha y en el segundo 2 ya que en ambos el último día laboral anterior es viernes, en los casos restantes restar 1:

Código Delphi [-]
...
implementation 

uses DateUtils;

function LaboralAnterior(ADate: TDate): TDate;
begin
  case DayOfTheWeek(ADate) of
    DayMonday: ADate:= ADate-3;
    DaySunday: ADate:= ADate-2;
    else
     ADate:= ADate-1;
  end;
  Result:= ADate;
end;

Ejemplo de llamada:

Código Delphi [-]
begin
  DateTimePicker1.Date:= LaboralAnterior(StrToDate('20/02/2012'));
end;

Saludos.

[ZiriusB]

La verdad solo serian los Lunes, porque cuando llegue el dia Lunes el Datetimepicker me colocaria el dia anterior osea DOMINGO, ya de ahi no tendria problema!

Probare esto, gracias amigo

[[Chris]]

Empezado por ecfisa

Según entiendo el problema lo vas a tener los días lunes y domingo

Te has comido el sábado amigo :P

Esta es mi alternativa:

Código Delphi [-]
function LaboralAnterior(ADate: TDate): TDate;
begin
    Result := IncDay(ADate, -1);
    
    case DayOfTheWeek(Result) of
        DaySunday  : Result := IncDay(Result, -2);
        DaySaturday: Result := IncDay(Result, -1);
    end;
end;

Saludos!

[ecfisa]

Empezado por Chris

Te has comido el sábado amigo :P

Cierto, debe ser por que odio madrugar el sabado...

Saludos.

[[Delphius]]

Chris, ecfisa sus códigos se pueden mejorar.
Dentro del case simplemente establezco los días a restar, y directamente hago la operación afuera. Después de todo es una expresión común a todos los casos y puede estar fuera del case. Es como sacar factor común en una expresión matemática

Código Delphi [-]
case  DayOfTheWeek(ADate) of
DayMonday: Dec := -3;
DaySunday: Dec := -2;
..
end; // fin case
result := IncDay(Date, Dec);

A mi parecer es un código más legible.

Saludos,

[[egostar]]

Código Delphi [-]
case  DayOfTheWeek(ADate) of
DayMonday: Decremento := -3;
DaySunday: Decremento := -2;
..
end; // fin case
result := IncDay(Date, Decremento);

Saludos