月末日取得

解決

さくら 2004-01-09 22:02:00 No: 111172

月末日なら・・・という処理をしたいのですがわかりません。
簡単にこれならその日の曜日等が取得できますが
Dim hiniti As String
hiniti = Format(Date, "aaa")
MsgBox hiniti
月末日となると条件式が思い浮かびません。
解る方がいましたらお願いします。
win2000 vb6.0

魔界の仮面弁士 2004-01-09 22:08:16 No: 111173

Dim d As Date
d = DateSerial(年, 月 + 1, 0)

とか。

年=2004、月=2なら、dは「2004年2月29日」になります。

Say 2004-01-09 22:37:23 No: 111174

DateSerialは「0日」を受け付けるので妙なコードに見えますが、
ロジック的には「翌月の1日(月初日)の前日」です。

さくら 2004-01-13 18:36:34 No: 111175

魔界の仮面弁士さん、Sayさんありがとうございます。
月末日の取得という事に関してはアドバイスのおかげで
出来ました。
後は少し考えて発展させて行きたいと思います。
また何かありましたら宜しくお願いします。