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