添加自定义函数，返回一年中的季度给定日期
的一年的四分之一在本文中，我们将创建一个自定义函数，该函数返回给定日期的一年的四分之一。
原始数据包含产品销售数据，其中包含销售日期，产品名称和数量。
在本文中，我们希望找出按季度售出的产品总数。因此，我们想找出每个日期是一年的四分之一。
代码说明
DatePart（“ q”，Enter_Date）
我们已经使用VBA的DatePart函数从日期中提取一年的四分之一。
请遵循以下代码
Option Explicit
Function QuarterNum(Enter_Date As Date)
'Using DatePart function to extract quarter from given date
QuarterNum = DatePart("q", Enter_Date)
End Function
如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。
我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]