我正在编写Excel2010中的VBA脚本,该脚本根据事件的日期从MySQL数据库中提取某些事件。数据库中的日期存储在“yyyy:mm:ss”中。我的用户将使用从日期范围过滤他们感兴趣的事件。为了使它们更容易,我使用两个日历控件(mscal.ocx)作为范围- Calendar1表示from,Calendar2用于to。我编写了两个简单的子例程,以确保日历上的每一次单击都会自动更新用于获取查询字符串数据的单元格,如下所示:
Private Sub Calendar1_Click()
Dim date1, datetime1, time1 As Date
Cells(29, 10) = CD
让我说我有这样的数据
df1:
datetime1 datetime2
0 2021-05-09 19:52:14 2021-05-09 20:52:14
1 2021-05-09 19:52:14 2021-05-09 21:52:14
2 NaN NaN
3 2021-05-09 16:30:14 NaN
4 NaN NaN
5