| |
IROC さん ありがとうございました。
>これで如何でしょうか？
>
>Dim y As Long, m As Long, d As Long
>Dim ret As String
>
> y = 2004
> m = 7
> d = 77
>
> ret = y & "/" & m & "/" & d
>
> MsgBox IsDate(ret)
>
IsDate関数があるのですね。参考になります（もうちょっと注意深くHELPを見ないといけないですね。反省します）。
実際には入力された日付が下のようだったとします。
年→2003 月→2 日→29
カレンダーを見るとわかるようり、２００３年２月は閏年ではないので、２９というのは無いわけです。
この判断にEOMONTH関数を使いたいわけだったのです。
この質問をしてからいろいろとHELPをみていたところ、DateAdd関数が使えるのがわかりました。これを利用して入力された年月に"01"をつけ、強制的に月初日にして１ヶ月加算し、翌月の月初日を求めます。それから１日マイナスすることで、入力された年月の月末日を求めるようにします。
いまこの方法ができるかどうか、検証をしたいとおもいます。
これからもよろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
