Fórum diferença entre datas #215763

20/02/2004

0

Delphi

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

Responder

Posts

20/02/2004

Lucas Silva

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));



Responder

Gostei + 0

20/02/2004

Delphi32

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);


Responder

Gostei + 0

20/02/2004

Flaviosan

obrigado pelas resposta pessoal

flaviosan


Responder

Gostei + 0

20/02/2004

Flaviosan

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

flaviosan


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar