Three images below are for the days before, during and after full moon on
Day: Thu 12 Sep 2030
:
In[]:=
ValuesMoonPhase
Day: Wed 11 Sep 2030
,
Day: Thu 12 Sep 2030
,
Day: Fri 13 Sep 2030
,"Icon"
Out[]=

,
,

Find al those FRI 13th days that land not only the day of fool moon, but also the day before or after. Note Parallelize usage that can help Select to work faster:
In[]:=
verYscarY=ParallelizeSelectDateRangeToday-
100
yr
,Today+
100
yr
,​​ DayName[#]Friday&&​​ #[[1,3]]13&&​​ MemberQValuesMoonPhase#-
1
day
,#,#+
1
day
,"Name",
full moon
MOON PHASE
&​​ ;//AbsoluteTiming​​ ​​TimelinePlot[verYscarY]
Out[]=
{13.1721,Null}
Out[]=
Here is a better visual:
In[]:=
TimelinePlot[AssociationThread[​​DateString[#,{"MonthNameShort","-","Year"}]&/@verYscarY->verYscarY],​​AspectRatio1/3,PlotLayout->"Grouped"]
Out[]=
Contents cannot be rendered at this time; please try again later or download this notebook for full functionality »