如何通过忽略时间和秒将日期解析为clj-time

Question

给定以下字符串，我希望获得一个仅包含日期的date-time -

String "2013-02-20T17:24:33Z"，我希望获得一个日期，而忽略时间和秒。

下面的代码将会起作用- (parse (formatters :date-time-no-ms) "2013-02-2T17:24:33Z")。但是，生成的date-time对象也包含secs，如何将其缩减为年-月-日？

一种方法是执行正则表达式并提取所需的详细信息，然后将其解析为date - (clojure.core/re-find #"\d{4}-\d{2}-\d{1,2}" "2013-02-20T17:24:33Z") (parse (formatters :date) "2013-02-20")

然而，应该有一种更好的方法来实现上面的功能，仅仅使用clj-time？

Answer 1

(defn floor [dt f] 
  (apply date-time 
    (map #(%1 dt) 
      (take-while (partial not= f) [year month day hour minute sec milli]))))

(floor (parse (formatters :date-time-no-ms) "2013-02-2T17:24:33Z") hour)

Answer 2

clj-time只是一个围绕Joda Time的包装器，所以您可以直接调用DateTime对象上的方法，幸运的是，有一个DateTime#toDateMidnight()方法

user=> (parse (formatters :date-time-no-ms) "2013-02-2T17:24:33Z")
#<DateTime 2013-02-02T17:24:33.000Z>
user=> (.toDateMidnight (parse (formatters :date-time-no-ms) "2013-02-2T17:24:33Z"))
#<DateMidnight 2013-02-02T00:00:00.000Z>

Answer 3

使用DateTime方法.withTimeAtStartOfDay

(let [^DateTime dt (parse (formatters :date-time-no-ms) "2013-02-2T17:24:33Z")]
  (.withTimeAtStartOfDay dt))

请注意，type hint ^DateTime显著提高了性能。