Calculando data!!!!!! Help!!!

Delphi

26/05/2003

Estou tentando calcular uma data mas não estou conseguindo.

Gostaria de calcular uma data inicial com uma data final
me retornando o valo em dias por exemplo:
[b:6f84a88bab]10/05/03 com 15/05/03 fosse = 5[/b:6f84a88bab]

como faço???

Se puderem me ajudar fico muito grato

[]s Roni


Ronithd

Ronithd

Curtidas 0

Respostas

Carnette

Carnette

26/05/2003

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


GOSTEI 0
Rafael Roni

Rafael Roni

26/05/2003

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;


GOSTEI 0
Rafael Heise

Rafael Heise

26/05/2003

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....


GOSTEI 0
POSTAR