RSS

Diferença entre duas datas

28 nov

 

Veja como retornar Ano, Meses e Dias entre duas datas. Adicione dois DateTimePicker e um Button no formulário. Implemente o seguinte código:

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;

No evento OnClick do botão, digite o seguinte código:

var

aAnos, aMeses, aDias: integer;

begin

EntreDatas(DateTimePicker2.Date, DateTimePicker1.Date, aAnos, aMeses, aDias);

ShowMessage(‘Anos: ‘+ IntToStr(aAnos) + #13 +

‘Meses: ‘+ IntToStr(aMeses) + #13 +

‘Dias: ‘+ IntToStr(aDias));

end;

Anúncios
 
Deixe um comentário

Publicado por em 28/11/2009 em Estudos Delphi

 

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: