Sub ButtonAddDate_Click
'---------------------------------------------
'show date dialog box in pop up box.
Dd.Year = DateTime.GetYear(DateTime.Now)
Dd.Month = DateTime.GetMonth(DateTime.Now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
DayNum = DateTime.GetDayOfWeek(Dd.DateTicks)
Select DayNum
Case 1
Day = "Right Now, it is Sunday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year
Case 2
Day = "Right Now, it is Monday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year
Case 3
Day = "Right Now, it is Tuesday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year
Case 4
Day = "Right Now, it is Wednesday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year
Case 5
Day = "Right Now, it is Thursday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year
Case 6
Day = "Right Now, it is Friday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year
Case 7
Day = "Right Now, it is Saturday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year
End Select
ret = Dd.Show(Day, "Start of Workday?", "Save", "Cancel", "", Bmp)
'-----------------------------------------------------------------------
'change top line with new day and date
DayNum = DateTime.GetDayOfWeek(Dd.DateTicks)
Select DayNum
Case 1
LabelDate.text = ("Sunday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year)
Case 2
LabelDate.text = ("Monday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year)
Case 3
LabelDate.text = ("Tuesday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year)
Case 4
LabelDate.text = ("Wednesday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year)
Case 5
LabelDate.text = ("Thursday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year)
Case 6
LabelDate.text = ("Friday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year)
Case 7
LabelDate.text = ("Saturday: " & Dd.Month & "/" & Dd.DayOfMonth & "/" & Dd.Year)
End Select
End Sub