VB6: Wie die Zeit Teil von Datumstyp entfernen

Question

ich eine Date-Variable haben, die auch die Zeit enthält:

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

-> irgendwie die Zeit entfernen, so das Ergebnis sein sollte:

dt = "8/3/2016" 

Meine Frage ist, wie die Zeit zu entfernen?

Dank

Answer 1

Für ein anderes Datum Typ Variable:

dt = DateValue(dt) 

oder

dt = CDate(Int(dt)) 

Oder für einen String:

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

Answer 2

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

Sie können es sicherer machen, indem ein Test ergänzt:

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