Emacs Lisp Function to Determine the Start of Engineers Week

This year, Engineers Week started on Sunday (February 22, 2026).  It always begins on Sunday of the week of George Washington's birthday. ¹

Here's an Emacs Lisp function to calculate the date that Engineers Week will begin for a given year:

(defun eweek (year)
  "Returns the date on which Engineers Week begins for the year given in
YEAR.  Returns the date in the standard format for a (Gregorian)
calendar date in calendar.el, a list of integers (MONTH DAY YEAR)"
  (calendar-gregorian-from-absolute
   (calendar-dayname-on-or-before
    0 (calendar-absolute-from-gregorian (list 2 22 year))))) 

Invoking (eweek 2025) should return (2 16 2025), which was the start of Engineers Week last year.

¹ https://calendar-holidays.com/engineers-week/