Выбор точных записей двух дат - PullRequest
Новая
       12

Выбор точных записей двух дат

0 голосов
/ 05 октября 2018

У меня вопрос по поводу: средства выбора даты Month View Control 6.0 в форме Excel VBA, которое я использую для фильтрации между датами записей.Когда я выбираю конкретные даты, т.е.С 4/6/2016 по 16/16/2016 он не будет включать в себя записи 16-го числа, а только набор записей с 6-го и до 16-го числа, а не записи 16-го. Как можно включить эту дату (16-е)без необходимости идти на свидание после 16-го.Я надеюсь, что я понимаю.

вот мой код: 

Private Sub btnStDateCal_Click()
    Cal2.lblCtrlName = "tbStDate"
    Cal2.lblUF = "frmfilter"
    Cal2.Show
End Sub

Private Sub fCal_DateClick(ByVal DateClicked As Date)
For Each Uf In VBA.UserForms
If Uf.Name = Cal2.lblUF Then
    For Each ctl In Uf.Controls
        If ctl.Name = Cal2.lblCtrlName Then
                'found the control to give the date to
            ctl.Value = DateClicked
            Me.Hide
            Exit Sub
        End If
    Next ctl
  End If
End Sub

 Private Sub btnEndDateCal_Click()
        Cal3.lblCtrlName = "tbEndDate"
        Cal3.lblUF = "frmfilter"
        Cal3.Show
  End Sub

Private Sub Cal_DateClick(ByVal DateClicked As Date)
For Each Uf In VBA.UserForms
If Uf.Name = Cal.lblUF Then
    For Each ctl In Uf.Controls
        If ctl.Name = Cal.lblCtrlName Then
            'found the control to give the date to
            ctl.Value = DateClicked
            Me.Hide
        End If
      Next ctl
    End If

End Sub

...