Member Avatar for Triple_7

How do you display the week ending date (Sunday) in VB10? When a form loads, I want to display the upcoming Sunday date in a label. In VB6 I used the following code and it worked fine.

Private Sub Form_Load()
' Set Default "Week Ending" Date
lblWkEndDate.Caption = (Date + 7) - (Weekday(Date)) + 1
End Sub

Any and all help would be greatly appreciated. Thank you.

  • 3 Contributors
  • 4 Replies
  • 153 Views
  • 1 Week Discussion Span
  • Latest Post Latest Post by cgeier
Member Avatar for cgeier 
Dim nextSunday As Integer

nextSunday = (DateTime.Now.AddDays(7)).Day - (Weekday(DateTime.Now)) + 1
Edited by cgeier
Member Avatar for Triple_7

Thank you very much.

How would I get the date into format mm/dd/yyyy?

Member Avatar for Jefferson_1

Try

nextSunday.ToString("MM/dd/yyyy")
Member Avatar for cgeier 
Dim dt As DateTime = DateTime.MinValue

dt = DateTime.Now.AddDays(7 - Weekday(DateTime.Now) + 1)

Console.WriteLine(dt.ToString("MM/dd/yyyy"))
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.