home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPPROC19.ZIP / DATETIME.INC < prev    next >
Encoding:
Text File  |  1985-02-05  |  1.2 KB  |  44 lines
  1. (*--------------------------------------------------------------------------*)
  2. (*                             DATETIME.INC                                 *)
  3. (*         include file to access            by Michael A. Covington        *)
  4. (*--------------------------------------------------------------------------*)
  5. type
  6.     datetimetype = string[8];
  7.     regtype      = record
  8.                      ax,bx,cx,dx,bp,si,di,ds,es,flags:integer
  9.                    end;
  10.  
  11. function date: datetimetype; (*returns the current date in form '08/31/84'.*)
  12. var
  13.    reg      : regtype;
  14.    y,m,d,w  : datetimetype;
  15.    i        : integer;
  16.  
  17. begin
  18.      reg.ax:=$2A00;
  19.      intr($21,reg);
  20.      str(reg.cx:4,y);
  21.      delete(y,1,2);
  22.      str(hi(reg.dx):2,m);
  23.      str(lo(reg.dx):2,d);
  24.      w:=m+'/'+d+'/'+y;
  25.      for i:= 1 to length(w) do if w[i]=' ' then w[i]:='0';
  26.      date:=w
  27. end;
  28.  
  29. function time:datetimetype; (*returns current time in form '08:13:59'.*)
  30. var
  31.    reg     : regtype;
  32.    h,m,s,w : datetimetype;
  33.    i       : integer;
  34.  
  35. begin
  36.      reg.ax:=$2C00;
  37.      intr($21,reg);
  38.      str(hi(reg.cx):2,h);
  39.      str(lo(reg.cx):2,m);
  40.      str(hi(reg.dx):2,s);
  41.      w:=h+':'+m+':'+s;
  42.      for i:=1 to length(w) do if w[i]=' ' then w[i] := '0';
  43.      time:=w
  44. end;