Racket 6.6 on Windows 7.
find-seconds is getting the time zone wrong when local-time? is #t.
Somehow it is in daylight saving all through November.
When local-time? is #f (UTC) the time zone and hour offset are
correct. [At least for "fall back", didn't check "spring ahead"]
(for* [(m '(11 12))
(d (in-range 1 31))
#:unless [and (= m 12)(> d 5)]
]
(println (seconds->date (find-seconds 0 0 0 d m 2016 #t))))
=>
(date* 0 0 0 1 11 2016 2 305 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 2 11 2016 3 306 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 3 11 2016 4 307 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 4 11 2016 5 308 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 5 11 2016 6 309 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 6 11 2016 0 310 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 7 11 2016 1 311 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 8 11 2016 2 312 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 9 11 2016 3 313 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 10 11 2016 4 314 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 11 11 2016 5 315 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 12 11 2016 6 316 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 13 11 2016 0 317 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 14 11 2016 1 318 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 15 11 2016 2 319 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 16 11 2016 3 320 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 17 11 2016 4 321 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 18 11 2016 5 322 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 19 11 2016 6 323 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 20 11 2016 0 324 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 21 11 2016 1 325 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 22 11 2016 2 326 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 23 11 2016 3 327 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 24 11 2016 4 328 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 25 11 2016 5 329 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 26 11 2016 6 330 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 27 11 2016 0 331 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 28 11 2016 1 332 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 29 11 2016 2 333 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 30 11 2016 3 334 #t -14400 0 "Eastern Daylight Time")
(date* 0 0 0 1 12 2016 4 335 #f -18000 0 "Eastern Standard Time")
(date* 0 0 0 2 12 2016 5 336 #f -18000 0 "Eastern Standard Time")
(date* 0 0 0 3 12 2016 6 337 #f -18000 0 "Eastern Standard Time")
(date* 0 0 0 4 12 2016 0 338 #f -18000 0 "Eastern Standard Time")
(date* 0 0 0 5 12 2016 1 339 #f -18000 0 "Eastern Standard Time")
George
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
