确定日期是在该月的15日之前还是之后

Question

我有一个功能，根据项目存储的月数来应用费率。但是如果物品在15日之后存放，我们收取一半的费用。我用来确定项目存储月数的函数是DateDiff()函数。它返回两个日期之间的月数。如何确定日期是在15日之前还是之后？如果我使用DateDiff(d,1/1/2015, 4/1/15)我会得到一个大于15的值，所以我无法看到日期是在15日之前还是之后使用大于或小于15.如何确定是否有任何一个日期（入口日期是哪个）该项目输入存储区域的日期和退出日期（即删除日期）是在15日之前还是之后？

Answer 1

VBA将日期建模为浮点双精度。不可分割的一部分代表着这一天。它每天提前1次。

它提供了一个函数Day(date)，您可以使用该函数来提取date发生的月中的某一天。

例如，CDate(40000)将在2009年7月6日返回给您，而Day(40000)将为您返回6.

Answer 2

我会做像

这样的事情

if format(date, "DD") <= 15 then msgbox "this is 15 or below" else msgbox "this is 16 and above" end if

您可以输入日期变量而不是date这是一个内置函数来返回系统日期。