如何设置Date和To与月份开始和结束日期？

Question

我有一个表单加载函数，在表单中我有两个日期字段_Datefrom和_Dateto。我想将这些字段设置为月份的开始日期和结束日期。因此，例如，如果当前月份是2月，我想将其设置为

_DateFrom = 2/1/2016

和

_Dateto = 2/29/2016

Answer 1

这应该这样做

Dim dateFrom = New DateTime(DateTime.Now.Year, DateTime.Now.Month, 1)
Dim dateTo = datefrom.AddMonths(1).AddDays(-1)