home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / ArisModules / DateTime / datetime.e < prev    next >
Text File  |  1995-06-24  |  747b  |  41 lines
  1. OPT MODULE
  2.  
  3. MODULE 'dos/datetime','dos/dos'
  4.  
  5. EXPORT OBJECT date_time
  6.     PRIVATE
  7.     day[50]:ARRAY
  8.     date[50]:ARRAY
  9.     time[50]:ARRAY
  10.     ENDOBJECT
  11.  
  12. PROC date_time() OF date_time
  13.     DEF dt:datetime,ds:PTR TO datestamp
  14.     ds:=DateStamp(dt.stamp)
  15.     dt.format:=FORMAT_DOS
  16.     dt.flags:=DTF_FUTURE
  17.     dt.strday:=self.day
  18.     dt.strdate:=self.date
  19.     dt.strtime:=self.time
  20.     DateToStr(dt)
  21.     ENDPROC self.day,self.date,self.time
  22.  
  23. PROC date() OF date_time
  24.     self.date_time()
  25.     ENDPROC self.date
  26.  
  27. PROC day() OF date_time
  28.     self.date_time()
  29.     ENDPROC self.day
  30.  
  31. PROC time() OF date_time
  32.     self.date_time()
  33.     ENDPROC self.time
  34.  
  35. PROC end() OF date_time
  36.     Dispose(self.day)
  37.     Dispose(self.date)
  38.     Dispose(self.time)
  39.     ENDPROC
  40.  
  41.