установить текстовое поле, чтобы автоматически получить последний день месяца

Question

В моей форме пользователя у меня есть дата начала и дата окончания. Чтобы получить начальную строку, я использовал dtpicker, чтобы выбрать дату. Я, чтобы получить дату окончания и вставить его автоматически в текст box.The даты окончания должен быть конец месяца:

Для примера:

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

или

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

Как я могу это сделать?

Answer 1

Этот код работа для меня:

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 

Answer 2

Вы можете использовать событие AfterUpdate даты начала TextBox. Что-то вроде.

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