Array
(
)

Primeiro dia de cada mês

Ramms
   - 03 nov 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


Lehapan
   - 03 nov 2005

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


acho q ajudei


Emerson
   - 03 nov 2005

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

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

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.