Renato, Function BoM(dData : TDateTime):TDateTime; begin Result := dData - ExtractDay(dData) + 1; end;
Function EoM(dData : TDateTime):TDateTime; begin Result := BoM(IncMonth(dData,1))-1; end; Inclua a unit dateutil no uses. [ ]´s Moacir Renato Javaman escreveu: > >Sds.... > >Gostaria de saber se alguem tem aí dando mole alguma função pra pegar o >Primeiro e o último dia de um mes especifico.... ou se dá pra fazer isso >passando algum parâmetro pra Date(). > > >--------------------------------- >Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! > >[As partes desta mensagem que não continham texto foram removidas] > > > > > -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.9.7/60 - Release Date: 28/7/2005 -- <<<<< 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] ou [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
