UC知道vb语言语句错误
来源：百度知道 编辑：UC知道 时间：2024/06/17 14:03:21
Private Sub Form_Load()
L1.Caption = Year(Date) & "年"
L2.Caption = Month(Date) & "月"
L3.Caption = Day(Date) & "日，星期"
L4 = (L3 + 2 * L2 + 3 * (L2 + 1) / 5 + L1 + L1 / 4 - L1 / 100 + L1 / 400) Mod 7
End Sub
我用了4个label（L1，L2,L3,L4）制作日历表，L4的公式是计算星期几的，
谁知道我这个语句那里出错了？
L1.Caption = Year(Date) & "年"
L2.Caption = Month(Date) & "月"
L3.Caption = Day(Date) & "日，星期"
L4 = (L3 + 2 * L2 + 3 * (L2 + 1) / 5 + L1 + L1 / 4 - L1 / 100 + L1 / 400) Mod 7
End Sub
我用了4个label（L1，L2,L3,L4）制作日历表，L4的公式是计算星期几的，
谁知道我这个语句那里出错了？
L4这个式子是不被认可的，L是控件，控件没法做这种运算。如果只是为了求星期几，可以用Weekday(Date)，返回1-7，其中星期日是1，星期六是7
结合你的需要，可以这样写：
L4.Caption=Mid("日一二三四五六", Weekday(Date), 1)
或
week% = Weekday(Date)
L4.Caption=Switch(week = 1, "日", week = 2, "一", week = 3, "二", week = 4, "三", week = 5, "四", week = 6, "五", week = 7, "六")
先把第四行中的L3,L2,L1,改成数字格式，你现在是文本格式吧，再试试，我的VB知识忘得也差不多了，希望能帮到你。。。。
前三个都没有错误，第四个就有点不知所以了……