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

Question

在我的用户表单中，我有一个开始日期和一个结束日期 date.To 获取开始时间我使用 dtpicker select date.I 获取结束日期并插入它自动变成文本 box.The 结束日期必须是月底：

例如：

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

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

set text box to automatically get the last day of the month

excel

vba

userform