Lines Matching +defs:time +defs:date
48 (defvar date)
66 (let* ((end-date (list (list end-month 1 end-year)))
67 (start-date (list (list start-month
80 (while (calendar-date-compare new-moon end-date)
81 (if (calendar-date-compare start-date new-moon)
88 "Local date and time of lunar phase INDEX.
94 (time (/ index 1236.85))
95 (date (+ (calendar-absolute-from-gregorian '(1 0.5 1900))
98 (* 0.0001178 time time)
99 (* -0.000000155 time time time)
102 (* 132.87 time)
103 (* -0.009173 time time))))))
107 (* -0.0000333 time time)
108 (* -0.00000347 time time time))
113 (* 0.0107306 time time)
114 (* 0.00001236 time time time))
119 (* -0.0016528 time time)
120 (* -0.00000239 time time time))
124 (+ (* (- 0.1734 (* 0.000393 time))
140 (+ (* (- 0.1721 (* 0.0004 time))
167 (date (+ date adjustment))
168 (date (+ date (/ (- calendar-time-zone
172 (truncate date)))))
174 (time (* 24 (- date (truncate date))))
175 (date (calendar-gregorian-from-absolute (truncate date)))
176 (adj (dst-adjust-time date time)))
177 (list (car adj) (apply 'solar-time-string (cdr adj)) phase)))
209 (let ((date (car x))
210 (time (car (cdr x)))
212 (concat (calendar-date-string date)
216 time)))
232 (let* ((date (if arg
233 (calendar-read-date t)
234 (calendar-current-date)))
235 (displayed-month (extract-calendar-month date))
236 (displayed-year (extract-calendar-year date)))
247 (+ (extract-calendar-year date)
248 ( / (calendar-day-number date)
252 (while (calendar-date-compare phase (list date))
255 (if (calendar-date-equal (car phase) date)
263 (defun lunar-new-moon-time (k)
368 (/ calendar-time-zone 60.0 24.0))))
372 \(Julian) day number d. The fractional part is the time of day.
374 The date and time are local time, including any daylight saving rules,
376 calendar-daylight-savings-starts-time, calendar-daylight-savings-ends,
377 calendar-daylight-savings-ends-time, calendar-daylight-time-offset, and
378 calendar-time-zone."
379 (let* ((date (calendar-gregorian-from-absolute
381 (year (+ (extract-calendar-year date)
382 (/ (calendar-day-number date) 365.25)))
384 (date (lunar-new-moon-time k)))
385 (while (< date d)
387 (setq date (lunar-new-moon-time k)))
388 (let* ((a-date (calendar-absolute-from-astro date))
389 (time (* 24 (- a-date (truncate a-date))))
390 (date (calendar-gregorian-from-absolute (truncate a-date)))
391 (adj (dst-adjust-time date time)))