Given a date as input in any convenient format, output a calendar with that date as the exact center of a five-week window. The header of the calendar must include the two-letter abbreviations for the days of the week (i.e., Su Mo Tu We Th Fr Sa).

For example, given April 2 2019 as input, the output should be

Sa Su Mo Tu We Th Fr

16 17 18 19 20 21 22

23 24 25 26 27 28 29

30 31  1  2  3  4  5

 6  7  8  9 10 11 12

13 14 15 16 17 18 19

so that the given date is the exact middle of the calendar.

Given February 19 2020, output

Su Mo Tu We Th Fr Sa

 2  3  4  5  6  7  8

 9 10 11 12 13 14 15

16 17 18 19 20 21 22

23 24 25 26 27 28 29

 1  2  3  4  5  6  7

For September 14 1752, show the following:

Mo Tu We Th Fr Sa Su

28 29 30 31  1  2  3

 4  5  6  7  8  9 10

11 12 13 14 15 16 17

18 19 20 21 22 23 24

25 26 27 28 29 30  1

• Input and output can be given by any convenient method.


• The input is guaranteed non-empty and valid (i.e., you'll never receive "" or Feb 31 etc.).


• Assume Gregorian calendar for all dates.


• Leap years must be accounted for.


• Input dates will range from Jan 1 1600 to Dec 31 2500.


• You can print it to STDOUT or return it as a function result.


• Either a full program or a function are acceptable.


• Any amount of extraneous whitespace is acceptable, so long as the characters line up appropriately.


• 
  Standard loopholes are forbidden.


• This is code-golf so all usual golfing rules apply, and the shortest code (in bytes) wins.

Wolfram Language (Mathematica), 131 bytes

(s=#;Grid@Join[{StringTake[#,2]&/@ToString/@(DayName[d[s,#]]&/@Range[-3,3])},Partition[Last@d[s,#]&/@Range[-17,17],7]])&

d=DatePlus

Try it online!

I don't know why Grid doesn't work on TIO but this code outputs this

C# (Visual C# Interactive Compiler), 124 bytes

n=>{for(int i=-24;i<18;)Write($"{(i<-17?$"{n.AddDays(i):ddd}".Remove(2,1):n.AddDays(i).Day+""),3}"+((46+i++)%7<1?"n":""));}

Try it online!

JavaScript (Node.js), 205 bytes

f=

d=>[...`012345`].map(r=>[...`0123456`].map(c=>`${new Date(d+864e5*(+c+r*7-24))[+r?`getUTCDate`:`toUTCString`]()}`.slice(0,2).padStart(2)).join` `,d=new Date(d.slice(0,2)%4+20+d.slice(2)).getTime()).join`

`

<input type=date oninput=o.textContent=f(this.value)><pre id=o>

Try it online! Takes input as a string in YYYY-MM-DD format, but the input field in the snippet displays your local date format.

R, 66 bytes

function(d,g=format)write(c(g(d+-3:3,"%a"),g(d+-17:17,"%3d")),1,7)

Try it online!

Pads date numbers with leading 0s; takes input as a Date, which can be created by using as.Date("YYYY/MM/DD").

Weirdly short for an R ascii-art answer...

PHP, 197 191 bytes

$d=date_create($argn)->sub($i=new DateInterval(P17D));$i->d=1;while($x++<35){if($x<8)$h.=substr($d->format(D),0,2).' ';$o.=sprintf('% 2s ',$d->format(j));$d->add($i);}echo wordwrap($h.$o,20);

Try it online!

Input is STDIN, run with php -nF.

$ echo April 2 2019|php -nF cal.php

April 2 2019

Sa Su Mo Tu We Th Fr 

16 17 18 19 20 21 22 

23 24 25 26 27 28 29 

30 31  1  2  3  4  5 

 6  7  8  9 10 11 12 

13 14 15 16 17 18 19 

February 19 2020

Su Mo Tu We Th Fr Sa 

 2  3  4  5  6  7  8 

 9 10 11 12 13 14 15 

16 17 18 19 20 21 22 

23 24 25 26 27 28 29 

 1  2  3  4  5  6  7 

September 14 1752

Mo Tu We Th Fr Sa Su 

28 29 30 31  1  2  3 

 4  5  6  7  8  9 10 

11 12 13 14 15 16 17 

18 19 20 21 22 23 24 

25 26 27 28 29 30  1