TwoDateBetween Lastweek

Function dateBetween(d1 As String, tdate As String) As Boolean
    Dim d_1
    d_1 = CDate(d1)
   
    ' 一週前
    Dim fdate As Date
    fdate = CDate(tdate) - 7
   
    fyear = DatePart("yyyy", fdate)
    fday = DatePart("y", fdate)
    tyear = DatePart("yyyy", CDate(tdate))
    tday = DatePart("y", CDate(tdate))
   
    theYear = DatePart("yyyy", CDate(d1))
    theDay = DatePart("y", CDate(d1))
    dateBetween = False
   
    If (fyear > tyear) Then
        dateBetween = False
    ElseIf (fyear <= tyear) Then
        If (theYear = fyear And theYear = tyear) Then
            If (theDay >= fday And theDay <= tday) Then
                dateBetween = True
            End If
        ElseIf (theYear > fyear And theYear = tyear) Then
        '2014/11/03 < 2015/01/02 < 2015/01/03
            If (theDay <= tday) Then
                dateBetween = True
            End If
       
        ElseIf (theYear = fyear And theYear < tyear) Then
        ' 2014/11/03 < 2014/11/04 < 2015/01/03
            If (theDay >= fday) Then
                dateBetween = True
            End If
        End If
       
    End If
End Function

Function TwoDateBetween(d1 As String, d2 As String, tdate As String) As Boolean

   
    TwoDateBetween = dateBetween(d1, tdate) Or dateBetween(d2, tdate)
   
End Function

Function testDate(d1 As String)

    Dim d As Date
    d = CDate(d1) - 7
    testDate = d
   
End Function