home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 6 / corel-draw-6-cd1.iso / scripts / datetime.csc < prev    next >
Text File  |  1995-08-18  |  369b  |  14 lines
  1. REM This script displays the current date and time
  2. REM DateTime.csc July 21, 1995
  3.  
  4. DIM Now AS DATE, Day AS DATE, Time AS DATE
  5. Now = CURRDATE
  6.  
  7. REM Day is the integer part of the current Date, Time is the fraction part
  8. Day = INT(Now)
  9. Time = Now - Day
  10.  
  11. MESSAGEBOX "The Date is" + STR(Day) + CHR(13) + CHR(10) + "The Time is" + STR(Time), "Current Time", 64
  12.  
  13.  
  14.