[Resolvido] MessageBox Dinamico e Salto de data
Tenho um codigo para inserir parcelas, e gostaria que ao dar o post fosse exibido um messagebox com o valor de cada parcela lançada.
O codigo que uso é esse:
procedure TForm1.btn1Click(Sender: TObject);
var
cValor, cResiduo: Double;
i, parcela: Integer;
data : Tdatetime;begin
cValor:= 0;
parcela:= 0;
data := Date;for i:= 1 to StrToInt(edtParcelas.Text) do
begin
if i = StrToInt(edtParcelas.Text) then
begin
cValor:= StrToFloat(FormatFloat('########0.00',(StrToFloat(edttotal.Text) / StrToFloat(edtParcelas.Text))));
cValor:= cValor * StrToFloat(edtParcelas.Text);
cResiduo:= StrToFloat(edttotal.Text) - cValor;
cValor := (StrToFloat(edttotal.Text) / StrToFloat(edtParcelas.Text)) + cResiduo;
end else
cValor:= (StrToFloat(edttotal.Text) / StrToFloat(edtParcelas.Text));
parcela:=parcela + 1;
cValor:= StrToFloat(FormatCurr('########0.00',cValor));
data:= data + 30;
frmdm.tbparcelas.Append;
frmdm.tbparcelasValor.AsCurrency:= cValor;
frmdm.tbparcelasData.AsDateTime:= data;
frmdm.tbparcelasParcela.Value:= IntToStr(parcela) + '/' + edtParcelas.Text ;
frmdm.tbparcelas.Post;
end;
end;Minha ideia é implementar no projeto um dateedit, para o usuario informar o vencimento da primeira parcela. Então também tenho a duvida de como fazer o calculo para os proximos vencimentos.
Discussão (4)
Carregando comentários...