3ds热血物语sp视频:VB date与已知时间的整合!

来源:百度文库 编辑:高考问答 时间:2024/05/03 03:05:53
我想把当前日期与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"