vb 将数字转变成日期Dim m,d,y As Integerm = Month(Date)d = Day(Date)y = Year(Date)t = "#" & m & "\" & d & "\" & y & "#"a = Weekday(t)我的目的就是为了判断今天是星期几,为什么这样写的话会显示 t = "#" & m & "\" & d & "\"

vb 将数字转变成日期Dim m,d,y As Integerm = Month(Date)d = Day(Date)y = Year(Date)t = "#" & m & "\" & d & "\" & y & "#"a = Weekday(t)我的目的就是为了判断今天是星期几,为什么这样写的话会显示 t = "#" & m & "\" & d & "\"
vb 将数字转变成日期
Dim m,d,y As Integer
m = Month(Date)
d = Day(Date)
y = Year(Date)
t = "#" & m & "\" & d & "\" & y & "#"
a = Weekday(t)
我的目的就是为了判断今天是星期几,为什么这样写的话会显示 t = "#" & m & "\" & d & "\" & y & "#" 这句话出错?请问应该怎么解决?

vb 将数字转变成日期Dim m,d,y As Integerm = Month(Date)d = Day(Date)y = Year(Date)t = "#" & m & "\" & d & "\" & y & "#"a = Weekday(t)我的目的就是为了判断今天是星期几,为什么这样写的话会显示 t = "#" & m & "\" & d & "\"
改为下面代码就好了
Private Sub Command1_Click()
Dim m, d, y As Integer
m = Month(Date)
d = Day(Date)
y = Year(Date)
t = CDate(m & "/" & d & "/" & y)
a = Weekday(t)
End Sub