Autogera datas de vencimentos de N parcelas

Question

Cordiais sauda��es colegas,Tenho que gerar um formulario c/ vencimentos de N parcelas de um curso semestral sendo que ele ter� que fazer o calculo de todo dia 16 de cada mes..., sendo que ao vencer a ...

Luizfernando777 · Answer

Caro colega:Explique melhor o que vc precisa,mas � o seguinte,independente de se tratar de 28, 30 ou 31 dias que tenha o m�s,sempre ser� contado como 30 diastipo assim hoje � 16/04/2004 o pr�ximo vencimento ser� 30 diasent�o ser� no dia 16/05/2004, agora supondo-se que o m�s tenha 31 diaso vencimento ser� ent�o no dia 15/06/2004 e assim por diante.Vencimento := (Data + 30)espero que tenha lhe ajudado...

Aroldo Zanela · Answer

Colega,A fun��o �pronta� que deveria se aproximar do que voc� necessita seria a [b:246ff5bd44]IncMonth[/b:246ff5bd44] n�o fosse um pequeno [b:246ff5bd44]bug[/b:246ff5bd44] existente na mesma. Veja o exemplo:[code:1:246ff5bd44]procedure TForm1.Button1Click(Sender: TObject);var nI, nX: Byte;    dData: TDate;begin  Memo1.Clear;  dData := DateTimePicker1.Date;  For nI := 0 to 12 do  begin    dData := IncMonth(dData); // Adicione DateUtils na lista de uses    Memo1.Lines.Add(DateToStr(dData));  end;end;[/code:1:246ff5bd44]Para testar, basta adicionar os seguintes componentes: DateTimePicker, Memo e Button (um de cada). Note que as datas no final de Janeiro ou nos finais de meses com 31 dias sofrem um ajuste indevido. Se isto for uma condi��o extremamente importante, recomendo escrever uma com base nas fun��es: DecodeDate/EncodeDate....

Salomao · Answer

Bom!Primeiramente voc� poderia utilizar um valor para o n�mero de parcelas e outro p/ a quant. de dias, ap�s definir os valores voc� utilizaria um loop de repeti��o.ex.:var parcela, nparc : integer;      dataatual : tdatetime;begin     parcela:=1;     nparc:=tspinedit.value; //spin com valor 2 por exemplo.     dataatual:=date;    if nparc = 1 then     begin      dataatual:=date+30; // trinta dias para o vencimento     end    else    begin        while parcela <= nparc do begin         nparcela:=parcela;//campo nparcela = parcela.         vencimento:=dataatual+30;                 dataatual:=dataatual+30;         inc(parcela);        end;    end; end;  precisar�amos de mais detalhes dos campos do banco de dados:voc� poderia utilizar campo char para armazenar o numero da parcela como por exemplo parcela 02/02.espeto ter ajudado...

Jonasaf · Answer

vou fazer a an�lise como o usuario e irei enviar como vou montar meu formulario.... Fico grato a todos que ajudaram...

Bom! Primeiramente voc� poderia utilizar um valor para o n�mero de parcelas e outro p/ a quant. de dias, ap�s definir os valores voc� utilizaria um loop de repeti��o. ex.: var parcela, nparc : integer; dataatual : tdatetime; begin parcela:=1; nparc:=tspinedit.value; //spin com valor 2 por exemplo. dataatual:=date; if nparc = 1 then begin dataatual:=date+30; // trinta dias para o vencimento end else begin while parcela <= nparc do begin nparcela:=parcela;//campo nparcela = parcela. vencimento:=dataatual+30; dataatual:=dataatual+30; inc(parcela); end; end; end; precisar�amos de mais detalhes dos campos do banco de dados: voc� poderia utilizar campo char para armazenar o numero da parcela como por exemplo parcela 02/02. espeto ter ajudado

Ronylee · Answer

Caro Jonas se entendi bem o seu problema eu resolvi da seguinte forma:
No meu caso, sempre pe�o o vencimento da primeira parcela e a partir da� � que gero as demais, e�t�o peguei a data do primeiro vencimento (que o usu�rio me fornece) e fa�o um loop da quantidade de parcelas e vou incrementando um m�s a cada nova data (IncMonth).

Dt_Vencimento.Value := IncMonth(Dt_Vencimento.Value,1);

Espero ter ajudado.

Rony Lee.

Adilsond · Answer

Acho que a fun��o do Aroldo, com uma pequena modifica��o, seria a melhor forma. Veja abaixo:

Fun��o:

procedure TForm1.Button1Click(Sender: TObject);
var
  nI: Byte;
  dData: TDate;
begin
  Memo1.Clear;
  for nI := 1 to 12 do
  begin
    dData := IncMonth(DateTimePicker1.Date,nI);
    Memo1.Lines.Add(DateToStr(dData));
  end;
end;

Resultado com data 31/01/2004:

[list:939f41c139]29/02/2004
31/03/2004
30/04/2004
31/05/2004
30/06/2004
31/07/2004
31/08/2004
30/09/2004
31/10/2004
30/11/2004
31/12/2004
31/01/2005
[/list:u:939f41c139]

Paullsoftware · Answer

[quote:5bf8ede7c4=�AdilsonD�]Acho que a fun��o do Aroldo, com uma pequena modifica��o, seria a melhor forma. Veja abaixo:Fun��o:[code:1:5bf8ede7c4]procedure TForm1.Button1Click(Sender: TObject);var  nI: Byte;  dData: TDate;begin  Memo1.Clear;  for nI := 1 to 12 do  begin    dData := IncMonth(DateTimePicker1.Date,nI);    Memo1.Lines.Add(DateToStr(dData));  end;end;[/code:1:5bf8ede7c4]Resultado com data 31/01/2004: [list:5bf8ede7c4]29/02/200431/03/200430/04/200431/05/200430/06/200431/07/200431/08/200430/09/200431/10/200430/11/200431/12/200431/01/2005[/list:u:5bf8ede7c4][/quote:5bf8ede7c4][b:5bf8ede7c4]SER� QUE N�O SERIA MELHOR ASSIM:var DATAALTUAL:TDATETIME;  I: INTEGER;   DIADOCADASTRO, NOVADATA:STRING;BEGIN DATAATUAL:=DATE;  DIADOCADASTRO:=FORMATDATETIME(�DD�,STRDODATE(EDITDIADOCADASTRO.TEXT));   FOR  I := 1 TO STRTOINT( EDITNPARCELAS.TEXT) DO BEGIN      IncMonth(DATAATUAL,I);      NOVADATA:=DIADOCADASTRO+�/�+FORMATDATETIME(�MM/YYYY�,DATAATUAL);       // ESSA � A LINHA ORIGINAL -->        MEMO1.LINES.ADD(NOVADATA);TBVENCIMENTO_DATADOVENCIMENTO.ASDATE(NOVADATA) //ESSA LINHA EU ALTEREI   END;  END;[/b:5bf8ede7c4]...

Robinhocne · Answer

Me ajude a montar os dados que n�o estou sabendo.

Dados do Banco de Dados:

CODIGO > do Aluno buscado na tabela alunos
STATUS > se � entrada ou saida
PROMISSORIA > qt de parcelas
VENCIMENTO > venc das parcelas
VALOR > val das parcelas
EMISSAO > dia da emiss�o

F�rum Autogera datas de vencimentos de N parcelas #226325