ＶＢＡで月の最終日をだす方法

質問

各々の月の最終日を求める方法が分かるかたいましたらよろしくおねがいします。
色々試してみているのですが、動作しません…

Label91 = DateSerial(Year(Now()), Month(Now()) + 1, 0)
２００Ｘ年Ｘ月ＸＸ日

という表示方法ではなく、

ＸＸ日

だけ、つまり日付だけの数値がほしいんです。
知っておられる方いましたらよろしくお願いします。

ちなみに
Label92.Caption = Day(dateEnd)
これは最終日を求める方法ではないのでしょうか？？
今月で試してみたら”３０”とでました。今月は３１日まであるので、これは最終日ではないのかな？？と…

回答No.3

A88No8

こんにちは

求めたい月の次の月の初日のDateSerialから 1 を引けば、月末日が求められます。

後は、皆さんが教えて下さったDAY関数で火だけ取り出されればよいでしょう。

回答No.2

onlyrom

>Label92.Caption = Day(dateEnd)
>これは最終日を求める方法ではないのでしょうか？？

Dayは変数dateEndDayに代入されている日付の"日"の部分を返す関数ですから

＞DateSerial(Year(Now()), Month(Now()) + 1, 0)

これで求めた月末の年月日をDay関数の引数にすればいいわけです。

Label3= Day(　DateSerial(Year(Date), Month(Date) + 1, 0)　) & "日"

なお、NowとDateもヘルプ参照のこと。

回答No.1

n-jun

ExcelでTest

Sub try()
MsgBox Format(DateSerial(Year(Date), Month(Date) + 1, 0), "dd日")
End Sub

今月の最終日：３１日
ようはFormatで表示したいものを選べばいいのでは？