Formula Rich Text field to convert date to text and show as green

Let's start with English

var date MyDate = [TR1 Site Survey Date];

var text DayName = Case(DayOfWeek($MyDate),
0,"Sun",
1,"Mon",
2,"Tue",
3,"Wed",
4,"Thu",
5,"Fri",
6,"Sat");

var text DateWords =
List(", ", $DayName,
List("-",
Case(Month($MyDate),
1,"Jan",
2,"Feb",
3,"Mar",
4,"Apr",
5,"May",
6,"Jun",
7,"Jul",
8,"Aug",
9,"Sep",
10,"Oct",
11,"Nov",
12,"Dec"),
Right("0" & ToText(Day($MyDate)),2),
If(Year(Today())<> Year([Pickup Date]), ToText(Year($MyDate)))));


"<b><span style='color: green; font-size:200%'>" & $DateWords & "</span>"