以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何修改日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133014)
--  作者：lihe60
--  发布时间：2019/4/3 22:39:00
--  如何修改日期
如果时间部分晚于18:00，如2019-01-01 19:00，自动改为2019-01-01 18:00，否则不改，代码如何写？
--  作者：peipei
--  发布时间：2019/4/3 22:59:00
--  是你要的效果吗？
Dim T As  Date=Date.now()
Dim S As String
S=T.YEAR & "-" & T.MONTH & "-" & T.DAY &" 18:00"
If T.hour>18 Then
    t=CDate(S)
End If
output.show(T)
--  作者：有点甜
--  发布时间：2019/4/3 23:55:00
--  

 

去你datacolchanging事件修改代码