home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch20 / scripts / year2000.vbs < prev   
Encoding:
Text File  |  1996-05-12  |  102 b   |  4 lines
  1. DaysLeft = #1/1/2000# - Date()
  2. Message = DaysLeft & " days left for the year 2000"
  3. MsgBox(Message)
  4.