home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19665 < prev    next >
Encoding:
Internet Message Format  |  1992-12-22  |  2.3 KB
  1. Path: sparky!uunet!sunquest!spades.aces.com!gavron
  2. From: gavron@spades.aces.com (Ehud Gavron 602-570-2000 x. 2546)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Time functions in VMS comparing and returning the difference
  5. Message-ID: <21DEC199210561926@spades.aces.com>
  6. Date: 21 Dec 92 17:56:00 GMT
  7. References: <921221000127.20407c7f@WSC.COLORADO.EDU>
  8. Sender: news@sunquest.UUCP
  9. Reply-To: gavron@ACES.COM
  10. Organization: ACES Consulting Inc.
  11. Lines: 49
  12. News-Software: VAX/VMS VNEWS 1.4-b1
  13.  
  14. In article <921221000127.20407c7f@WSC.COLORADO.EDU>, STU011649835@WSC.COLORADO.EDU : The Macintosh Lab Manager : VIE Systems Operator : WSCMRT SysOp : Mountain Rescue) (Chris Kenned writes...
  15. #Hello to all-
  16. # 
  17. #    i am writing a program (DCL) that upon execution writes time/day
  18. #to a file. This works. Next I am trying to write another program which
  19. #reads the file and takes the first time entry and compares( finds difference)
  20. #with the next one. This is repeated until the end of the file.
  21. #I.E. time card program. The output (total time comparison) is placed
  22. #to file2 to be typed/printed out (either in a 10 base or 60 base).
  23. #    My problem is figuring out how to compare 2 time values and find the
  24. #difference. I do not have access to the manuals ( if I did I would not know
  25. #where to start). The online help dosen't provide much help. If you
  26. #(anyone) have any sample programs, or anything else that might be of help,
  27. #PLEASE send..... Fortran, Pascal, Basic, C and DCl are all ok, but prefer
  28. #DCL programs. Thank you all.
  29. #    Send any replies to stu011649835@wsc.colorado.edu , or
  30. #org_mrt@wsc.colorado.edu  . I am not subscribed to INFO-VAX.
  31.  
  32.     HELP RTL LIB$ LIB$SUB_TIMES
  33.  
  34.          The Subtract Two Quadword Times routine subtracts two VMS
  35.          internal-time-format times.
  36.  
  37.     HELP SYS $BINTIM
  38.      Converts an ASCII string to an absolute or delta time value in
  39.          the system 64-bit time format...
  40.  
  41.     Algorithm:
  42.     1. $BINTIM first time
  43.     2. $BINTIM second time
  44.     3. LIB$SUB_TIMES #1 from #2
  45.     4. If result is LIB$_NORMAL then time 1 is before time 2
  46.     5. If result is LIB$_NEGTIM then time 1 is AFTER time 2
  47.  
  48. #BTW : Merry Christmas, and have a happy new year...........
  49.  
  50.     And happy {Ch|H}an[n]uka[h]!
  51.  
  52. #Chris Kennedy  
  53. #STU011649835@wsc.colorado.edu
  54. #ORG_MRT@wsc.colorado.edu
  55. #Voice : (303) 641-5534
  56.  
  57.     Ehud
  58.  
  59. --
  60. Ehud Gavron        (EG76)     
  61. gavron@vesta.sunquest.com
  62. All of life is a blur of Republicans and meat!
  63.