Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 35
Program
Straight-line depreciation

---

data _null_;
   original = 279;
   put 'Year' +2 'Depreciation' +2 'Accumulated' +7 'Value' / ;
   do year = 1 to 3;
      dep = depsl(year, original, 3);
      acc = daccsl(year, original, 3);
      book = round(original - acc, .01);
      put year f4. +4 dep comma10.2 +3 acc comma10.2 +2 book comma10.2;
      end;
run;