diferença entre datas

Delphi

20/02/2004

olá pessoal!
alguem sabe como eu faço para calcular a diferença entre duas datas (formato mm/aa) com resultado em meses.
ex.: 10/03 - 02/04 = 4 meses
atenciosamente

flaviosan


Flaviosan

Flaviosan

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

20/02/2004

Dê uma olhada no código ai....
var data1, data2: TDatetime;
       num: Float;
begin
    data1 := StrToDate(´11/02/04´);
    data2 := StrToDate(´22/02/04´);
    num := data2 - data1;
   ShowMessage(FormatFloat(´0´, num));



GOSTEI 0
Delphi32

Delphi32

20/02/2004

Também existem duas funções no Delphi que fazem isso:

Obs.: Para usar qualquer uma das duas declare a unit DateUtils no form.

function MonthsBetween(const ANow, AThen: TDateTime): Integer;
Retorna o valor aproximado de meses entre as duas datas...

function MonthSpan(const ANow, AThen: TDateTime): Double;
Retorna o número de meses exato de meses entre as duas datas (a diferença é que este retorna um número decimal, porém exato);


GOSTEI 0
Flaviosan

Flaviosan

20/02/2004

obrigado pelas resposta pessoal

flaviosan


GOSTEI 0
Flaviosan

Flaviosan

20/02/2004

tenho uma duvida: qual a sintaxe da função MonthsBetween (preciso de um exemplo)
agrandeço antecipadamente

flaviosan


GOSTEI 0
POSTAR