home *** CD-ROM | disk | FTP | other *** search
/ BBS in C / CPDCOMM#155.img / BBSCLOCK.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-12-24  |  2.4 KB  |  120 lines
  1. /*
  2.     bbsclock.c
  3. */
  4.  
  5. #include <time.h>
  6.  
  7. /* copy time into arg string in form (HH:MM:SS xM) */
  8. gettime(_ttime)
  9. char    *_ttime;
  10.     {
  11.     long tloc ; char tchar ; int hour ;
  12.     struct tm *localtime() , *tadr ;
  13.     tloc = time((long *) 0) ;        /* get time to tloc */
  14.     tadr = localtime (&tloc) ;
  15.     tchar = 'A' ; hour = tadr->tm_hour ;
  16.     if(hour > 12) { hour -= 12 ; tchar = 'P' ; }
  17.     sprintf(_ttime,"%.2d:%.2d:%.2d %cM",hour,tadr->tm_min,
  18.         tadr->tm_sec,tchar) ;
  19.     }    
  20.  
  21. getdate(_mm,_dd,_yy,_month,_day,_year,_date,_week)
  22. char    *_mm,        /* 2 digit */
  23.     *_dd,        /* 2 digit */
  24.     *_yy,        /* 2 digit */
  25.     *_month,    /* long */
  26.     *_day,        /* long */
  27.     *_year,        /* long */
  28.     *_date,        /* long month day, year */
  29.     *_week;        /* day of week */
  30.     {
  31.     long tvar ;
  32.     struct tm *localtime() , *tadr ;
  33.  
  34.     time(&tvar) ;            /* get time to tvar */
  35.     tadr = localtime (&tvar) ;
  36.  
  37.     switch (tadr->tm_wday)
  38.         {
  39.         case 0:
  40.             strcpy(_week,"Sunday ");
  41.             break;
  42.         case 1:
  43.             strcpy(_week,"Monday ");
  44.             break;
  45.         case 2:
  46.             strcpy(_week,"Tuesday ");
  47.             break;
  48.         case 3:
  49.             strcpy(_week,"Wednesday ");
  50.             break;
  51.         case 4:
  52.             strcpy(_week,"Thursday ");
  53.             break;
  54.         case 5:
  55.             strcpy(_week,"Friday ");
  56.             break;
  57.         case 6:
  58.             strcpy(_week,"Saturday ");
  59.             break;
  60.         default:
  61.             strcpy(_week,"Unknown ");
  62.             break;
  63.         }
  64.  
  65.     switch (tadr->tm_mon)
  66.         {
  67.         case 0:
  68.             strcpy(_month,"January ");    
  69.             break;
  70.         case 1:
  71.             strcpy(_month,"February ");    
  72.             break;
  73.         case 2:
  74.             strcpy(_month,"March ");    
  75.             break;
  76.         case 3:
  77.             strcpy(_month,"April ");
  78.             break;
  79.         case 4:
  80.             strcpy(_month,"May ");    
  81.             break;
  82.         case 5:
  83.             strcpy(_month,"June ");
  84.             break;
  85.         case 6:
  86.             strcpy(_month,"July ");    
  87.             break;
  88.         case 7:
  89.             strcpy(_month,"August");
  90.             break;
  91.         case 8:
  92.             strcpy(_month,"September ");
  93.             break;
  94.         case 9:
  95.             strcpy(_month,"October ");
  96.             break;
  97.         case 10:
  98.             strcpy(_month,"November ");
  99.             break;
  100.         case 11:
  101.             strcpy(_month,"December ");
  102.             break;
  103.         default:
  104.             strcpy(_month,"Unknown ");
  105.             break;
  106.         }
  107.  
  108.     sprintf(  _mm,  "%.2d",tadr->tm_mon ) ;
  109.     sprintf(  _dd,  "%.2d",tadr->tm_mday) ;
  110.     sprintf(  _yy,  "%.2d",tadr->tm_year) ;
  111.     sprintf( _day,  "%.2d",tadr->tm_mday) ;
  112.     sprintf(_year,"19%.2d",tadr->tm_year) ;
  113.  
  114.     strcpy(_date,    "");    /* clear date */
  115.     strcat(_date,_month);    /* then concat the month,etc. */
  116.     strcat(_date,  _day);
  117.     strcat(_date,  ", ");
  118.     strcat(_date, _year);
  119.     }
  120.