Date Time Picker

[mccullom]

I'm new the dateTime picker and was wondering if someone can tell me why this output keeps producing a 0 weekdays and 0 weekends? Thanks!

Dim mNumWeekdays As Integer
    Dim mNumWeekends As Integer
    Dim mArrDate As Date
    Dim mDepDate As Date
 
    Public Function CalcWeekdays() As Integer
        mArrDate = Me.dtpArrive.Value
        mDepDate = Me.dtpDepart.Value
        Do While mArrDate <= mDepDate
            If mArrDate.DayOfWeek = DayOfWeek.Sunday Or mArrDate.DayOfWeek = DayOfWeek.Monday Or mArrDate.DayOfWeek = DayOfWeek.Tuesday Or mArrDate.DayOfWeek = DayOfWeek.Wednesday Or mArrDate.DayOfWeek = DayOfWeek.Thursday Then
                mNumWeekdays += 1
            End If
        Loop
        Return mNumWeekdays
    End Function
 
    Public Function CalcWeekends() As Integer
        mArrDate = Me.dtpArrive.Value
        mDepDate = Me.dtpDepart.Value
        Do While mArrDate <= mDepDate
            If mArrDate.DayOfWeek = DayOfWeek.Friday Or mArrDate.DayOfWeek = DayOfWeek.Saturday Then
                mNumWeekends += 1
            End If
        Loop
        Return mNumWeekends
    End Function
 
    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
 
        lblDisplay.Text = ("Number of weekdays " & mNumWeekdays & "." & " Number of weekends " & mNumWeekends & ".")
    End Sub