[DELPHI] Calcoli basati su giorni con date

[crippo]

puoi sempre fare la differenza fra due date in formato TDateTime con la funzione DaysBetween, no?
function DaysBetween(const ANow, AThen: TDateTime): Integer;