Fórum Calculando data!!!!!! Help!!! #162631

Pega esta UNIT http://www.carnette.kit.net/D5/esbdates.zip que aí tem TODAS as funções de calculos de data e hora mais conversões...O código é aberto...


Boa programação

Como retornar quantidade de dias meses e anos entre duas datas
Ola

Hoje de manhã procurei uma função no Delphi que fizesse o que eu queria e não achei nada , ai fui obrigado a fazer . Bom, pode ser util pra mais gente . Esta procedure retorna a diferença entre 2 datas em dias, meses e anos .


Procedure EntreDatas(DataFinal,DataInicial : TDate ; var Anos,Meses,Dias : Integer) ;
//
// Retorna a diferença em Dias,Meses e Anos entre 2 datas
//
Function Calcula(Periodo : Integer) : Integer ;
var
intCont : Integer ;
begin
intCont := 0 ;
Repeat
Inc(intCont) ;
DataFinal := IncMonth(DataFinal,Periodo * -1) ;
Until DataFinal < DataInicial ;
DataFinal := IncMonth(DataFinal,Periodo) ;
Inc(intCont,-1) ;
Result := intCont ;
End ;
begin
if DataFinal <= DataInicial then
begin
Anos := 0 ;
Meses := 0 ;
Dias := 0 ;
exit ;
end;
Anos := Calcula(12) ;
Meses := Calcula(1) ;
Dias := Round(DataFinal - DataInicial) ;
end;



Como subtrair datas
function SubData(DataEmprestimo: TDataTime) : Integer;
begin
result := Date - DataEmprestimo;
end;

Data final - data inicial...
o delphi trabalha assim ....
ele é um valor decimal..
onde a parte inteira é os dias, e a parte decimal é as horas....
dai ... data 1 - data 2 devolve em dias a diferença das datas....