home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / SYSDATE2.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  1.1 KB  |  58 lines
  1.  
  2. (*
  3.  * sysdate2 - library to return system date and time,
  4.  *            version2 with different return formats.
  5.  *
  6.  * s.h.smith, 10-sep-86 (rev. 26-nov-87)
  7.  *
  8.  *)
  9.  
  10. function strval (i: integer): string2;
  11. begin
  12.    strval := chr(((i div 10) mod 10) + ord('0')) +
  13.              chr((i mod 10) + ord('0'));
  14. end;
  15.  
  16. function system_dd: string2;
  17. var
  18.    reg:           registers;
  19. begin
  20.    reg.ax := $2a00;
  21.    msdos(reg);
  22.    system_dd := strval(lo(reg.dx));
  23. end;
  24.  
  25. function system_mm: string2;
  26. var
  27.    reg:           registers;
  28. begin
  29.    reg.ax := $2a00;
  30.    msdos(reg);
  31.    system_mm := strval(hi(reg.dx));
  32. end;
  33.  
  34. function system_yy: string2;
  35. var
  36.    reg:           registers;
  37. begin
  38.    reg.ax := $2a00;
  39.    msdos(reg);
  40.    system_yy := strval(reg.cx-1900);
  41. end;
  42.  
  43. function system_date: anystring;   {format: mm-dd-yy}
  44. begin
  45.    system_date := system_mm + '-' + system_dd + '-' + system_yy;
  46. end;
  47.  
  48.  
  49. function system_time: anystring;   {format: hh:mm}
  50. var
  51.    reg:       registers;
  52. begin
  53.    reg.ax := $2c00;
  54.    msdos(reg);
  55.    system_time := strval(hi(reg.cx)) +  ':' + strval(lo(reg.cx));
  56. end;
  57.  
  58.