db 배열안에 날자 데이터가 포함되어 있는데 바로 전에 가장 가까운 날자를 선택할수 있을까요?

안녕하세요

액셀 재고관리 툴 만들기 8시간 풀동영상 보면서 만들고
제가 원하는 기능이 있어서 바꿔보고 있습니다.

밑에 사진 보시면 db에 4번째 값이 날자 값입니다.
오늘이 11.25일이면 저 db 값중에서 바로 전 가장 가까운 날자를 필터링해서 빨간 네모의 값을 얻고 싶은데
아무리 짱구를 굴려봐도 답이 안나오네요

도움 부탁드립니다. ㅜㅜ

혹시 몰라 강좌에서 쓰인 get_db 함수하고 riltered_db 함수 밑에 포함합니다.

'########################
' 특정 시트의 DB 정보를 배열로 반환 (이번 예제파일에서만 사용)
' Array = Get_DB(Sheet1)
'########################
Function Get_DB(ws As Worksheet, Optional NoID As Boolean = False, Optional IncludeHeader As Boolean = False) As Variant

Dim cRow As Long
Dim cCol As Long
Dim offCol As Long

If NoID = False Then offCol = -1

With ws
cRow = Get_InsertRow(ws) - 1
cCol = Get_ColumnCnt(ws, offCol)
Get_DB = .Range(.Cells(2 + Sgn(IncludeHeader), 1), .Cells(cRow, cCol))
End With

End Function

==================================================================

'########################
' 특정 배열에서 Value를 포함하는 레코드만 찾아 다시 배열로 반환
' Array = Filtered_DB(Array, "검색값", False)
'########################
Function Filtered_DB(db, Value, Optional FilterCol, Optional ExactMatch As Boolean = False) As Variant

Dim cRow As Long
Dim cCol As Long
Dim varr As Variant: Dim s As String: Dim filterArr As Variant: Dim Cols As Variant: Dim Col As Variant: Dim Colcnt As Long
Dim isDateVal As Boolean
Dim vReturn As Variant: Dim vResult As Variant
Dim Dict As Object: Dim dictKey As Variant
Dim i As Long: Dim j As Long
Dim Operator As String

Set Dict = CreateObject("Scripting.Dictionary")

If Value <> "" Then
cRow = UBound(db, 1)
cCol = UBound(db, 2)
ReDim varr(1 To cRow)
For i = 1 To cRow
s = ""
For j = 1 To cCol
s = s & db(i, j) & "|^"
Next
varr(i) = s
Next

If IsMissing(FilterCol) Then
filterArr = varr
Else
Cols = Split(FilterCol, ",")
ReDim filterArr(1 To cRow)
For i = 1 To cRow
s = ""
For Each Col In Cols
s = s & db(i, Trim(Col)) & "|^"
Next
filterArr(i) = s
Next
End If

If left(Value, 2) = ">=" Or left(Value, 2) = "<=" Or left(Value, 2) = "=>" Or left(Value, 2) = "=<" Then
Operator = left(Value, 2)
If IsDate(Right(Value, Len(Value) - 2)) Then isDateVal = True
ElseIf left(Value, 1) = ">" Or left(Value, 1) = "<" Then
Operator = left(Value, 1)
If IsDate(Right(Value, Len(Value) - 1)) Then isDateVal = True
Else: End If

If Operator <> "" Then
If isDateVal = False Then
Select Case Operator
Case ">"
For i = 1 To cRow
If CDbl(left(filterArr(i), Len(filterArr(i)) - 2)) > CDbl(Right(Value, Len(Value) - 1)) Then: varr(i) = left(varr(i), Len(varr(i)) - 2): vReturn = Split(varr(i), "|^"): Dict.Add i, vReturn
Next
Case "<"
For i = 1 To cRow
If CDbl(left(filterArr(i), Len(filterArr(i)) - 2)) < CDbl(Right(Value, Len(Value) - 1)) Then: varr(i) = left(varr(i), Len(varr(i)) - 2): vReturn = Split(varr(i), "|^"): Dict.Add i, vReturn
Next
Case ">=", "=>"
For i = 1 To cRow
If CDbl(left(filterArr(i), Len(filterArr(i)) - 2)) >= CDbl(Right(Value, Len(Value) - 2)) Then: varr(i) = left(varr(i), Len(varr(i)) - 2): vReturn = Split(varr(i), "|^"): Dict.Add i, vReturn
Next
Case "<=", "=<"
For i = 1 To cRow
If CDbl(left(filterArr(i), Len(filterArr(i)) - 2)) <= CDbl(Right(Value, Len(Value) - 2)) Then: varr(i) = left(varr(i), Len(varr(i)) - 2): vReturn = Split(varr(i), "|^"): Dict.Add i, vReturn
Next
End Select
Else
Select Case Operator
Case ">"
For i = 1 To cRow
If CDate(left(filterArr(i), Len(filterArr(i)) - 2)) > CDate(Right(Value, Len(Value) - 1)) Then: varr(i) = left(varr(i), Len(varr(i)) - 2): vReturn = Split(varr(i), "|^"): Dict.Add i, vReturn
Next
Case "<"
For i = 1 To cRow
If CDate(left(filterArr(i), Len(filterArr(i)) - 2)) < CDate(Right(Value, Len(Value) - 1)) Then: varr(i) = left(varr(i), Len(varr(i)) - 2): vReturn = Split(varr(i), "|^"): Dict.Add i, vReturn
Next
Case ">=", "=>"
For i = 1 To cRow
If CDate(left(filterArr(i), Len(filterArr(i)) - 2)) >= CDate(Right(Value, Len(Value) - 2)) Then: varr(i) = left(varr(i), Len(varr(i)) - 2): vReturn = Split(varr(i), "|^"): Dict.Add i, vReturn
Next
Case "<=", "=<"
For i = 1 To cRow
If CDate(left(filterArr(i), Len(filterArr(i)) - 2)) <= CDate(Right(Value, Len(Value) - 2)) Then: varr(i) = left(varr(i), Len(varr(i)) - 2): vReturn = Split(varr(i), "|^"): Dict.Add i, vReturn
Next
End Select
End If
Else
If ExactMatch = False Then
For i = 1 To cRow
If filterArr(i) Like "*" & Value & "*" Then
varr(i) = left(varr(i), Len(varr(i)) - 2)
vReturn = Split(varr(i), "|^")
Dict.Add i, vReturn
End If
Next
Else
For i = 1 To cRow
If filterArr(i) Like Value & "|^" Then
varr(i) = left(varr(i), Len(varr(i)) - 2)
vReturn = Split(varr(i), "|^")
Dict.Add i, vReturn
End If
Next
End If
End If

If Dict.Count > 0 Then
ReDim vResult(1 To Dict.Count, 1 To cCol)
i = 1
For Each dictKey In Dict.Keys
For j = 1 To cCol
vResult(i, j) = Dict(dictKey)(j - 1)
Next
i = i + 1
Next
End If

Filtered_DB = vResult
Else
Filtered_DB = db
End If

End Function