VBS Dateadd関数の実行

質問

VBSについて、おそらく初歩的な質問です。
以下のプログラムが実行できないのはなぜでしょうか。。

また、メッセージボックスにy(5)の値(2017/08/10 11:00:00 )
を表示するにはどのように訂正すればよいでしょうか。
よろしくお願いします。
-------------------------------------------------------------------------
Option Explicit
Dim ans, y(5), n

y(0)=2017/08/10 4:00:00 　　　　　　　　　　
y(1)=DateAdd("n",100, y(0))　　　　　　　　　　　　
y(2)=DateAdd("n",40, y(1))
y(3)=DateAdd("n",115, y(2))
y(4)=DateAdd("n",45, y(3))
y(5)=DateAdd("n",120, y(4))

ans = y(5)

MsgBox ans, , "答え"

回答No.2

Prome_Lin · ベストアンサー

質問者のプログラムをコピー＆ペーストすると、全角スペースが入っていますが、もちろん、実際に動かされたものには、入っていませんよね。

私、質問者のプログラムを、そのままコピー＆ペーストし、不要な行末の全角スペースや半角スペースを削除の上、「“”」を付けたところ、問題なく、動いていますが・・・

ちなみに

Option Explicit
Dim ans, y(5), n
y(0)="2017/08/10 4:00:00"
y(1)=DateAdd("n",100, y(0))
y(2)=DateAdd("n",40, y(1))
y(3)=DateAdd("n",115, y(2))
y(4)=DateAdd("n",45, y(3))
y(5)=DateAdd("n",120, y(4))
ans = y(5)
MsgBox ans, , "答え"

で、間違いなく、「2017/08/10 11:00:00」と表示されました。

お礼

スペースが入っていたことが原因でした笑
無事できました。ありがとうございました！

回答No.3

kteds

y(0)=2017/08/10 4:00:00 は
y(0)="2017/08/10 4:00:00"
と書いてください。
さらに、目視では見えませんが
下記の2行の末尾に余計なタブコードが存在しているようです。
y(0)="2017/08/10 4:00:00"
y(1)=DateAdd("n",100, y(0))
末尾の余計なコードをDeteteキーで消してください。

お礼

おっしゃるとおり""の付け忘れと余計なスペースが原因でした。
ありがとうございました！

回答No.1

Prome_Lin

y(0) = "2017/08/10 4:00:00"

「""」が抜けています。

補足

回答ありがとうございます。
""を入れて再度実行しましたが、「文字が正しくありません」とエラーになってしまいます、、