Se nao me engano a partir do D6 tem funções pra isso... Mas não lembro qual é... desculpe... []s
Luiz Escobar ----- Original Message ----- From: Jose Ferreira To: delphi-br@yahoogrupos.com.br Sent: Thursday, November 06, 2008 11:07 AM Subject: Res: [delphi-br] data Use esta função para obter Obtendo data do primeiro dia util do mês Function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; var Ano, Mes, Dia : word; DiaDaSemana : Integer; begin DecodeDate (Data, Ano, Mes, Dia); Dia := 1; if lSabDom Then begin DiaDaSemana := DayOfWeek (Data); if DiaDaSemana = 1 Then Dia := 2 else if DiaDaSemana = 7 Then Dia := 3; end; FirstDayOfMonth := EncodeDate (Ano, Mes, Dia); end; Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]