DaysInMonth(<Data>); Esta função está na unit DateUtils, que tem que ser adicionada manualmente.
Em 10/05/07, Marcio <[EMAIL PROTECTED]> escreveu: > > segue a Funcao para o ultimo dia, quanto ao primeiro dia seria dia > util???? > > Function LastDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; > > var > Ano, Mes, Dia : word; > AuxData : TDateTime; > DiaDaSemana : Integer; > begin > AuxData := FirstDayOfMonth (NextMonth (Data), False) - 1; > if lSabDom Then > begin > DecodeDate (Auxdata, Ano, Mes, Dia); > DiaDaSemana := DayOfWeek (AuxData); > if DiaDaSemana = 1 Then > Dia := Dia - 2 > else > if DiaDaSemana = 7 Then > Dec (Dia); > AuxData := EnCodeDate (Ano, Mes, Dia); > end; > LastDayOfMonth := AuxData; > end; > > -------Mensagem original------- > > De: Rodrigo Magno > Data: 10/05/2007 10:48:22 > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Assunto: [delphi-br] Data > > Amigos Delphianos, > > Gostaria de saber se alguém tem alguma função que me retorna o primeiro > dia > do mês e o ultimo dia. > > No mais agradeço a atenção de todos. > > Abraços, > > Rodrigo Magno > > __________________________________________________ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger.yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > > > > __________ NOD32 2256 (20070510) Information __________ > > This message was checked by NOD32 antivirus system. > http://www.eset.com > > > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]