home *** CD-ROM | disk | FTP | other *** search
- Newsgroups: comp.os.vms
- Path: sparky!uunet!psinntp!vitro.com!v7.vitro.com!vaxs09
- From: vaxs09@v7.vitro.com
- Subject: Re: Implimenting "TOMORROW +1: 0:0" from an .EXE
- Message-ID: <1993Jan12.130945.1@v7.vitro.com>
- Lines: 20
- Sender: news@vitro.com (USENET News System)
- Organization: Vitro Corporation
- References: <1993Jan11.153438.28624@magnus.acs.ohio-state.edu> <11JAN199319201213@spades.aces.com>
- Date: Tue, 12 Jan 1993 18:09:45 GMT
-
- > 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
- You dropped a factor of 60 and a factor of 100 there. It's actually
- 864 billion clunks/day. The units are also wrong. It's clunks/day,
- not ns/day. If the questioner has trouble converting this figure to
- a quadword, SYS$BINTIM ( '1 ', quadword ) will give the twos complement.
- Other approaches include LIB$EMUL, pencil and paper, a good calculator
- or a language that supports 64 bit arithmetic.
-
- I get a low order longword of 711573504 and a high order longword of 201.
-
- > (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.)
-
- I'm just the fool to rush in. :-)
-
- John Briggs vaxs09@v7.vitro.com
-