home *** CD-ROM | disk | FTP | other *** search
- Newsgroups: comp.os.vms
- Path: sparky!uunet!mcsun!sun4nl!estwmz.wm.estec.esa.nl!estwm0.wm.estec.esa.nl!hevans
- From: hevans@estwm0.wm.estec.esa.nl (Hugh D.R. Evans (ESA/ESTEC/WMA Netherlands))
- Subject: Re: Implimenting "TOMORROW +1: 0:0" from an .EXE
- Message-ID: <C0qx8B.EL0@wm.estec.esa.nl>
- Sender: news@wm.estec.esa.nl
- Reply-To: hevans@estcs1.dnet.estec.esa.nl
- Organization: European Space Research and Technology Centre
- References: <1993Jan11.153438.28624@magnus.acs.ohio-state.edu> <11JAN199319201213@spades.aces.com>
- Date: Tue, 12 Jan 1993 14:50:35 GMT
- Lines: 36
-
- In article <11JAN199319201213@spades.aces.com>, gavron@spades.aces.com
- (Ehud Gavron 602-570-2000 x. 2546) writes:
- |>
- |> 1. Call SYS$GETTIM to get current time in ticks (10ns units)
- |> 2. Add 144,000,000 to this number
- |> 24 hrs x 60 min x 60 sec x 100000 ns 144,000,000 ns/day
- |> ----- ----- ---- =
- |> hr min sec
- |> 3. Use SYS$ASCTIM to get this in ascii format in the form
- |> DD-MMM-YYYY HH:MM:SS.hh
- |>
- |> 4. Insert in the 13th position of the string "01:00:00.00"
- |> 5. Call SYS$BINTIM
- |>
- |> (I may be off on the number in #2 but it looks right. I'm
- |> sure someone will rush to correct me if it isn't.)
- |>
-
- To start with, VAX times are kept in 100 nanosecond units ,
- cf System Service Reference Manual, $GETTIM description.
-
- And you left off a factor of 60, so (if I am right, and as you said
-
- someone will correct me if I am not :-) ) the number should be:
-
- 24 x 60 x 60 x 10 000 000 = 8.64e+11 VAX time units per day
-
-
- --
- Hugh Evans - hevans@estwm8.dnet.estec.esa.nl
-
- "Alcohol is very important for young people because it provides a sort of
- 'liquid adulthood.' If you are young and you drink a great deal it will
- spoil your health, slow your mind, make you fat - in other words, turn you
- into an adult."
- P.J. O'Rourke - Modern Manners, Etiquette for Rude People
-