Calculo de data de vencimento

[Marcosvbn 0]

pessoal preciso da ajuda de você porem desde já agradeço quem poder me ajudar.

 

estou fazendo uma aplicação

de contas a pagar porem quero colocar um codigo em um botão

pra ele fazer o seguinte

quando o usuario colocar no (campo data de vencimento) a (data) e quando ele colocar no campo (quantidade de parcelas)

o botão tem que fazer o calculo seguinte:

 

aqui o usuario é quem coloca -> ex: 1º vencimento = 22/11/2009 e a quantidade de parcelas = 3

 

aqui o calculo do programa

ele tem que

calcular= 2ºvencimento = 22/12/2009 em seguida

novo registro na tabcontas tabcontas.append;

em seguida e salvar na tabelacontas tabcontas.post;

 

depois calcular 3ºvencimento = 22/01/2010 em seguida

novo registro na tabcontas tabcontas.append;

em seguida e salvar na tabelacontas tabcontas.post;

 

pessoal agradeço desde já ajuda de vcs !

[Geovane Velmer 0]

Tenta assim:

 

Obs: É necessário colocar DateUtils na clausula Uses

 

var
i           : Integer;
dVencimento : TDateTime;

if Trim(dtParcelas.Text) = '' then
   begin
   ShowMessage('Informe a quantidade de parcelas desejada !');
   dtParcelas.SetFocus;
   Exit;
   end;

if Trim(dtVencimento.Text) = '' then
   begin
   ShowMessage('Informe uma data para o vencimento !');
   dtVencimento.SetFocus
   Exit;
   end;

dVencimento:= StrToDate(dtVencimento.Text);

for i:= 1 to StrToInt(dtParcelas.Text) do
begin

dVencimento:= IncMonth(dVencimento,1);

end;

[Marcosvbn 0]

Geovane Velmer vlw brigadão mais tem um porem

 

a data de vencimento tem que ser multiplicada pela quantidade de parcelas nformada

no campo (Qtd Parcelas)

[Geovane Velmer 0]

Geovane Velmer vlw brigadão mais tem um porem

 

a data de vencimento tem que ser multiplicada pela quantidade de parcelas nformada

no campo (Qtd Parcelas)

 

 

certo mas o exemplo que eu dei já faz isso;

olhe

 

dVencimento:= StrToDate(dtVencimento.Text); //-- Aqui você carrega a variavel com a data inicial

for i:= 1 to StrToInt(dtParcelas.Text) do //-- esse loop gera as parcelas
begin

dVencimento:= IncMonth(dVencimento,1); //-- a cada parcela gerada é acrecentado 1 mes IncMonth = Incrementa Mes

//-- Aqui você coloca o código para inserção na tabela e 
//-- ele ira inserir de acordo com o numero de parcelas configurado

end;

Caso ainda não tenha entendido, explique melhor a sua dificulade!

Estou aqui para ajudar !

Abraços