标题：菜单中的变量

1楼

bm 发表于：2011/10/25 13:00:00

Dim d As Date = Date.Today
RibbonTabs("工作").Groups("工作组").Items("标签2").Text = "星期" & d.DayOfWeek()

这个代码怎样转换才能显示是星期二（中文）

2楼

狐狸爸爸 发表于：2011/10/25 13:04:00

RibbonTabs("工作").Groups("工作组").Items("标签2").Text = Format(Date.Today,"dddd")

3楼

bm 发表于：2011/10/25 13:07:00

谢谢狐狸爸爸可以了。

4楼

czy 发表于：2011/10/25 13:07:00

昨天不是给你整过一个吗？

RibbonTabs("工作").Groups("工作组").Items("标签2").Text = "星期" & "日一二三四五六".Chars(Today.DayOfWeek)

[此贴子已经被作者于2011-10-25 13:08:21编辑过]

共4 条记录, 每页显示 10 条, 页签: [1]