Dia igual
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.
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
Curtidas 0
Respostas
Pro-luck
06/11/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...
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...
GOSTEI 0