vb 关于时间转字符串

2024年12月04日 16:18

有4个网友回答

网友（1）：

Dim S As Date
S = #2013-05-23 15:00:00# '日期型变量在赋值时，前后要加#
shijian = Format(S, "YYYYMMDDHHmmSS")

网友（2）：

    Dim s As Date
    s = Now
    shijian = Format(s, "yyyymmddhhmmss")

    Dim s As Date
    s = #5/23/2013 3:00:00 PM#
    shijian = Format(s, "yyyymmddhhmmss")

网友（3）：

Dim s, hr, sc, hor As String
Dim mydate As Date, shici As Date
s = "20130624050000"
hr = 1
mydate = Format(s, "####-##-## ##:##:##")
shici = DateAdd("h", hr, CDate(mydate))
hor = Format(shici, "YYYYMMDDHHmmSS")
Debug.Print hor

网友（4）：

s = "2013-05-23 15：00：00"