Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Select Case Age
- Case Is < 1
- Dep = pCost
- cValue = pCost - Dep
- Depreciation = cValue
- Case Is < 2
- Dim cValue1 As Currency
- Depreciation = cValue * 0.25
- cValue1 = cValue - Depreciation
- Depreciation = cValue1
- Case Is < 3
- Dim cValue2 As Currency
- Depreciation = cValue1 * 0.25
- cValue2 = cValue1 - Depreciation
- Depreciation = cValue2
- End Select
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement