home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 1 / FishNMoreVol1.bin / more / code_examples / librar / jule2dat.c < prev    next >
Text File  |  1989-02-08  |  1KB  |  48 lines
  1. /*--------------------------------------*/
  2. /*                    */
  3. /*            JULE2DATE(X,X,X)          */
  4. /*                    */
  5. /* Fills the second argument with a date*/
  6. /* when given the julian day in the     */
  7. /* first argument. The third argument   */
  8. /* is the year.                */
  9. /*                    */
  10. /*--------------------------------------*/
  11. void jule2date(a,b,year)
  12. int a,year;
  13. char b[8];
  14. {
  15.         int j,month,day,MN[12];
  16.         MN[0]=31;
  17.         MN[1]=28;
  18.         MN[2]=31;
  19.         MN[3]=30;
  20.         MN[4]=31;
  21.         MN[5]=30;
  22.         MN[6]=31;
  23.         MN[7]=31;
  24.         MN[8]=30;
  25.         MN[9]=31;
  26.         MN[10]=30;
  27.         MN[11]=31;
  28.         if (!efactor(year,4))
  29.             ++MN[1];
  30.         month=day=0;
  31.         for (j=0;j<12;j++){
  32.              if (a<=MN[j]){
  33.                  month=j+1;
  34.                  day=a;
  35.                  j=12;
  36.              }
  37.              else
  38.                  a-=MN[j];
  39.         }
  40.         b[6]=(year/10)+48;
  41.         b[7]=year-(10*(b[6]-48))+48;
  42.         b[0]=(month/10)+48;
  43.         b[1]=month-(10*(b[0]-48))+48;
  44.         b[3]=(day/10)+48;
  45.         b[4]=day-((b[3]-48)*10)+48;
  46.     b[2]=b[5]=47;
  47. }
  48.