代码大全

begin

for i := 1 to 100 do begin

InputRec.revenue[1]:= 0;

InputRec.expense[i]:=CorpExpensse[CrntQtr,i]

end;

UpdateCorpDatabase(EmpRec);

EstimRevenue:=YTDRevenue * 4.0 /real(CrntQtr)

NewColor:=PrevColor;

status:=Success;

if ExpenseType 1 then begin

for i:= 1 to 12 do

Profit[i]:= Revenue[i]-Expense.Type[i]

end

else If ExpneseType= 2 then begin

Peofit[i]:=Revenue[i] - Expense.Type2[i]

end

else if ExpenseType= 3 then

begin

Profit[i]:=Revenue[i] - Expense.Type3[i]

end

end

10

HandleStuff
19

ExpenseType=2 ExpenseType=3

InputRec
InputRec
CorpExpense Profit

CrntQtr 0
YTDRevenue*4.0 real(CrntQtr)
100, 4.0, 12, 2 3 magic 11.1