Carn� - como fazer???

Question

Salve, Salve Delphianos.Estou querendo fazer uma rotina que crie carn�. Cadastro o cliente, coloco a data de pagamento o valor das presta��es e as quantidade de parcelas ae o programa automaticamento ...

Paullsoftware · Answer

aqui eu gero os vencimentos, tente adaptar de acordo com sua necessidade...

procedure TForm1.Button1Click(Sender: TObject);
var
DataAtual:TDateTime;
Loop:integer;
NovaData:String;
begin
  Memo1.Lines.Clear;
  ListBox1.Clear;
  DataAtual:=StrToDate(MaskEdit1.Text);
  For loop := 0 to StrToInt(Edit1.text) do begin
  NovaData := FormatDateTime(�dd/MM/YYYY�,IncMonth(DataAtual,Loop));
  Memo1.Lines.Add(NovaData);
  ListBox1.Items.Add(NovaData);
  End
end;

1 - TButton
1 - TMemo
1 - TListBox
1 - TMaskEdit e 1 Tedit

espero ter ajudado! :wink: