Rango de Semanas en un mes

[[gluglu]]

Creo que se podría optimizar de esta manera :

Código Delphi [-]
var
   fechaIni, fechaFin : TDateTime;
   i : Integer;
begin

  i := 1;
 
  while true do begin
 
    fechaIni := EncodeDate(2007, 08, i);
    if DayOfTheWeek(fechaIni) <> 1 then begin
      fechaFin := EncodeDate(2007, 08, 8-DayOfTheWeek(fechaIni))
      i := 8-DayOfTheWeek(fechaIni) + 1;
    end
    else begin
      i := i + 7;
      if i > DaysInAMonth(2007,8) then 
        fechafin := EndOfTheMonth(fechaIni)
      else
        fechaFin := DayInc(fechaIni,7);
    end;

    showmessage(DateToStr(fechaIni)+'-'+DateToStr(fechaFin));
 
    if i > DaysInAMonth(2007,8) then Break;
 
  end;
 
end;

No lo he probado, por lo que no te puedo asegurar si funciona correctamente.

[*Caro*]

Muchas gracias de nuevo, ya lo he probado y funciona perfectamente, solo faltaba esto.

fechaFin := EncodeDate(2007, 08, 8-DayOfTheWeek(fechaIni)) un ; al final

fechaFin := DayInc(fechaIni,7); -> fechaFin := IncDay(fechaIni,6);

Saluditos

[[maeyanes]]

Aquí te dejo una función que recibe un año y mes cualquiera y te va mostrando los rangos de las semanas del mes:

Código Delphi [-]
procedure ShowWeekRanges(AYear, AMonth: Word);
var
  StartDay: Integer;
  DaysInMonth: Integer;
  EndDay: Integer;

begin
  StartDay := 1;
  DaysInMonth := DaysInAMonth(AYear, AMonth);
  EndDay := 8 - DayOfWeek(EncodeDate(AYear, AMonth, 1));
  repeat
    ShowMessage(Format('%d - %d', [StartDay, EndDay]));
    StartDay := EndDay + 1;
    Inc(EndDay, 7);
    if EndDay > DaysInMonth then
      EndDay := DaysInMonth
  until
    StartDay > DaysInMonth;
end;

Saludos...

[*Caro*]

Muchas gracias a ti también maeyanes.