用VBS写如果一个数据跨越两天则在表格里不删除，如果一个数据仅在今天则在表格里删除
以下是使用VBS解决此问题的代码：
Dim startdate, enddate, currentdate
startdate = InputBox("请输入数据的开始日期") '定义变量startdate，存储数据的开始日期
enddate = InputBox("请输入数据的结束日期") '定义变量enddate，存储数据的结束日期
currentdate = Now() '定义变量currentdate，存储当前时间戳
If startDate <= currentDate And currentDate <= endDate Then '判断当前时间是否在开始和结束之间
MsgBox "不删除" '如果在，则不删除该表格数据
Else '否则执行下一步
MsgBox "删除" '如果不在，则在表格中将其删除。
End If
免责声明：
以上内容除特别注明外均来源于网友提问，创作工场回答，未经许可，严谨转载。