home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / lan / spoolit / timeda.inc < prev   
Text File  |  1987-02-15  |  1KB  |  76 lines
  1. Function gettime: ST5;
  2.  
  3. type
  4.    RegPack = record
  5.                AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : integer;
  6.              end;
  7.    BufType = packed array [1..7] of byte;
  8. var
  9.    Regs : Regpack;
  10.    buffer : BufType;
  11.    s: string[3];
  12.    v: string[2];
  13.    x: byte;
  14.    i: integer;
  15. begin
  16.    with Regs do
  17.    begin
  18.       AX := $E700;
  19.       DS:= seg(buffer);
  20.       DX:= ofs(buffer);
  21.       MSDOS (Regs);
  22.       x:=buffer[4];
  23.       str(x:2,s);
  24.       x:=buffer[5];
  25.       s:=s+':';
  26.       str(x,v);
  27.       if length(v) = 1 then
  28.           v:='0'+v;
  29.       if length(v) = 0 then
  30.          v:='00';
  31.       getTime:=s+v;
  32.     End; {with}
  33. End; {GetTime}
  34.  
  35.  
  36.  
  37. Function getdate: ST8;
  38.  
  39. type
  40.    RegPack = record
  41.                AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : integer;
  42.              end;
  43.    BufType = packed array [1..7] of byte;
  44. var
  45.    Regs : Regpack;
  46.    buffer : BufType;
  47.    m: string[2];
  48.    d: string[2];
  49.    y: string[2];
  50.    x: byte;
  51.    i: integer;
  52. begin
  53.    with Regs do
  54.    begin
  55.       AX := $E700;
  56.       DS:= seg(buffer);
  57.       DX:= ofs(buffer);
  58.       MSDOS (Regs);
  59.       x:=buffer[2];
  60.       str(x,m);
  61.       if length(m) = 1 then
  62.          m:='0'+m;
  63.       x:=buffer[3];
  64.       str(x,d);
  65.       if length(d) = 1 then
  66.          d:='0'+d;
  67.       x:=buffer[1];
  68.       str(x,y);
  69.       getDate:=m+'/'+d+'/'+y;
  70.     End; {with}
  71. End; {GetTime}
  72.  
  73.  
  74.  
  75.