１ヶ月前の日時を取得

解決済

質問者：nao0
質問日時：2005/03/30 20:08
回答数：3件

OS:windows2000pro
VB:VB6.0sp5

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： stouma
回答日時：2005/03/30 20:30

dateadd("m",-1,now)

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

- 0
- 件

通報する

No.3

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

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

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

- 1
- 件

通報する

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月の末日)