VB6中如何从日期时间中删除时间

Question

我目前正在使用 VB6，并且我的日期值如下所示：

2022-02-26T12:06:10+02:00

我也关注了这个网址 VB6：如何从日期类型中删除时间部分

但不起作用，尤其是最后一个仍然显示日期为

2022-02-26T12:06:10+02:00

这是我的代码

Dim tdate As String

    tdate = format$("2022-02-26T12:06:10+02:00" , "m/d/yyyy")

输出仍然是2022-02-26T12:06:10+02:00

Answer 1

您的输入是 ISO8601 格式的字符串。由于它是固定格式的字符串，最简单的方法就是截掉前 10 个字符。

isoDateTimeString = "2022-02-26T12:06:10+02:00"

要将日期部分作为另一个字符串获取：

Dim dateAsString As String
dateAsString = Left$(isoDateTimeString, 10)
'// for 2022-02-26

或者将其作为日期类型获取：

Dim dateAsDateType As Date
dateAsDateType = CDate(Left$(isoDateTimeString, 10))
'// for 26/02/2022 (or whatever your locale format is)