home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / dos / datetime.h next >
Encoding:
Text File  |  1994-07-25  |  818 b   |  37 lines
  1. {$if not def DOS_DATETIME_H} CONST DOS_DATETIME_H=0;
  2.  
  3. { ****************************************************************
  4.   ** KickPascal-Include-Datei "dos/datetime.h" zu Kickstart 3.0 **
  5.   **************************************************************** }
  6.  
  7. TYPE p_DateTime = ^DateTime;
  8.  
  9. {$if not def DOS_DOS_H;incl "dos/dos.h";endif}
  10.  
  11. TYPE DateTime = RECORD
  12.  dat_Stamp   : DateStamp;
  13.  dat_Format  : Byte;
  14.  dat_Flags   : Byte;
  15.  dat_StrDay  : Str;
  16.  dat_StrDate : Str;
  17.  dat_StrTime : Str;
  18. END;
  19.  
  20. CONST LEN_DATSTRING = 16;
  21.  
  22.  
  23. CONST
  24.  DTB_SUBST  = 0;
  25.  DTF_SUBST  = 1;
  26.  DTB_FUTURE = 1;
  27.  DTF_FUTURE = 2;
  28.  
  29. CONST
  30.  FORMAT_DOS = 0;             (* dd-mmm-yy *)
  31.  FORMAT_INT = 1;             (* yy-mm-dd  *)
  32.  FORMAT_USA = 2;             (* mm-dd-yy  *)
  33.  FORMAT_CDN = 3;             (* dd-mm-yy  *)
  34.  FORMAT_MAX = FORMAT_CDN;
  35.  
  36. {$endif}
  37.