Private Sub Form_Click() Dim a As Date a = 2012 l = Weekday("a-9-14", 2) Print l End Sub

答案:3 悬赏:50

解决时间 2021-12-23 03:32

提问者网友：無奈小影
2021-12-22 15:34

为什么不对？

Private Sub Form_Click()
Dim a As Date
a = 2012
l = Weekday("a-9-14", 2)
Print l
End Sub
为什么不对？怎样修改？

最佳答案

二级知识专家网友：伤口狠精致
2021-12-22 16:21

Private Sub Form_Click()
Dim a As Date
a = "2012-1-1"
l = Weekday(Year(a) & "-9-14", 2)
Print l
End Sub

全部回答

1楼网友：废途浑身病态
2021-12-22 17:34

这个要看后面的控制字是什么意思了：见如下的说明可以知道，1时，1对应星期日，2对应星期1，为11时，1对应，星期一，2对应星期二 1 或省略数字 1（星期日）到数字 7（星期六），同 microsoft excel 早期版本。 2 数字 1（星期一）到数字 7（星期日）。 3 数字 0（星期一）到数字 6（星期日）。 11 数字 1（星期一）到数字 7（星期日）。 12 数字 1（星期二）到数字 7（星期一）。 13 数字 1（星期三）到数字 7（星期二）。 14 数字 1（星期四）到数字 7（星期三）。 15 数字 1（星期五）到数字 7（星期四）。 16 数字 1（星期六）到数字 7（星期五）。 17 数字 1（星期日）到 7（星期六）。

2楼网友：迷人小乖乖
2021-12-22 16:32

Private Sub Form_Click() Dim a As Date a = "2012-1-1" l = Weekday(Year(a) & "-9-14", 2) Print l End Sub

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！