VB6：如何从日期类型中删除时间部分

Question

我有一个 Date 变量，其中还包含时间：

Dim dt As Date
dt = "8/3/2016 7:10:40 AM"

--> 以某种方式删除时间所以结果应该是：

dt = "8/3/2016"

如何删除时间？

Answer 1

Dim dateonly As String
dateonly = Left(dt, InStr(dt, " ")-1)

您可以通过添加测试使其更安全:

Dim dt As String
Dim pos As Integer
Dim dateonly As String

dt = "8/6/2016"
pos = InStr(dt, " ")
If pos Then
    dateonly = Left(dt, pos - 1)
Else
    dateonly = dt
End If

Debug.Print dateonly

Answer 2

对于另一个日期类型变量：

dt = DateValue(dt)

或

dt = CDate(Int(dt))

或者对于 字符串:

strdt = format$(dt, "m/d/yyyy")

VB6：如何从日期类型中删除时间部分

VB6: How to remove the Time part from Date type

vb6

date-formatting