All pastes #403671 Raw Edit

Someone

public text v1 · immutable
·published 2007-03-20 15:27 UTC
rendered paste body
    'Calculate Expense Percentages
    lblRentPerc.Caption = Fix(Val(txtRent.Text) / _
    Val(lblTotalExp.Caption) * 100)
    lblPayrollPerc.Caption = Fix(Val(txtPayroll.Text) / _
    Val(lblTotalExp.Caption) * 100)
    lblUtilPerc.Caption = Fix(Val(txtUtil.Text) / _
    Val(lblTotalExp.Caption) * 100)
    lblSuppPerc.Caption = Fix(Val(txtSupp.Text) / _
    Val(lblTotalExp.Caption) * 100)
    lblOtherPerc.Caption = Fix(Val(txtOther.Text) / _
    Val(lblTotalExp.Caption) * 100)