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 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]