Question

在我的用户表单中，我有一个开始日期和结束日期。为了获得开始状态，我使用了一个dtpicker来选择日期。我得到了什么结束日期并将其自动插入到文本框中。结束日期必须是月底：

例如：

start date | 01/02/2015
end date   | 28/02/2015

或

start date | 01/01/2015
end date   | 31/01/2015

我该怎么做？

Answer 1

您可以使用开始日期TextBox的AfterUpdate事件。像。的东西。

Private Sub startDate_AfterUpdate()
    If IsDate(Me.startDate) Then
        Me.endDate = DateSerial(Year(startDate), Month(startDate) + 1, 0)
    End If
End Sub

Answer 2

此代码适用于我：

Public Function dhLastDayInMonth(Optional dtmDate As Date = 0) As Date
    ' Return the last day in the specified month.
    If dtmDate = 0 Then
        ' Did the caller pass in a date? If not, use
        ' the current date.
        dtmDate = Date
    End If

  dhLastDayInMonth = DateSerial(Year(dtmDate), _
     Month(dtmDate) + 1, 0)
End Function

设置文本框以自动获取该月的最后一天

2 个答案: