以下代码给出了选择日期的第一天。
例如,如果月份日历控制的选择日期是20.02.2016,那么下面的代码给出01.02.2016。
CLng((DateValue(MonthCalendar1.SelectionStart.AddDays(-MonthCalendar1.SelectionStart.Day + 1).ToShortDateString).ToOADate))
我决定用MaskedTextBox1控件替换MonthCalendar1控件。
那么,如何为MaskedTextBox1控件重新设计上面的代码?
答案 0 :(得分:1)
尝试:
Dim _date As Date = Date.Parse(MaskedTextBox1.Text)
Dim _firstDayOfMonth As Date = New Date(_date.Year, _date.Month, 1)