Buscar

Calcula a quantidade dias, meses e anos entre duas datas e tambem informa a data atual

Código

Procedure TForm1.Button1Click(Sender: TObject);
var
atual:TDate;
dia,mes,ano:Word;
dia1,mes1,ano1:Word;

begin
 atual:=Now;
 DecodeDate(atual,ano,mes,dia);
 Label1.Caption:=IntToStr(dia)+'/'+IntToStr(mes)+'/'+IntToStr(ano);

 DecodeDate(StrToDate(EdData1.Text),ano,mes,dia);
 DecodeDate(StrToDate(EdData2.Text),ano1,mes1,dia1);
 Label2.Caption:=IntToStr(dia-dia1)+'dias-'+IntToStr(mes-mes1)+'meses-'+IntToStr(ano-ano1)+'anos';
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 16/08/07
Por: Maicon Eger
Visualizada: 7362 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009