home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTDATE.PRG < prev    next >
Text File  |  1994-04-28  |  611b  |  24 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local dDate := Date()
  8.  
  9.    MsgInfo( "Current Date:" + DToC( dDate ) )
  10.  
  11.    if ! SetDate( 25, 11, 1982 )               // FiveWin SetDate() function
  12.       MsgAlert( "Sorry, I could not change the date" )
  13.    endif
  14.  
  15.    MsgInfo( "Now the date is:" + DToC( Date() ) )
  16.  
  17.    SetDate( Day( dDate ), Month( dDate ), Year( dDate ) )
  18.  
  19.    MsgInfo( "Ok, again back to:" + DToC( Date() ) )
  20.  
  21. return
  22.  
  23. //----------------------------------------------------------------------------//
  24.