Dia igual

Question

Gostaria de saber como gerar parcelas com o mesmo dia s� mudando o mes. Ex: Parcela   Vencimento01           [b:10f657ec55]05[/b:10f657ec55]/01/200502           [b:10f657ec55]05[/b:10f657ec55]/02/2005...

Pro-luck · Answer

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...