Diferença Entre Datas

[Hugo Slepicka 0]

Ta ai galera uma função que eu uso para calcular diferença entre datas... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Espero que ajude...

 

 

Function Tempo(Inicio, Fim:TDateTime) : String;Type  Data = Record  Ano : Word;  Mes : Word;  Dia : Word;End;Const  Qdm:String = '312831303130313130313031'; // Qtde dia no mesVar  Dth : Data; // Data de inicio  Dtn : Data; // Data de fim...  anos, meses, dias, nrd : Shortint; // Usadas para calculo de tempo  msg : String;begin  DecodeDate(Fim,Dth.Ano,Dth.Mes,Dth.Dia);  DecodeDate(Inicio,Dtn.Ano,Dtn.Mes,Dtn.Dia);  anos := Dth.Ano - Dtn.Ano;  meses := Dth.Mes - Dtn.Mes;  if meses < 0 then  begin	Dec(anos);	meses := meses+12;  end;  dias := Dth.Dia - Dtn.Dia;  if dias < 0 then  begin	nrd := StrToInt(Copy(Qdm,(Dth.Mes-1)*2-1,2));	if ((Dth.Mes-1)=2) and ((Dth.Ano Div 4)=0) then	begin	  Inc(nrd);	end;	dias := dias+nrd;	meses := meses-1;  end;  If Anos > 0 then  Begin	If Anos > 1 then	Begin	  Msg := IntToStr(anos)+' Anos ';	End	Else	Begin	  Msg := IntToStr(anos)+' Ano ';	End;  End;  If meses > 0 then  Begin	If meses > 1 then	Begin	  Msg := Msg + IntToStr(meses)+' Meses ';	End	Else	Begin	  Msg := Msg + IntToStr(meses)+' Mes ';	End;  End;  If dias > 0 then  Begin	If dias > 1 then	Begin	  Msg := Msg + IntToStr(dias)+' Dias ';	End	Else	Begin	  Msg := Msg + IntToStr(dias)+' Dia ';	End;  End;  Result := Msg;end;

[QuIx 0]

Eu nunca usei essa opção mais se um dia eu precisar sei que tem aqui ^^'