Ayuda con rango de fechas

[ecfisa]

Hola microbiano.

Código Delphi [-]
uses DateUtils;

function MesesANombres(D1, D2: TDate): TStrings;
var
  i, m, Tot: Integer;
begin
  Result:= TStringList.Create;
  Tot:= MonthsBetween(D1, D2);
  m:= MonthOf(D1) - 1;
  for i:= MonthOf(D1) to Tot + MonthOf(D1) do
  begin
    if m = 12 then
      m:= 1
    else 
      Inc(m);
    Result.Add(LongMonthNames[m])
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
   Memo1.Clear;
   Memo1.ScrollBars:= ssVertical; //según las fechas de tu último post, vas a necesitar esta línea... 
   Memo1.Lines:= MesesANombres(StrToDate('01/01/2001'), StrToDate('01/04/2011'));

Un saludo.