Dim CurDate As Date = #8/5/2014#
Dim FirstDateOfWeek As String MessageBox.Show("CurDate =" & CurDate )
FirstDateOfWeek = Format(CurDate.AddDays( 1), "yyyy-MM-dd") MessageBox.Show("FirstDateOfWeek =" & FirstDateOfWeek )