home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / binaries / datetime.lha / DateTime.e < prev   
Text File  |  1993-06-13  |  835b  |  41 lines
  1. MODULE 'Arp', 'libraries/ArpBase'
  2.  
  3. ENUM ER_NONE,
  4.      ER_MEM
  5.  
  6. RAISE ER_MEM IF String () = NIL
  7.  
  8. PROC main () HANDLE
  9.   DEF dt : datetime
  10.  
  11.   IF (arpbase := OpenLibrary ('arp.library', 39)) = NIL
  12.     Raise ('Error opening arp.library V39+')
  13.   ENDIF
  14.  
  15.   dt.format := FORMAT_INT
  16.   dt.strday := String (10)
  17.   dt.strdate := String (25)
  18.   dt.strtime := String (10)
  19.   DateStamp (dt.stamp)
  20.  
  21.   IF StamptoStr (dt) = 0
  22.     WriteF ('Day  = \s\n', dt.strday)
  23.     WriteF ('Date = \s\n', dt.strdate)
  24.     WriteF ('Time = \s\n', dt.strtime)
  25.   ELSE
  26.     Raise ('Error converting datestamp.')
  27.   ENDIF
  28.  
  29.   CloseLibrary (arpbase)
  30.   CleanUp (0)
  31.  
  32. EXCEPT
  33.   SELECT exception
  34.     CASE ER_NONE;  NOP
  35.     CASE ER_MEM;   WriteF ('Out of memory.\n')
  36.     DEFAULT;       WriteF ('\s\n', exception)
  37.   ENDSELECT
  38.   IF arpbase THEN CloseLibrary (arpbase)
  39.   CleanUp (5)
  40. ENDPROC
  41.