以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于日期控件初始化  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134882)
--  作者：jackchan120925
--  发布时间：2019/5/11 15:17:00
--  关于日期控件初始化
老师我想打开窗口A时初始化上面的两个日期控件1和2
1的日期显示当天的0时0分0秒
2的日期显示明天的0时0分0秒

我设置如下代码
Dim sd As Date = Format(Date.Today.addhours(-12), "yyyy-MM-dd hh:mm:ss")
Dim ed As Date = format(Date.Today.adddays(0.5), "yyyy-MM-dd hh:mm:ss")
Dim ed1 As Date = format(Date.Today, "yyyy-MM-dd hh:mm:ss")

output.show(sd)
output.show(ed)
output.show(ed1)

显示如下
2019-05-10 12:00:00
2019-05-11 12:00:00
2019-05-11 12:00:00


都打不到要求，请问改如何操作？
--  作者：有点蓝
--  发布时间：2019/5/11 15:53:00
--  
Dim sd As Date = Date.Today
Dim ed As Date = Date.Today.adddays(1)

output.show(Format(sd, "yyyy-MM-dd HH:mm:ss"))
output.show(Format(ed, "yyyy-MM-dd HH:mm:ss"))