基於組合框獲取月份的第一天和最後一天

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