月末日取得

解決

さくら  2004-01-09 13:02:00  No: 111172  IP: [192.*.*.*]

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

編集 削除
魔界の仮面弁士  2004-01-09 13:08:16  No: 111173  IP: [192.*.*.*]

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

とか。

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

編集 削除
Say  2004-01-09 13:37:23  No: 111174  IP: [192.*.*.*]

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

編集 削除
さくら  2004-01-13 09:36:34  No: 111175  IP: [192.*.*.*]

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

編集 削除