home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol023 / dastrsh.lib < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.5 KB  |  67 lines
  1.  
  2. {    DASTRSHORT
  3.  
  4.     This takes an integer date value and returns a string with
  5.     month and day of week abbreviated.
  6.  
  7.     If WITHDAY is passed as true then the returned string will
  8.     include the day of the week, otherwise only month, day and
  9.     year will be returned.
  10.  
  11.     The following global types must be declared:
  12.         TYPE    string255 = string 255;
  13.             byte = 0..255;
  14.  
  15.     The following additional procedures must be declared:
  16.         PROCEDURE breakdate;
  17.         PROCEDURE setlength; external;
  18. }
  19.  
  20. FUNCTION dastrshort (days : integer; withday : boolean) : string255;
  21.  
  22. CONST    zero = 48;
  23.  
  24. VAR    day, mo, date, yr : byte;
  25.     str, str2 : string255;
  26.  
  27. begin
  28.     brkdate (days,mo,date,yr,day);
  29.     if withday then
  30.         begin
  31.             case day of
  32.                 0 : str := 'Sun';
  33.                 1 : str := 'Mon';
  34.                 2 : str := 'Tues';
  35.                 3 : str := 'Wed';
  36.                 4 : str := 'Thurs';
  37.                 5 : str := 'Fri';
  38.                 6 : str := 'Sat'
  39.                 end;
  40.             append (str,', ')
  41.         end
  42.         else setlength (str,0);
  43.     case mo of
  44.         1 : str2 := 'Jan';
  45.         2 : str2 := 'Feb';
  46.         3 : str2 := 'Mar';
  47.         4 : str2 := 'Apr';
  48.         5 : str2 := 'May';
  49.         6 : str2 := 'June';
  50.         7 : str2 := 'July';
  51.         8 : str2 := 'Aug';
  52.         9 : str2 := 'Sept';
  53.         10 : str2 := 'Oct';
  54.         11 : str2 := 'Nov';
  55.         12 : str2 := 'Dec'
  56.     end;
  57.     append (str,str2);
  58.     append (str,' ');
  59.     if (date > 9) then append (str,chr((date div 10) + zero));
  60.     append (str,chr((date mod 10) + zero));
  61.     append (str,', 19');
  62.     append (str,chr((yr div 10) + zero));
  63.     append (str,chr((yr mod 10) + zero));
  64.     dastrshort := str
  65. end;
  66.  
  67.