VBA算歲數

插入模塊，再插入子程序
敲如下代碼

Public Sub vc()
Dim name As String
Dim birth As Date
Dim age As Integer
name = "次裏取丁"
birth = "1998-8-1"
age = Year(Now()) - Year(birth)
Debug.Print name & "is" & age & "years old"

End Sub

如圖

運行結果爲

所以，我已經20歲了，該回村找媳婦啦，，，