久しぶりにExcel VBAで、当月の初日と最終日を求める場面があった。 初日を求めるとき、昔はこんな風に書いていた。 Function FirstDay(source_date As Date) As Date FirstDay = DateSerial(Year(source_date), Month(source_date), 1) End Function この記…