[delphi-br] Re: Data

Thu, 10 May 2007 07:08:57 -0700 

funcionam com o Delphi 7, adicione DateUtils na uses

function PrimeiroDia: TDate;
begin
  Result := EncodeDate(YearOf(Date), MonthOf(Date), 1);
end;

function UltimoDia: TDate;
var
  Y, M: Word;
begin
  Y := YearOf(Date);
  M := MonthOf(Date);
  Result := EncodeDate(Y, M, DaysInAMonth(Y, M));
end;

--- Em delphi-br@yahoogrupos.com.br, Rodrigo Magno <[EMAIL PROTECTED]>
escreveu
>
> 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]
>

Responder a