Datomic从即时获得一年

Question

我有一个类型为instant的属性，我想查询年份。

[:find ?year
 :where
 [?t :x/date ?date]
 [((fn [dt] (+ (.getYear dt) 1900)) ?date) ?year]]

有更好的方法来进行此查询吗？