個人事業主の方必見!確定申告のお悩み解決

以前の例題を検索したのですが 改めて質問します。

ACCESS97のモジュールで 日付の計算をしたいのです。
例えば
ある日付を入力すれば、その2週間後の日付を取得したいのです。
 テキストボックス "日付"で入力するとします

Dim Sdate As Date 
Dim Edate As Date

Sdate = Format(Me.日付, "yy/mm/dd")

Edate = Format(Sdate+14, "yy/mm/dd") ← ではエラーになります。
Q どうすればいいのでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

DateAdd関数を使ってみましたか?



Edate = DateAdd("d", 14, Sdate)

とすれば2週間後の日付がとれますよ。
    • good
    • 0
この回答へのお礼

ありがとうございました。
上手く行きました。

お礼日時:2002/11/02 13:49

フォームに2つのテキストボックスを貼り付けます。


テキスト0のイベントプロシージュアーとして
+14する為には、Sdateがシリアル値(連続日付)になっていないとだめです。一方テキストボックスより採る値は
文字列ですから、そのための変換が必要です。Formatは
その役をしていないのだと思います。文字列を返すものだから。
下記をModuleに作ります。
Private Sub テキスト0_Enter()
h = テキスト0.Text
hs = CDate(h)
MsgBox hs
hs = hs + 14
テキスト2.SetFocus
テキスト2.Text = Format(hs, "yyyy/mm/dd")
End Sub
2002/10/20を入れると、テキスト2に2002/11/3
が出ました。
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング