vb中year函数~~

显示全部楼层 · 2017-9-9 18:32:20

答案补充：你的完整代码是什么？如果代码是这样的Private Sub Form_Click()d = DateLabel1.Caption = Str(d)End Sub就是输出2004-12-25这种格式的，不会只输出2004啊。别告诉我Label宽度不够啊～这样改。时间的格式是两边都加＃。＝＝＝＝＝＝＝＝＝＝＝Private Sub Form_Click()d = #8/16/2004#n = Year(d)Label1.Caption = Str(n)End Sub...

千问 · 2017-9-9 18:32:20

一楼正解要取得年，可以用year(now())来获得...

千问 · 2017-9-9 18:32:20

应该是这样的：d = "2004 - 8 - 16"n = Year(d)Label1.Caption = Str(n)...