home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / bbs / waffle / 4305 < prev    next >
Encoding:
Text File  |  1992-11-18  |  2.9 KB  |  70 lines
  1. Path: sparky!uunet!pipex!ibmpcug!exnet2!flatlin!wolferts.ka.sub.org!dkw
  2. From: dkw@wolferts.ka.sub.org (Dr. Klaus Wolferts)
  3. Newsgroups: comp.bbs.waffle
  4. Subject: Re: STATUS File
  5. Message-ID: <XaceuB1w164w@wolferts.ka.sub.org>
  6. Date: Tue, 17 Nov 92 19:38:32 MEZ
  7. References: <gTXcuB7w165w@proteus.qc.ca>
  8. Distribution: world
  9. Organization: Ing'Buro f. EDV + Elektronik, D-7500 Karlsruhe 31
  10. Lines: 58
  11.  
  12. randall@proteus.qc.ca (Randall Reid) writes:
  13.   
  14. > ... I need to write a 4DOS batch file that will calculate the number
  15. > of seconds since Jan 1st 1970 
  16. > 
  17. > So far I figured out (by trial and error):
  18. > 
  19. > seconds =  %@eval[%@DATE[%_date]*24*60*60  (seconds between 1980 and today)
  20. >            + %@time[%_time]                (seconds since midnight)
  21. >            + 315576000                     (seconds between 1970-1980)
  22.  
  23. There were     315532800 seconds from 1/1/70 to 1/1/80 (see below)
  24.  
  25. >            - 25200]                        (seconds in 7 hours)
  26. > 
  27. > I used 365.25 * 10 * 24 * 60 *60  to compute the seconds from 1970-1980.
  28. > I'm not sure if this is entirely accurate considering leap years.
  29.  
  30. More accurate (for your calculation) is (365 * 10 + 2) * 24 * 60 * 60 
  31. for the 10 years, where the + 2 result from the two leap years '72 +'76. 
  32. Your calculation would result in 3652.5 (!) days from 1/1/70 to 1/1/80! 
  33. (Take the half day remaining for a super long sylvester party ;-)
  34.  
  35. > The subtraction of 7 hours from the formula seems to yield the correct result
  36. > although I don't understand the significance of this number.  I arrived at
  37. > it purely by emperical means.
  38. >
  39. > So, can someone tell me if and where I'm going wrong in this formula.  I
  40. > can't help but think that the calculations for leap years must be more
  41. > complex.. perhaps requiring some modulo arithmetic.  And I don't understand
  42. > why subtracting 7 hours seems to work.
  43.  
  44. I don't know how exact the built in date and time calculations are, 
  45. but taking the year with 365.25 days for day or date calculations will  
  46. result in such errors you experienced.
  47.  
  48. Thus the 7 hour subtraction yields the expected result for the months 
  49. 3 to 12/92 only. You will get that correction values changing by 
  50. +/- 6 hours = 0.25 days for every year, because calendar years last 
  51. 365 or 366 days on leap years. 
  52.  
  53. You are quite right using modulo arithmetic for that purpose. 
  54.  
  55. For a little similiar problem (find the day of week (sun..sat = 0..6) 
  56. out of day (1..31), month (1..12) and year (1..1999)), try do use 
  57. the following (TPascal) formula: 
  58.  
  59.    WeekDay:= (Year + Year Div 4 - Ord ((Month<=2) And (Year Mod 4 = 0))
  60.                + Ord (Copy ('033614625035',Month,1)) + Day + 6) Mod 7;
  61. Klaus
  62.  
  63.  
  64.  ____    __  __  __    __   __
  65. |    \  |  |/ / |  | /|  | / / Dr.-Ing. Klaus Wolferts: dkw@wolferts.ka.sub.org
  66.  
  67. |  |  | |  | /  |  |/ |  |/ / Ing'Buro f. EDV + Elektronik  
  68. | d|  | | k| \  | w| /|  | / Mitteltorstr. 45,            Phone: +49 721 706016
  69. |____/  |__|\_\ |__|/ |__|/ D-7500 Karlsruhe 31, Germany,  49°03'02"N 8°22'58"E
  70.