home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTTIM2.PRG < prev    next >
Text File  |  1994-06-03  |  617b  |  21 lines
  1. // Using Time-Class Objects
  2. // Time Objects may be used also from MsDos
  3.  
  4. #include "FiveWin.ch"
  5.  
  6. //----------------------------------------------------------------------------//
  7.  
  8. function Main()
  9.  
  10.    local oTime1 := TTime():System()
  11.    local oTime2 := TTime():New( 8, 20 )
  12.  
  13.    MsgInfo( "System time: " + oTime1:cGetTime() + CRLF + ;
  14.             "Test time:   " + oTime2:cGetTime() + CRLF + ;
  15.             "=================="                + CRLF + ;
  16.             "Difference:  " + oTime1:cSub( oTime2 ) )
  17.  
  18. return nil
  19.  
  20. //----------------------------------------------------------------------------//
  21.