Primeiro dia de cada m�s

Question

Ol� pessoal...Como eu fa�o pra retornar o primeiro dia de cada mes, tipo01/11/200501/12/200501/01/2006 etc...tipo com um Datetostr(Now); e talz, sei lahe outra d�vida tbm eh como formatar a data do da...

Lehapan · Answer

var    Dia, Mes, Ano: word;    Data: TDate;  begin    DecodeDate(DataInicial.Date, Ano, Mes, Dia);    Data := EncodeDate(Ano, Mes, 01);  end;acho q ajudei...

Emerson Nascimento · Answer

Data := StartOfTheMonth(Date); // retorna 01/MesAtual/AnoAtual

Para incrementar os meses bastaria algo como (supondo que hoje fosse 03/11/2005):

Data := StartOfTheMonth(Date); // retornaria 01/11/2005

for i := 1 to NumeroDeMeses do
begin
  Data :=  StartOfTheMonth(IncMonth(Data));

  {fa�a algo com a nova data}
end;

obs.: � importante informar a sua vers�o do delphi porque, dependendo da vers�o, algumas fun��es podem n�o estar implementadas.