说话声音好听的女生:VB date与已知时间的整合!

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