我需要摆脱excel VBA的时间戳

Question

所以目前我正在从SQL中提取信息，日期即将到来＆＃34; 5/1/2016 12:12:05 AM＆＃34;我只需要约会！我已经尝试在excel中更改格式，但它只会更改视图，当我单击单元格时它仍然是相同的。我现在尝试使用VBA来查看是否有任何代码可以解决此问题。我有以下代码，但我收到一个错误说＃34;输入不匹配＆＃34; on .value = datevalue ....这是我现在拥有的：

Sub timechange()
Dim LR As Long, i As Long
LR = Range("b" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    With Range("b5:b3000")
        .NumberFormat = "dd/mm/yy"
        .Value = datevalue(.Value)
    End With
Next i

End Sub