Fórum Diferença entre datas #280876
10/05/2005
0
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
Curtir tópico
+ 0
Responder
Posts
10/05/2005
Japa
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}
Responder
Gostei + 0
10/05/2005
Brunosh3
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.
Responder
Gostei + 0
10/05/2005
Edilcimar
se vc peguar a quantidade de dias é só criar uma pequena função que transforme dias em meses e anos
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)