Diferença entre datas
Bom dia,
Gostaria de saber se alguém teria alguma função que retornasse a diferença completa entre duas datas, anos, meses e dias.
[b:0b63a03100]Obrigado,[/b:0b63a03100]
8)
Gostaria de saber se alguém teria alguma função que retornasse a diferença completa entre duas datas, anos, meses e dias.
[b:0b63a03100]Obrigado,[/b:0b63a03100]
8)
Brunosh3
Curtidas 0
Respostas
Japa
10/05/2005
function DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;
Var Data: TDateTime;
dia, mes, ano: Word;
begin
if DataAtual < DataVenc then
begin
Result := ´A data data atual não pode ser menor que a data inicial´;
end
else
begin
Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data)+´ Dias´;
end;
end;
{Dica enviada por Marco Barki Algranti}
Var Data: TDateTime;
dia, mes, ano: Word;
begin
if DataAtual < DataVenc then
begin
Result := ´A data data atual não pode ser menor que a data inicial´;
end
else
begin
Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data)+´ Dias´;
end;
end;
{Dica enviada por Marco Barki Algranti}
GOSTEI 0
Brunosh3
10/05/2005
Bom dia,
Gostaria de saber se alguém teria alguma função que retornasse a diferença completa entre duas datas, anos, meses e dias.
[b:35ba38b047]Obrigado,[/b:35ba38b047]
8)
Estava precisando de alguma coisa parecida com isso aki saca soh..
01/05/1994 a 28/05/1999
5anos 0 meses e 29 dias.
Obrigado.
GOSTEI 0
Edilcimar
10/05/2005
se vc peguar a quantidade de dias é só criar uma pequena função que transforme dias em meses e anos
GOSTEI 0