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

Question

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

例如，我的组合框的值为“2016年12月”，“2017年1月”，如果我选择“2016年12月”我想要“01/12/2016”“2016/12/31”

先谢谢。

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