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;