EXCEL VBA WEEKDAY関数

質問

weekday関数について質問です。
Sub test()
MsgBox Weekday(#2/19/2009#)
End Sub

上記プログラムを参考に2009年2月i日の曜日を返すように
下記プログラムを作成したのですが、うまくいきません。
変数iの箇所に原因があると思うのですがどのようにしたら
解決できますでしょうか？？
Sub test()
dim i as string
i=15
MsgBox Weekday(#2/i/2009#)
End Sub

解決策、できましたら参考となるプログラムをお教えください。
よろしくお願いいたします。

回答No.3

AKARI0418 · ベストアンサー

DateSerial関数を使えばよいと思います。

Sub test()
Dim y as integer
Dim m as integer
Dim d as integer
y = 2009
m = 1
d = 21
MsgBox (Weekday(DateSerial(y,m,d)))
End Sub

回答No.2

okormazd

Sub weekdy()
y = 2009
m = 2
d = 15
MsgBox Weekday(y & "/" & m & "/" & d)
End Sub

回答No.1

fujillin

2009年2月限定でよいのなら…

Sub test()
Dim i As String
i = 15
MsgBox (Weekday("2009/2/" & i))
End Sub

補足

迅速に回答いただきありがとうございます。

もしよろしければ、2月を変数に置き換えたい場合はどのようにすればよろしいでしょうか？？わがままいって申し訳ございません。