Como saber qtos meses um animal tem apartir data de nascimen

Delphi

31/08/2006

Olá Amigos!!!!


como faço para calcular qtos meses um animal tem apartir da data de nascimento dele???




obrigado!!!!!!


Rogsystem

Rogsystem

Curtidas 0

Respostas

Night_man

Night_man

31/08/2006

de um uses de DateUtils,

lah tem rotinas bem legais, tipo

MonthsBetween q retorna o numero, inteiro, de meses entre duas datas e
MonthsPan q retorna o numero, real, de meses entre duas datas


GOSTEI 0
Marco Salles

Marco Salles

31/08/2006

Atente-se para o fato que a função MonthsBetween trabalha com uma [b:2f7401a9b5]média [/b:2f7401a9b5]e portanto nen sempre o seu resultado é o esperado. Portanto seu resultado deve ser tomado com resalvas

Exemplo:

Quantos meses tem entre a data ´01/02/2006´ e ´01/03.2006´ -->> Nen precisa de ajuda , mas acredito que todo mundo diria que é Um mes...
Menos a função MonthsBetween , como pode se notar no codigo abaixo:

procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(inttostr(MonthsBetween(strtodate(´01.02.2006´),strtodate(´01.03.2006´))));
end;


uma alternativa e usar a função que nosso amigo emerson.en desenvolveu , que tem a corrijir este desvio.


GOSTEI 0
Night_man

Night_man

31/08/2006

o calculo que ele faz eh o

(numero de dias entre as duas datas) / (365.25 / 12)

365.25 eh o numero de dias por ano e
12 eh o numero de meses por ano;

como nosso coleca disse, isso eh uma media
por isso o calculo de meses eh uma coisa dificil...

se tu me perguntar quanto tempo eh um mes, eu vou te responder,
- depende

voce pode tentar utilizar a daysbetween q retorna o numero de dias entre as datas, e atravez disso chegar em coisa parecida com oq vc ker


GOSTEI 0
Marco Salles

Marco Salles

31/08/2006

se tu me perguntar quanto tempo eh um mes, eu vou te responder, - depende


eu tb digo que depende , mas o usuário não quer esta resposta.. ele preferi algo mais sugestivo

Se tu me perguntar quantos meses tem entre 01/02/2006 e 01/03/2006
eu te responderii que é um mes... A função MonthsBetween respondera que é zero <pq trabalha com média>

voce pode tentar utilizar a daysbetween q retorna o numero de dias entre as datas, e atravez disso chegar em coisa parecida com oq vc ker

Se quiser poupar o trabalho , pode usar a ´brilhante´ função desenvolvida pelo emerson.en.. Aqui no site tem é so dar uma pesquisada.
Qualquer coisa eu posto , tenho que procurar no meus palpiros...


GOSTEI 0
Marco Salles

Marco Salles

31/08/2006

é mole :

http://forum.clubedelphi.net/viewtopic.php?t=80456

:lol: :lol:


GOSTEI 0
POSTAR