Ayuda con rango de fechas

[ecfisa]

Hola microbiano.

Ejemplo:

Código Delphi [-]
uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  D1,D2: TDate;
  R: Integer;
begin
  D1:= StrToDate('07/01/2011');
  D2:= StrToDate('07/03/2011');
  R:= MonthsBetween(D1,D2);
  ShowMessage('Meses comprendidos entre ' + DateToStr(D1) + ' y ' +
              DateToStr(D2) + ':  ' + IntToStr(R));
end;

Un saludo.