Primeiro dia de cada mês

03/11/2005

Olá pessoal...
Como eu faço pra retornar o primeiro dia de cada mes, tipo
01/11/2005
01/12/2005
01/01/2006
etc...

tipo com um Datetostr(Now); e talz, sei lah

e outra dúvida tbm eh como formatar a data do datetimepicker que esta assim 1/11/2005 para 01/11/2005???

Vlw


Ramms

Respostas

03/11/2005

Lehapan

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


acho q ajudei


Responder Citar

03/11/2005

Emerson

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.


Responder Citar