[已解决]怎么在VBA命令按钮显示年份？

haha10086

怎么在VBA命令按钮显示2015年事故/事件明细，而且年要随作系统日期变化而变化，比如今年是2015年，明年自动变成2014年。如果是2014年又怎么表达？感谢各位大侠帮助。

最佳答案

月排行榜 / 总排行榜

Tank008

2015-11-4 08:50

haha10086 发表于 2015-11-4 08:45
我也是用的。但是不显示啊
大侠，能不能给我写下代码。

跳转到最佳答案楼层

haha10086

还有就是怎么样使一个标签显示"全厂安全生产"&TODAY()-1999/11/1&"天"，本人初学，希望得到各位帮助。

Tank008

按钮 标签    都用caption属性显示文字。

haha10086

Tank008 发表于 2015-11-4 08:37
按钮 标签    都用caption属性显示文字。

我也是用的。但是不显示啊
大侠，能不能给我写下代码。

haha10086

Tank008 发表于 2015-11-4 08:37
按钮 标签    都用caption属性显示文字。

Private Sub Label2__Initialize()
Me.Caption = "全厂安全生产" & DateDiff(TODAY() - 1999 / 11 / 1) & "天"
End Sub

请问是不是标红的地方写错。改怎么写

Tank008

haha10086 发表于 2015-11-4 08:45
我也是用的。但是不显示啊
大侠，能不能给我写下代码。

haha10086

Tank008 发表于 2015-11-4 08:50

感谢，大侠。

haha10086

Tank008 发表于 2015-11-4 08:50

大侠，麻烦你帮我看看第二个语句函数的问题。谢谢
Label2.Caption = "全厂安全生产" & (TODAY(Date) - 1999 / 11 / 1) & "天"
他说函数不对。

Tank008

Label2.Caption = "全厂安全生产" & (Date - #1999 / 11 / 1#) & "天"

haha10086

Tank008 发表于 2015-11-4 09:02
Label2.Caption = "全厂安全生产" & (Date - #1999 / 11 / 1#) & "天"

你就是我的神！！！！万分感谢。