如何用vba根据出生年月计算实际的年龄？

比如张三的出生年月是1979月8月，由于现在是2018年3月，他的实际年龄是2018-1979-1。（因为月份还没到8月份）

再比如李四的出生年月是1979月1月，由于现在是2018年3月，他的实际年龄是2018-1979。（因为月份已经过了1月份）

在vba中可以使用如下的代码根据出生年月计算实际的年龄：

Sub QQ1722187970()
    Dim str1 As String
    str1 = "1979-01"
    MsgBox "李四的年龄是" & Int(VBA.DateDiff("m", VBA.DateValue(str1), Date) / 12) & "岁"
End Sub

其中VBA.DateDiff(“m”, VBA.DateValue(str1), Date) 用于计算两个日期之间相差的月份数，除以12取整后得出实际的年龄。