2022/04 月相カレンダー

イメージ

code

dates = DateRange["Apr 1 2022 12:00", "Apr 31 2022 12:00", 1];
phase = MoonPhase[dates, "Icon"]
pfr = MoonPhase[dates, "Fraction"]
moon = TimeSeriesThread[Identity, {phase, fr}];
ts = TimeSeriesMapThread[styleFun, moon]
Labeled[Grid[Partition[ts["Values"], 7, 7, 4, ""], Dividers -> False, 
Spacings -> {0, 0}], 
Style["April 2022", Bold, FontFamily -> "Helvetica"], Top]

Wolfram cloud