１ヶ月前の日時を取得

OS:windows2000pro
VB:VB6.0sp5

現在時刻の一ヶ月前の日時を取得する方法を教えてください

よろしくお願いいたします

No.1 ベストアンサー 回答者： stouma 回答日時： 2005/03/30 20:30

dateadd("m",-1,now)

-1は1ヶ月前という意味です。
普通の1にすれば1ヵ月後にも何ヵ月後にも
することもできます。
くわしくはDateAddを調べるとよいですよ。

No.3 回答者： kakusuke 回答日時： 2005/03/30 23:02

DateSerial(Year(Now), Month(Now) - 1, Day(Now)) + _

TimeSerial(Hour(Now), Minute(Now), Second(Now))
ちょっとふざけてみました。

No.2 回答者： 1050YEN 回答日時： 2005/03/30 20:31

DateAddを利用(HELP見ましょう)

Dim datNow As Date
Dim datBack As Date

datNow = Now
datBack = DateAdd("m", -1, datNow)

MsgBox Now & " " & datBack


ただし、月によって日数が違うから、望みどおりの結果でなければ、オリジナルで算出する必要あり。


たとえば本日
2005/3/30の一ヶ月前は2005/2/28(2月の末日)

明日から一ヶ月前でも、出力結果は2005/2/28(2月の末日)