Diferenca entre Datas

Delphi

04/05/2004

Preciso fazer que me informe sobre diferenca entre datas a quantidade de semanas.


Exemplo: data Inicial 22/09/2003
data Final 15/03/2004

Quantidade de semanas entre data inicial e final e quantidade de dias.


sds
AGAraujo


Agaraujo

Agaraujo

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

04/05/2004

var data_Inicial,data_Final: TDate;
    valor: Integer;
    semanas: real;
....
data_Inicial := StrToDate(´22/09/2003´);
data_Final := StrToDate(´15/03/2004´); 

valor := data_final - data_inicial;

// tipo assim, cada semana tem 7 dias..

Semanas := valor/7;



Até mais....

Lucas!


GOSTEI 0
POSTAR