a = VBA.Month(b)
Function a(ByVal b As Date) As Integer a = Month(b) End Function
month（b）year（b）day（b）
Month(b)
