2022/01 月相カレンダー
code
dates = DateRange["Jan 1 2022 12:00", "Jan 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["January 2022", Bold, FontFamily -> "Helvetica"], Top]Wolfram cloud