331 # From Paul Eggert (2015-04-08):

   331 # From Ahmed Nazmy (2015-04-20):

   332 # For now, guess that later spring and fall transitions will use

   332 # Egypt's ministers cabinet just announced ... that it will cancel DST at

   333 # 2014's rules, and guess that Egypt will switch to standard time at

   333 # least for 2015.

   334 # 24:00 the last Thursday before Ramadan, and back to DST at 00:00 the

   334 #

   335 # first Friday after Ramadan.  To implement this,

   335 # From Tim Parenti (2015-04-20):

   336 # transition dates for 2015 through 2037 were determined by running

   336 # http://english.ahram.org.eg/WriterArticles/NewsContentP/1/128195/Egypt/No-daylight-saving-this-summer-Egypts-prime-minist.aspx

   337 # the following program under GNU Emacs 24.4, with the results integrated

   337 # "Egypt's cabinet agreed on Monday not to switch clocks for daylight saving

   338 # by hand into the table below.  Ramadan again intrudes on the guessed

   338 # time this summer, and carry out studies on the possibility of canceling the

   339 # DST starting in 2038, but that's beyond our somewhat-arbitrary cutoff.

   339 # practice altogether in future years."

   340 # (let ((islamic-year 1436))

   340 #

   341 #   (while (< islamic-year 1460)

   341 # From Paul Eggert (2015-04-20):

   342 #     (let ((a (calendar-islamic-to-absolute (list 9 1 islamic-year)))

   342 # For now, assume DST will be canceled.  Any resumption would likely

   343 #           (b (calendar-islamic-to-absolute (list 10 1 islamic-year)))

   343 # use different rules anyway.

   344 #           (friday 5))

   344 

   345 #       (while (/= friday (mod a 7))

   346 #         (setq a (1- a)))

   347 #       (while (/= friday (mod b 7))

   348 #         (setq b (1+ b)))

   349 #       (setq a (1- a))

   350 #       (setq b (1- b))

   351 #       (setq a (calendar-gregorian-from-absolute a))

   352 #       (setq b (calendar-gregorian-from-absolute b))

   353 #       (insert

   354 #        (format

   355 #         (concat "Rule\tEgypt\t%d\tonly\t-\t%s\t%2d\t24:00\t0\t-\n"

   356 #                 "Rule\tEgypt\t%d\tonly\t-\t%s\t%2d\t24:00\t1:00\tS\n")

   357 #         (car (cdr (cdr a))) (calendar-month-name (car a) t) (car (cdr a))

   358 #         (car (cdr (cdr b))) (calendar-month-name (car b) t) (car (cdr b)))))

   359 #     (setq islamic-year (+ 1 islamic-year))))

   368 Rule	Egypt	2014	max	-	Sep	lastThu	24:00	0	-

   353 Rule	Egypt	2014	only	-	Sep	lastThu	24:00	0	-

   369 Rule	Egypt	2015	2019	-	Apr	lastThu	24:00	1:00	S

   370 Rule	Egypt	2015	only	-	Jun	11	24:00	0	-

   371 Rule	Egypt	2015	only	-	Jul	23	24:00	1:00	S

   372 Rule	Egypt	2016	only	-	Jun	 2	24:00	0	-

   373 Rule	Egypt	2016	only	-	Jul	 7	24:00	1:00	S

   374 Rule	Egypt	2017	only	-	May	25	24:00	0	-

   375 Rule	Egypt	2017	only	-	Jun	29	24:00	1:00	S

   376 Rule	Egypt	2018	only	-	May	10	24:00	0	-

   377 Rule	Egypt	2018	only	-	Jun	14	24:00	1:00	S

   378 Rule	Egypt	2019	only	-	May	 2	24:00	0	-

   379 Rule	Egypt	2019	only	-	Jun	 6	24:00	1:00	S

   380 Rule	Egypt	2020	only	-	May	28	24:00	1:00	S

   381 Rule	Egypt	2021	only	-	May	13	24:00	1:00	S

   382 Rule	Egypt	2022	only	-	May	 5	24:00	1:00	S

   383 Rule	Egypt	2023	max	-	Apr	lastThu	24:00	1:00	S