Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 35
Program
Depreciation table

---

data _null_;
   original = 38017;
   put 'Year' +2 'Depreciation' +2 'Accumulated' +7 'Value' / ;
   do year = 2003 to 2010;
      n = year - 2002;
      dep = deptab(n, original, .1429, .2449, .1749, .1249, .0893, .0892, .0893, .0446);
      acc = dacctab(n, original, .1429, .2449, .1749, .1249, .0893, .0892, .0893, .0446);
      book = round(original - acc, .01);
      put year f4. +4 dep comma10.2 +3 acc comma10.2 +2 book comma10.2;
      end;
run;