How to set the Week Beginning Date

[CoachBarker]

I have an app project that is a basic Diabetes Monitoring System. It is for a class in GUI design, not coding but I am trying to code it as precise as I can.

In the form where the user would enter any execise information I have a field Week Beginning. I would like to set this so that the beginning of each week is Sunday with the current date of that Sunday.

Me.txtDateEntered.Text = Now.ToShortDateString

and then is set in the data base as that date. What I want to end up with is a way to set the Week beginning to Sunday, then after one week it would reset to the date of the new Sunday and so on. I can then run a query to load the form where it accepts UserId and WeekBeginning as parameters.

This is the form:

Any help or advice is appreciated
Thanks
CoachBarker

 

[InertiaM]

        Dim dtSunday As Date = Date.Now.AddDays(0 - Date.Now.DayOfWeek)
        Me.txtDateEntered.Text = dtSunday.ToString()

 

[CoachBarker]

Thanks, that seems to work just fine.

CoachBarker