三国志13 最难攻的城:VB date与已知时间的整合!

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 07:23:12
我想把当前日期与5:30:00整合成一个完整的date类型后送给一个变量,怎么作?3Q

变量为a
Dim a As Date
Dim b As String

b = Format ( Now(), "yyyy-mm-dd" ) & "5:30:00"
a = CDate(b)

Text1.Text = Format(Now(), "yyyy-mm-dd hh:mm:ss")

Text1.Text = Format(Now(), "yyyy-mm-dd") & " 5:30:00"