• ベストアンサー

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

VB+Access97を使って開発しております。 データベースの年月フィールドには西暦と月が格納されており、 そのデータをもとにその月の末日を取得したいのですが 取得方法を教えてください。 例:DBの年月フィールドの中身→そこから取得したい年月(末)日 2001/01→2001/01/31 2001/02→2001/02/28 2001/03→2001/03/31 ・ ・ ・ ・

質問者が選んだベストアンサー

  • ベストアンサー
noname#1296
noname#1296
回答No.2

VBで使えるかどうかわかりませんが、Accessでしたら Dateserial(年,月 + 1,0)で月末の日付を取得できます。 年月フィールドはテキスト型でしょうか? DateSerial(CInt(Mid(年月,1,4)),CInt(Mid(年月,6,2))+1,0) という感じでどうしょう。

その他の回答 (1)

  • takarin_
  • ベストアンサー率40% (2/5)
回答No.1

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

関連するQ&A