Excelマクロに関して質問です．

質問

Excelマクロに関して質問です．

翌月の日数を取得したいのですが，よいプログラムが思いつきません．

また，当月が12月だった場合，翌年の1月の
日数が取得できるようなマクロにしたいです．

どなたか分かる方，回答お願い致します．

回答No.2

nda23

>翌月の日数
翌々月の1日－翌月の1日の日数で求まる。

Function 翌月の日数(指定日)
翌月の日数 = DateDiff("d", _
CDate(Format(DateAdd("m",1,指定日),"yyyy/mm/1")), _
CDate(Format(DateAdd("m",2,指定日),"yyyy/mm/1")))
End Function

DateAddとDateDiffを使う。

回答No.1

bin-chan

日付型変数を研究してください。

日付計算は「片端落ち」なので、
翌月の日数　＝　翌々月の1日 -　翌月の1日です。

> 当月が12月だった場合，翌年の1月の
1月の日数は31日で変化しません。変化するのは2月です。