Now()函数带有时间修剪

Question

所以函数=Now()....有一种方法我可以使用这个,只得到日期,而不是时间？

或者只是这个想法的功能？

Answer 1

有一个日期功能.

Answer 2

VBA中的日期只是浮点数,其中整数部分表示日期,分数部分表示时间.因此,除了使用Datetlayton所说的函数(获取当前日期)之外,您还可以将日期值转换为整数以从任意日期获取日期部分:Int(myDateValue).

Answer 3

DateValue(CStr(Now()))

这是我发现的最好的.如果您已将日期作为字符串,则可以执行以下操作:

DateValue("12/04/2012 04:56:15")

要么

DateValue(*DateStringHere*)

希望这有助于某人......

Answer 4

我更愿意制作一个不适用于字符串的函数：

'---------------------------------------------------------------------------------------
' Procedure : RemoveTimeFromDate
' Author    : berend.nieuwhof
' Date      : 15-8-2013
' Purpose   : removes the time part of a String and returns the date as a date
'---------------------------------------------------------------------------------------
'
Public Function RemoveTimeFromDate(DateTime As Date) As Date


    Dim dblNumber As Double

    RemoveTimeFromDate = CDate(Floor(CDbl(DateTime)))

End Function

Private Function Floor(ByVal x As Double, Optional ByVal Factor As Double = 1) As Double
    Floor = Int(x / Factor) * Factor
End Function