各月の末日を取得する方法を教えてください

VB+Access97を使って開発しております。
データベースの年月フィールドには西暦と月が格納されており、
そのデータをもとにその月の末日を取得したいのですが
取得方法を教えてください。

例：DBの年月フィールドの中身→そこから取得したい年月(末)日
2001/01→2001/01/31
2001/02→2001/02/28
2001/03→2001/03/31
・
・
・
・

No.2 ベストアンサー 回答者： noname#1296 回答日時： 2001/05/23 11:29

VBで使えるかどうかわかりませんが、Accessでしたら

Dateserial(年,月 + 1,0)で月末の日付を取得できます。
年月フィールドはテキスト型でしょうか？
DateSerial(CInt(Mid(年月,1,4)),CInt(Mid(年月,6,2))+1,0)
という感じでどうしょう。

No.1 回答者： takarin_ 回答日時： 2001/05/23 11:26

私もそれで悩んだことがあります。

一番簡単な解決手段は、月末を求めたい月の翌月1日を作り
出します。（当然、年と月の繰り上げ処理を行って）
次にDate変数に代入するか、Date関数を用いて、その日
から1日引いた日を求めれば完成です。