Array
(
)

Dia igual

Luciano.sul
   - 06 nov 2005

Gostaria de saber como gerar parcelas com o mesmo dia só mudando o mes. Ex:

Parcela Vencimento
01 05/01/2005
02 05/02/2005
03 05/03/2005
04 05/04/2005

Desde já muito obrigado.


Pro-luck
   - 06 nov 2005

Para testar esse exemplo crie um formulário que conte com 5 campo do tipo data... e no evento OnExit do primeiro campo, digite o seguinte:

procedure TCadCli15_.D1Exit(Sender: TObject);
Var
Data: TDateTime;
begin
Data := StrToDateTime(D1.Text);
dm_.TabCli15D2.Text := DateTimeToStr(IncMonth(Data,1));
dm_.TabCli15D3.Text := DateTimeToStr(IncMonth(Data,2));
dm_.TabCli15D4.Text := DateTimeToStr(IncMonth(Data,3));
dm_.TabCli15D5.Text := DateTimeToStr(IncMonth(Data,4));
end;

Baseado neste exemplo vc modifica de acordo com a sua necessidade...

Valeu... Té+.

Qualquer coisa, manda um e-mail ou me liga...