Simple little exercise using the MonthView Date Picker. I'm trying to loop through print all dates from dateclicked to end of month. I'm getting stuck on the comparison value to define the end of the month. Keep getting the "argument not optional error" or and infinite loop.
Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Print DateClicked Do While Month = Month(DateClicked) Print DateAdd("d", 1, DateClicked) Loop End Sub
The problem is in the Do While line. How do I define the first value for comparison?