Tempo - tempo decorrido entre duas datas

1. Se forem variáveis do tipo TDateTime. Por exemplo:

Var

 Data1, Data2 : TDateTime;

 NoDiasCorridos : double;

    { o resultado é a subtração entre Data1 e Data2: }

 NoDiasCorridos := Data1 - Data2;

2. Se forem colunas de tabelas em formato data, basta:

 NoDiasCorridos := Table1.FieldByName( 'CampoData1' ).AsDateTime 

                              - Table1.FieldByName( 'CampoData2' ).AsDateTime;