ＶＢＳで比較条件について

質問

Y = 20040601
x = Date
g = Mid(x,1,4) & Mid(x,6,2) & Mid(x,9,2)
If g < x Then
msgbox "w"
Else
msgbox "y"
End If
の時にMsgbox にＷが入ります。
Ｙが入る方法はありますでしょうか
教えて下さい。

回答No.2

imogasi · ベストアンサー

VBSにおいてでも、日付（Date関数が与える日付も同じ）は１９００年１月１日を１として、その日が第何日目か（日付シリアル値）で表します。それは値としては、単なる正の整数です。今日は３８１４０です。
一方ご質問にあるｇで出てくるMID関数は、文字列を部分的に切り出す関数です。ただしｘが数字の場合は、文字列のように扱って切りだしてくれます（エクセルなども同じお節介ご親切機能）。
しかしMID(ｘ,1,4)は日付の「年」の数字ではなく、３８１４となります。そして３８１４も数値ではなく文字列でしょう。
それと20040601と言う数を比較しても、意味がないことはわかりますね。
ですからYを20040601ではなく、2004/6/1の日付シリアル値にしてくれる関数を使って38139に直さないといけません。VBSではDateserialやDatevalueがありますからそれを使います。y=Dateserial(2004,6,1)とし、ｇとｘでなくｙとｘを比較します。エクセル・アクセス・VBS・VBも日付については、同様のことに注意が必要です。

お礼

ありがとうございました。

回答No.1

edomin

質問の内容がよくわかりません。
ＩＦ文は、「g<Y」じゃないでしょうか？
また、Ｙは数値でｇは文字列になっています。比較対照が違いますのでＹも文字列にしましょう。
全体としては、
---ここから---
Y = "20040601"
x = Date
msgbox x
g = Mid(x,1,4) & Mid(x,6,2) & Mid(x,9,2)
If g < Y Then
msgbox "w"
Else
msgbox "y"
End If
---ここまで---