home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Dos / date.e next >
Encoding:
Text File  |  1994-11-27  |  630 b   |  29 lines
  1. /* exemple d'utilisation des fonctions DateStamp() et DateToStr() */
  2.  
  3. MODULE 'dos/datetime', 'dos/dos'
  4.  
  5. DEF dt:datetime,ds:PTR TO datestamp
  6.  
  7. /* Ils vont être remplis par DateToStr() */
  8. DEF day[50]:ARRAY,date[50]:ARRAY,time[50]:ARRAY
  9.  
  10. PROC main()
  11.  
  12.   /* reçoit le "stamp" de la structure datetime */
  13.   ds:=DateStamp(dt.stamp)
  14.  
  15.   WriteF('jours=\d, minutes=\d, ticks=\d\n',ds.days,ds.minute,ds.tick)
  16.  
  17.   /* remplit la structure datetime */
  18.   dt.format:=FORMAT_DOS
  19.   dt.flags:=DTF_SUBST
  20.   dt.strday:=day
  21.   dt.strdate:=date
  22.   dt.strtime:=time
  23.  
  24.   IF DateToStr(dt)
  25.     WriteF('jour=\s, date=\s, heure=\s\n',day,date,time)
  26.   ENDIF
  27.  
  28. ENDPROC
  29.