home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / source / date.bas < prev    next >
Encoding:
BASIC Source File  |  1997-09-21  |  259 b   |  13 lines
  1. LIBRARY "gemdos"
  2. DEFINT a-z
  3.  
  4. a$=BIN$(tgetdate)
  5. PRINT "HBASIC date:"+DATE$
  6. PRINT "The REAL date is:"
  7.  
  8. day=VAL("&B"+MID$(a$,LEN(a$)-4,5))
  9. month=VAL("&B"+MID$(a$,LEN(a$)-8,4))
  10. l=LEN(a$)-9
  11. year=VAL("&B"+MID$(a$,1,l))
  12. PRINT day;"/";month;"/";1980+year
  13.