#を含む変数の書き方

オブジェクトに代入する書き方は、

objR.BeginDate = "#20031023Z#"
objR.ExpDate = "#20031028Z#"

という書き方になるものがありまして、この
"#日付Z#"の部分に変数を使用したいのですが、
例えば

LicBeginDate=Date
LicExpDate=DateAdd("d",5,LicBeginDate)

として、

objR.BeginDate = "#" & LicBeginDate & "Z#"
objR.ExpDate = "#" & LicExpDate & "Z#"

としてもエラーになってしまいます。

オブジェクトに"#20031023Z#"と代入しなくてはいけない場合に、変数を使うにはどのような書き方をすれば
いいのでしょうか？

No.1 ベストアンサー 回答者： chie65536 回答日時： 2003/10/23 15:51

>LicBeginDate=Date

>LicExpDate=DateAdd("d",5,LicBeginDate)
として変数に入れていると言う事は、LicBeginDateとLicExpDateは日付時刻型の変数ですよね？

だとすると、そのまま
objR.BeginDate=LicBeginDate
objR.ExpDate=LicExpDate
と代入するのではダメなんでしょうか？

objR.BeginDateとobjR.ExpDateが日付時刻型ではなく文字列型だった場合は、LicBeginDateとLicExpDateを、日付を文字列に変換する関数を使ってyyyymmddの形の文字列に変換して、前後に"#"と"Z#"を足して代入すれば良いと思いますが…。

この回答へのお礼

変数に普通の数字

LicBeginDate="20031023"
LicExpDate="20031025"

というものから順番にチェックしていったところ、答えがでました。

書き方に問題があったのではなくて、

Date関数が拾ってくる日付のフォーマットが単純に

2003/10/23

という"/"を含むものになっていたので、エラーになっていたようです。
なので、

LicBeginDate=Year(Now) & Month(Now) & Day(Now)
LicExpirationDate=DateAdd("d",5,Date)
LicExpirationDate=Year(LicExpirationDate) & Month(LicExpirationDate) & Day(LicExpirationDate)

とすることで、

20031023と20031028と代入され、エラーが解消されましたm(_ _)m ペコ

お礼日時：2003/10/23 16:00