valor adiant;
valor m;
valor resultado;
valor in;

adiant = valeve(12)+ valeve(800) + valeve(801) + valeve(802);
in = valeve (804) + valeve(825);
m = evtaxa(0) / 100;
resultado = (adiant - in) * m;

vcalc = resultado;
vinf = valvar(0);