home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / HAM_W32.ZIP / SAMPLES / BUMPDATE.CSH < prev    next >
Encoding:
Text File  |  1994-05-12  |  283 b   |  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.