home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / hcshdemo.zip / csh-os2.zip / SAMPLES / BUMPDATE.CSH < prev    next >
Text File  |  1993-09-28  |  283b  |  11 lines
  1. #    Calculate the date n number days forward or backward from a given date.
  2. #    Copyright (c) 1991 by Hamilton Laboratories.  All rights reserved.
  3.  
  4. proc bumpdate(bump, month, day, year)
  5.     local d
  6.     @ d = `julian $month $day $year` + bump
  7.     return `caldate $d`
  8. end
  9.  
  10. bumpdate $argv
  11.