Rango de fechas

[jhonny]

Ahora bien...

Se me ocurrre que debes de hacer algo asi:

Por ejemplo en el OnClick de un boton:

procedure Tform1.botonClick(sender :TObject);
var
   fecharesult :TDate;
   ano, mes, dia :Word;
begin
    fecharesult:=fechafinal-fechainicial;
    decodedate(fecharesult,ano,mes,dia);
    label1.caption:=inttostr(ano)+' Año, '+inttostr(mes)+
    ' mes, '+' y '+inttostr(dia)+ ' dias';
end;

//donde label1 es un TLabel

Y eso es todo

//Carambolas mientras escribia se me ha adelantado cso2000