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

[Mike Hildner]

A quick look at your code - are you ever calling your functions? I think in the button code you could do

lblDisplay.Text = ("Number of weekdays " & CalcWeekDays() & "." & " Number of weekends " & CalsWeekEnds & ".")

or

mNumWeekdays = CalcWeekdays()
mNumWeekends = CalcWeekends()
 
lblDisplay.Text = ("Number of weekdays " & mNumWeekdays & "." & " Number of weekends " & mNumWeekends & ".")

[ayan]

halu,

i think the code above hangs up. it some sort of an infinite loop. it doesn't add a single day to mArrDate. i could have post but i didn't got the function to add a single day to a datetimepicker.value... sorry...

anyone???

--ayan

[Mike Hildner]

Yep, you're right - at first look I didn't really inspect your code. This is a problem:

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

If mArrDate is today and mDepDate is a week from today, your Do...While loop will never end.

You're probably going to need to rethink and recode.