home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_C / SNPD9404.ZIP / SCALDATE.C < prev    next >
C/C++ Source or Header  |  1994-04-03  |  332b  |  18 lines
  1. .I 5 2
  2. #include "scaldate.h"
  3.  
  4. .I 31 1
  5. void scalar_to_ymd (long scalar, unsigned *yr, unsigned *mo, unsigned *day)
  6. .D 32 1
  7. .I 37 1
  8.    *yr = n;
  9. .D 38 1
  10. .I 41 1
  11.       if ( isleap(*yr) )
  12. .D 42 1
  13. .I 44 3
  14.    *mo = (n * 100 + 3007) / 3057;    /* inverse of months_to_days() */
  15.    *day = n - months_to_days(*mo);
  16. }
  17. .D 45 3
  18.