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; Memo1.Lines:= MesesANombres(StrToDate('01/01/2001'), StrToDate('01/04/2011'));
Un saludo.