月の日数を知る方法

質問

いつもお世話になっております。

VB6を使っているのですが、例えば１０月が何日まであるのかを
計算するいい方法はないでしょうか？
月末が何日になるのかを知りたいのです。

どうかよろしくお願いいたします。

回答No.2

KenKen_SP · ベストアンサー

こんにちは。こんな感じかと。

　　Dim myDate As Date
　　Dim YY As Integer
　　Dim MM As Integer

　　YY = 2006
　　MM = 10

　　myDate = DateSerial(YY, MM + 1, 0)

　　MsgBox CStr(YY) & "年" & CStr(MM) & "月の末日は" _
　　　　　 & Format$(myDate, "yyyy/m/d") & "です。"
　　MsgBox "あとはDay 関数で日を求めると..." _
　　　　　 & CStr(Day(myDate))

お礼

ご丁寧な解答ありがとうございました。

参考にさせていただきます。

回答No.1

Yeti21

例えば、
DateDiff関数で10月1日から11月1日までの日数を求めるとか
DataAdd関数で11月1日の1日前の日付を求めるとか。

お礼

ご回答ありがとうございます。

なるほど、そのような関数があったのですね。
ありがとうございました。