Pergunta : DELPHI - DATEDIFF

Eu tenho uma variável com duas datas DATAINIZIO - DATAFINE
There é uma função incluída em Delphi para calcular a diferença entre as duas datas, mim precisa de começ o resultado nos dias, nos meses, nos anos, nas horas e nos segundos? o

I gostaria de um exemplo. thanks class= do

Resposta : DELPHI - DATEDIFF

A data 0 em Delphi é realmente 1899-12-30, assim que você começ um resultado estranho.
Usar esta função preferivelmente, que retornará os 7 componentes de um diff da data.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedimento DiffDates (dFrom, dTo: TDateTime; var y, m, d, h, n, s, Senhora: Palavra);
começar
  DecodeTime (dFrom-dTo, h, n, s, Senhora);
  y: = 0; m: = 0; d: = 0;
  quando IncMonth (dFrom, 12*y) < dTo="" do="" Inc=""> dTo então
    Dezembro (y);
  dFrom: = IncMonth (dFrom, 12*y);
  quando IncMonth (dFrom, m) < dTo="" do="" Inc=""> dTo então
    Dezembro (m);
  dFrom: = IncMonth (dFrom, m);
  quando dFrom + dTo < dTo="" do="" Inc=""> de d então
    Dezembro (d);
extremidade;
Outras soluções  
 
programming4us programming4us