Assim é Mais fácil...
function PrimeiroDia ( data : Tdate ) : Tdate;
var
dia , mes , ano : Word ;
begin
Decodedate ( data , ano , mes , dia );
Result := Encodedate ( ano , mes , 01 );
end;
o Ultimo dia vc consegue apenas usando o
Variavel := EndOfTheMonth ( <aqui vc coloca a data que vc quer saber> );
Pronto ele resolve..
Wesley
----- Original Message -----
From: Daniel Bastos
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 10, 2007 11:10 AM
Subject: Re: [delphi-br] Data
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]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.467 / Virus Database: 269.6.6/795 - Release Date: 9/5/2007 15:07
[As partes desta mensagem que não continham texto foram removidas]
