有两个日期时间变量，怎么样设置成日期为系统当前日期，时间分别为0点0分0秒和23点59分59秒？日期时间变量怎么样做部分赋值，如只改变他的日期，或者只改变他的时间？
最佳答案
VBS易操作。主要就是字符串拼凑，系统时间函数，数据类型转换函数。
完整的时间格式为：yyyy-mm-dd Hh:Nn:Ss
Dim CurNow,sTime,DTime1,DTime2
CurNow = Now ''得到系统当前时间
sTime = CStr(Year(CurNow)) _
& "-" & Right("00" & CStr(Month(CurNow)),2) _
& "-" & Right("00" & CStr(Day(CurNow)),2)
DTime1 = CDate(sTime & " 00:00:00")
DTime2 = CDate(sTime & " 23:59:59")
提问者对于答案的评价：
谢谢，这个方法还是比较快速哦，VBS的语法还是不太熟啊，哪里有资料提升分享提升一下
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc315473.html
微信扫一扫 
支付宝扫一扫 