SEPdate控制 – DateChange事件不起作用

我正在使用VBA来处理SEPdate控制（使用Office 2016）。 通常它似乎工作正常，但是当我在DateChanged（）过程中添加任何代码的date不会改变。 我正在使用这个代码：

Private Sub LDDate1_DateChanged() Debug.Print Me.LDDate1.Date End Sub 

例如：当前date是2017年12月14日。 当我点击日历并select（鼠标点击）2017/12/15，它在立即窗口中返回2017-12-14（两次！）。 日历还是2017/12/14。 日历工作正常，当我删除

 Debug.Print Me.LDDate1.Date 

我真的很喜欢这些支持