Функция now() с временной привязкой

Ответ 1

Существует функция Функция даты.

Ответ 2

Даты в VBA - это просто числа с плавающей запятой, где целочисленная часть представляет дату, а часть доли представляет время. Таким образом, помимо использования функции Date, как говорит tlayton (для получения текущей даты), вы также можете указать значение даты в целое число, чтобы получить дату-часть с произвольной даты: Int(myDateValue).

Ответ 3

DateValue(CStr(Now()))

Это лучшее, что я нашел. Если у вас есть дата как строка, которую вы можете просто сделать:

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

или

DateValue(*DateStringHere*)

Надеюсь, это поможет кому-то...

Ответ 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

Ответ 5

Вы также можете использовать формат $(сейчас(), "короткую дату" ) или любой формат даты, который вы хотите. Имейте в виду, что эта функция вернет Date как строку, поэтому лучше использовать метод Date().

Ответ 6

Вставьте эту функцию в свой модуль и используйте ее как формулу

Public Function format_date(t As String)
    format_date = Format(t, "YYYY-MM-DD")
End Function

например, в Cell A1 применяют эту формулу

=format_date(now())

он вернется в формате ГГГГ-ММ-ДД. Измените любой формат (год месяца) в соответствии с вашими пожеланиями.