Tempo - tempo decorrido entre duas datas

Top  Previous  Next

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;