home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / tricks / txdos.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-07  |  1.3 KB  |  47 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    TXDOS.PAS                           *)
  3. (*                  Systemroutinen                        *)
  4. (* ------------------------------------------------------ *)
  5. UNIT txDos;
  6.  
  7. INTERFACE
  8.  
  9. USES Dos, txString;
  10.  
  11.   FUNCTION TimeString : STRING;
  12.   { Der String enthält die aktuelle Systemzeit   }
  13.  
  14.   FUNCTION DateString : STRING;
  15.   { Der String enthält das aktuelle Systemdatum  }
  16.  
  17. IMPLEMENTATION
  18.  
  19.   FUNCTION TimeString : STRING;
  20.   VAR
  21.     a, b, c, d    : WORD;
  22.     Std, Min, Sek : STRING [4];
  23.   BEGIN
  24.     Dos.GetTime(a, b, c, d);
  25.     Str(a, Std);  Std := txString.Right('00' + Std, 2);
  26.     Str(b, Min);  Min := txString.Right('00' + Min, 2);
  27.     Str(c, Sek);  Sek := txString.Right('00' + Sek, 2);
  28.     TimeString := Std + ':' + Min + ':' + Sek;
  29.   END;
  30.  
  31.   FUNCTION DateString : STRING;
  32.   VAR
  33.     a, b, c, d    : WORD;
  34.     Tag, Mon, Jar : STRING [4];
  35.   BEGIN
  36.     Dos.GetDate(a, b, c, d);
  37.     a := a - 1900;
  38.     Str(A, Jar);  Jar := txString.Right('00' + Jar, 2);
  39.     Str(B, Mon);  Mon := txString.Right('00' + Mon, 2);
  40.     Str(C, Tag);  Tag := txString.Right('00' + Tag, 2);
  41.     DateString := Tag + '.' + Mon + '.' + Jar;
  42.   END;
  43.  
  44. END.
  45. (* ------------------------------------------------------ *)
  46. (*                Ende von TXDOS.PAS                      *)
  47.