Veja a função abaixo. Você passa no primeiro parametro o data mais antiga e no
segundo parametro a data mais recente. Inclua, se já não houver, a Uses
SysUtils.
Function IntData(Data1:TDateTime; Data2:TDateTime) : String;
Type
Data = Record
Ano : Word;
Mes : Word;
Dia : Word;
End
;
Const
Qdm: String = '312831303130313130313031'; // Qtde dia no mes
Var
Dth : Data; // Data de hoje
Dtn : Data; // Data de nascimento
anos, meses : Integer; // Usadas para calculo da idade
begin
DecodeDate(Data1,Dth.Ano,Dth.Mes,Dth.Dia);
DecodeDate(Data2,Dtn.Ano,Dtn.Mes,Dtn.Dia);
anos := Dth.Ano - Dtn.Ano;
meses := Dth.Mes - Dtn.Mes;
if meses < 0 then
begin
Dec(anos);
meses := meses+12;
end
;
meses := meses + (anos * 12);
Result := IntToStr(meses)+' Meses ';
end;
Espero ter ajudado
Fabrício Pinheiro frança
----- Original Message -----
From: Guigos
To: Delphi-Br
Sent: Tuesday, November 08, 2005 10:06 AM
Subject: [delphi-br] Quantidade de Meses num determinado periodo
Galera, bom Dia?
Gostaria de saber como faço pra achar em um determinado periodo de datas
a quantidade de meses?
Ex: 01/01/2005 a 31/12/2005 = 12 meses
grato
Obrigado
Luis
_______________________________________________________
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
