DateBetween

Function dateBetween(d1 As String, fdate As String, tdate As String) As Boolean
    Dim d_1

    d_1 = CDate(d1)
   
    fyear = DatePart("yyyy", CDate(fdate))
    fday = DatePart("y", CDate(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, fdate As String, tdate As String) As Boolean

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