Jump to content
Fórum Script Brasil
  • 0

Parcelamento nas datas


Guest --brugall --

Question

Guest --brugall --

Galera,

Alguém pode me dar uma ajuda para parcelamento? Eu fiz uma tabela só para parcelas. Eu insero as datas e os valores.

O problema é o seguinte, quando o usuário informa o número de parcelas e o valor total, o sistema não está calculando as outras datas.

Por exemplo, Valor : R$ 100,00 parcelas 10 data de compra 11/12/2007 . dai ele traz nas outras edits 11/01/2008 .. 11/02/2008 e por ai vai..podem me dar uma ajuda nisso?

desde já agradeço

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Colega, como parece que voce ainda não manja muito do delphi, vai ai um exemplo bem simples

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Num_parcelas : integer;
  valor : real;
  valor_parcelas : real;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
   Num_parcelas := 5;
   valor := 150.50;
   valor_parcelas := valor / Num_parcelas;

   for i := 1 to Num_parcelas do
      begin
         case i of
           1: begin
                 edit1.text := format('%n',[valor_parcelas]);
                 edit6.text := datetostr(now);
              end;
           2: begin
                 edit2.text := format('%n',[valor_parcelas]);
                 edit7.text := datetostr(now+30);
              end;
           3: begin
                 edit3.text := format('%n',[valor_parcelas]);
                 edit8.text := datetostr(now+60);
              end;
           4: begin
                 edit4.text := format('%n',[valor_parcelas]);
                 edit9.text := datetostr(now+90);
              end;
           5: begin
                 edit5.text := format('%n',[valor_parcelas]);
                 edit10.text := datetostr(now+120);
              end;

         end;
      end;
end;

end.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...