将日期与时间段匹配

Question

我的交易数据包括交易日期。我希望能够将交易的交易日期与匹配的时间段相匹配。

我有一个包含5个不同时间段的表格，如下所示：

第1期：2000年1月1日 - 2000年3月31日

第2期：4/4/2001 - 6/6/2001

期间3：10/10/2002 - 12/31/2002

等

我希望能够将交易数据中的日期与其匹配期间进行匹配，以便进一步计算。

我能解决的唯一解决方案是嵌套，如果公式，但那些总是很难看，取决于我有多少不同的时期。

感谢您的帮助！

Answer 1

试试这个：

 Public Sub RangeChecker()
Dim date1, date2, myDate As Date
Dim myDateStatus As String

date1 = CDate("January 1, 2000")
date2 = CDate("June 1, 2000")
myDate = CDate("May 1, 2000")

If (myDate > date1 And myDate < date2) Then

myDateStatus = "The date is inside the range"
Else
myDateStatus = "The date is outside the range"
End If
MsgBox (myDateStatus)

End Sub

每个日期范围只需要一个if语句。

Answer 2

如果您未指定足够的数据布局，哪些内容位于哪一列等，则难以回答。假设期间在A，B和C列中定义，并且日期您要查找的期间为F2，您可以使用此 CSE公式：

=INDEX($A$2:$A$7,MATCH(1,($B$2:$B$7<=F2)*(F2<=$C$2:$C$7),0))
' enter then press Ctrl+Shift+Enter