基于组合框获取月份的第一天和最后一天

Question

我的问题是如何根据组合框将一个月的第一天和最后一天置于文本框中。

例如，如果我选择“2016年12月”，我的组合框中包含“2016年12月”，“2017年1月”等值，“01/12/2016”“31/12/2016 “

在此先感谢。

Answer 1

这会让你两个约会。只需用您的组合框替换我使用的静态日期。

Dim dt As Date 
If Date.TryParse("December-2016", dt) Then 
    Dim startDt As New Date(dt.Year, dt.Month, 1) 
    Dim endDt As New Date(dt.Year, dt.Month, Date.DaysInMonth(dt.Year, dt.Month)) 
End If