答案补充：你的完整代码是什么？
如果代码是这样的
Private Sub Form_Click()
d = Date
Label1.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
