Se não se engano:
var
data : TDate;
prim_dia : TDate;
ult_dia : TDate;
begin
data := StrToDate('10/06/2005');
prim_dia := StrToDate('01/' + FormatDateTime('mm/yyyy',data));
data := IncMonth(data,1); // passa para mes seguinte
// primeiro dia do mes seguinte - 1 volta para ultimo do mes
// anterior
ult_dia := StrToDate('01/' + FormatDateTime('mm/yyyy',data)) - 1;
end;
HTH,
Roberto.
--- Em delphi-br@yahoogrupos.com.br, F D <[EMAIL PROTECTED]> escreveu
> Como eu faço para pegar o primeiro dia do mes e o ultimo?
>
> Grato
>
> Francisco
>
> __________________________________________________
> Converse com seus amigos em tempo real com o Yahoo! Messenger
> http://br.download.yahoo.com/messenger/
>
> [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] 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
