home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / bas / hanlin3 / basupd20 / now.bas < prev    next >
BASIC Source File  |  1992-06-18  |  1KB  |  25 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |           BasUpd  Copyright (c) 1992  Thomas G. Hanlin III           |
  4. '   |                                                                      |
  5. '   |            See BASUPD.DOC for info on distribution policy            |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8.  
  9.    DECLARE FUNCTION DateSerial# (YearNr%, MonthNr%, DayNr%)
  10.    DECLARE FUNCTION TimeSerial# (HourNr%, MinuteNr%, SecondNr%)
  11.  
  12.    DEFINT A-Z
  13.  
  14. FUNCTION Now#
  15.    d$ = DATE$
  16.    t$ = TIME$
  17.    y = CINT(VAL(RIGHT$(d$, 4)))
  18.    m = CINT(VAL(LEFT$(d$, 2)))
  19.    d = CINT(VAL(MID$(d$, 3, 2)))
  20.    hr = CINT(VAL(LEFT$(t$, 2)))
  21.    mi = CINT(VAL(MID$(t$, 3, 2)))
  22.    se = CINT(VAL(MID$(t$, 7, 2)))
  23.    Now# = DateSerial#(y, m, d) + TimeSerial#(hr, mi, se)
  24. END FUNCTION
  25.