以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助,乍获取时间部分  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116850)

--  作者:UBSS
--  发布时间:2018/4/1 16:09:00
--  求助,乍获取时间部分
Dim cmd As New SQLCommand 
Dim dt As Date
cmd.C    \'数据源名
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()   \'时间和日期



如上代码,乍获取DT的时间部分

--  作者:有点甜
--  发布时间:2018/4/1 19:56:00
--  
Dim d As Date = Date.now
msgbox(format(d, "HH时mm分ss秒"))