home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / XREFPAS4.ZIP / DATETIME.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-24  |  1.8 KB  |  55 lines
  1. (***********************************************************************
  2.  
  3.                        DATE AND TIME SUBROUTINES
  4.                        Author: Glen F. Marshall
  5.  
  6. These functions return system date (SysDate), system time (SysTime),
  7. day-of-week (SysDay), and name-of-month (SysMonth).
  8.  
  9. ***********************************************************************)
  10.  
  11. type
  12.   DateTimeResult = string[8];
  13.   DateNameResult = string[9];
  14.  
  15. function SysDate: DateTimeResult;
  16.   begin
  17.     inline($B4/$2A/$CD/$21/$8B/$C1/$BB/$30/$30/$B9/$0A/$64/$F6/$F5/$8A/
  18.            $C4/$32/$E4/$F6/$F1/$0B/$C3/$89/$86/$0B/$00/$C6/$86/$0A/$00/
  19.            $2F/$8A/$C2/$32/$E4/$F6/$F1/$0B/$C3/$89/$86/$08/$00/$C6/$86/
  20.            $07/$00/$2F/$8A/$C6/$32/$E4/$F6/$F1/$0B/$C3/$89/$86/$05/$00/
  21.            $C6/$46/$04/$08);
  22.   end {SysDate};
  23.  
  24. function SysTime: DateTimeResult;
  25.   begin
  26.     inline($B4/$2C/$CD/$21/$8A/$C5/$BB/$30/$30/$B5/$0A/$32/$E4/$F6/$F5/
  27.            $0B/$C3/$89/$86/$05/$00/$C6/$86/$07/$00/$3A/$8A/$C1/$32/$E4/
  28.            $F6/$F5/$0B/$C3/$89/$86/$08/$00/$C6/$86/$0A/$00/$3A/$8A/$C6/
  29.            $32/$E4/$F6/$F5/$0B/$C3/$89/$86/$0B/$00/$C6/$46/$04/$08);
  30.   end {SysTime};
  31.  
  32. function SysDay: DateNameResult;
  33.   const
  34.     Day: array[0..6] of DateNameResult
  35.          = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday',
  36.             'Saturday');
  37.   var
  38.     i: byte;
  39.   begin
  40.     inline($B4/$2A/$CD/$21/$88/$86/i);
  41.     SysDay := Day[i];
  42.   end {SysDay};
  43.  
  44. function SysMonth: DateNameResult;
  45.   const
  46.     Month: array[1..12] of DateNameResult
  47.            = ('January','February','March','April','May','June','July',
  48.               'August','September','October','November','December');
  49.   var
  50.     i: byte;
  51.   begin
  52.     inline($B4/$2A/$CD/$21/$88/$B6/i);
  53.     SysMonth := Month[i];
  54.   end {SysMonth};
  55.