例: Year function

Dim x As Variant
Dim yy As Integer
x = DateNumber(1995, 4, 1)
yy% = Year(x)
Print yy%
' Output:
' 1995