Fórum Como saber qtos meses um animal tem apartir data de nascimen #328309
31/08/2006
0
como faço para calcular qtos meses um animal tem apartir da data de nascimento dele???
obrigado!!!!!!
Rogsystem
Curtir tópico
+ 0Posts
31/08/2006
Night_man
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
31/08/2006
Marco Salles
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
31/08/2006
Night_man
(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
01/09/2006
Marco Salles
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>
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
02/09/2006
Marco Salles
http://forum.clubedelphi.net/viewtopic.php?t=80456
:lol: :lol:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)