Android Question Compare date in a range

Dim Filter_Date1 as Long = 0
Dim Filter_Date2 as Long = 0

Sub Activity_Create(FirstTime As Boolean)

'TIME AND DATE
    Dim Now As Long = (DateTime.GetDayOfWeek(DateTime.Now)-3)
    Filter_Date2 = DateTime.Now
    Filter_Date1 = DateTime.Now-(DateTime.TicksPerDay*Now)
    
End Sub


Public Sub DayInFilter(Day As String) As Boolean
    Dim d1 As String = DateTime.Date(Filter_Date1)
    Dim d2 As String = DateTime.date(Filter_Date2)
   
Dim Result as Boolean = DB.CompareDates(Day, d1,d2))

    Log("Date: " & Day & " between dates Start: " & d1 &" End: " & d2 & " is " & Result

    Return Result
End Sub

Public Sub CompareDates(CurrentDate As String, Date1 As String, Date2 As String) As Boolean
    DateTime.DateFormat = "dd/mm/yyyy"

    Dim cd As Long = DateTime.DateParse(CurrentDate)
    Dim d1 As Long = DateTime.DateParse(Date1)
    Dim d2 As Long = DateTime.DateParse(Date2)
   
    If cd >= d1 And cd <=d2 Then
        Return True
       
    Else
        Return False
    End If
End Sub