home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 21618 < prev    next >
Encoding:
Internet Message Format  |  1993-01-21  |  2.8 KB
  1. Path: sparky!uunet!gatech!news.ans.net!cmcl2!rlgsc.com!gezelter
  2. From: gezelter@rlgsc.com
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Anybody have time arithmetic routines?
  5. Message-ID: <1993Jan21.094623.335@rlgsc.com>
  6. Date: 21 Jan 93 09:46:22 EST
  7. References: <1993Jan21.020035.18787@slcs.slb.com>
  8. Organization: Robert Gezelter Software Consultant, Flushing, NY
  9. Lines: 55
  10.  
  11. In article <1993Jan21.020035.18787@slcs.slb.com>, brydon@asl.slb.com (Harvey Brydon (918)250-4312) writes:
  12. > I have to do some reporting on some timing tests and have a need to calculate
  13. > elapsed times for a number of values.  Is there a way to calculate this in a
  14. > simple fashion (DCL preferred, Fortran otherwise)?  I'll be parsing the
  15. > timestamps from an RMS file with DCL.  Before I get a league of answers about
  16. > calculating delta time from 'now', let me make it clear I need to calculate
  17. > this from two arbitrary timestamps.  eg:
  18. > 
  19. > $ t1 = "20-JAN-1993 08:07:09.03"
  20. > $ t2 = "20-JAN-1993 10:22:13.44"
  21. > $! (magic dcl here)
  22. > $ show sym diff  ==> "0 02:15:04.41"
  23. > 
  24. > (if my time math is correct).  I would also like to be able to add some of
  25. > these delta times to totals:
  26. > 
  27. > $ dt1 = "0 00:00:10"
  28. > $ dt2 = "0 00:01:15"
  29. > $ (more magic...)
  30. > $ show sym sum_dt   ==> "0 00:01:25"
  31. > 
  32. > Anybody have any tricks for this or is it just a matter of brute force
  33. > parsing, adding and carrying?
  34. > _______________________________________________________________
  35. > Harvey Brydon         | Internet:   brydon@dsn.SINet.slb.com
  36. > Dowell Schlumberger   | P.O.T.S.:   (918)250-4312
  37. >    Pity the meek, for they shall inherit the earth.
  38. -- 
  39. Harvey,
  40.  
  41. In DCL it might be a bit of a pain (I don't recall a facility 
  42. for subtracting Quadwords).
  43.  
  44. In FORTRAN, it is simple. Simply do the following:
  45.  
  46.       Convert start date to internal format using LIB$CONVERT_DATE_STRING
  47.       Convert end date to internal format using LIB$CONVERT_DATE_STRING
  48.       Use LIB$SUB_TIMES to determine the difference
  49.       Convert difference to ASCII string using LIB$FORMAT_DATE_TIME
  50.         (alternatively, this step can use the $FAO system service)
  51.  
  52. The above is fairly simple. 
  53.  
  54. I hope that the above is helpful. If I have been unclear, or if 
  55. I can be of further assistance, please feel free to contact me 
  56. via Email or phone.
  57.  
  58. - Bob
  59. +--------------------------------------------------------------------------+
  60. | Robert "Bob" Gezelter                       E-Mail:  gezelter@rlgsc.com  |
  61. | Robert Gezelter Software Consultant         Voice:   +1 718 463 1079     |
  62. | 35-20 167th Street, Suite 215               Fax:       (on Request)      |
  63. | Flushing, New York  11358-1731                                           |
  64. | United States of America                                                 |
  65. +--------------------------------------------------------------------------+
  66.