Dia igual

06/11/2005

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

Parcela Vencimento
01 [b:10f657ec55]05[/b:10f657ec55]/01/2005
02 [b:10f657ec55]05[/b:10f657ec55]/02/2005
03 [b:10f657ec55]05[/b:10f657ec55]/03/2005
04 [b:10f657ec55]05[/b:10f657ec55]/04/2005

Desde já muito obrigado.


Luciano.sul

Respostas

06/11/2005

Pro-luck

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


Responder Citar