3 
table = {{ID1, SQLDateTime[{1978, 1, 10, 0, 0, 0.`}]}, 
{ID2, SQLDateTime[{1999, 1, 10, 0, 0, 0.`}]}, 
{ID3, SQLDateTime[{2010, 9, 10, 0, 0, 0.`}]}, 
{ID4, SQLDateTime[{2011, 1, 10, 0, 0, 0.`}]}}

tableSQLDateTime が昨年 ( ) 内にあるすべてのケースを返したいと思いDatePlus[{-1, "Year"}]ます。これらのケースの検索を指定するにはどうすればよいですか?

4

2 に答える 2

6

次を使用することもできますDateDifference。

Cases[table, {a_, SQLDateTime[b_]} /; 
  DateDifference[b, DateList[], "Year"][[1]] <= 1]
于 2011-08-08T18:50:18.033 に答える
4 
Select[table, (AbsoluteTime[ DatePlus[{-1, "Year"}]] <= 
    AbsoluteTime[ #[[2, 1]]] <= AbsoluteTime[ ] &)]

(* ==> {{ID3, SQLDateTime[{2010, 9, 10, 0, 0, 0.}]}, 
        {ID4,SQLDateTime[{2011, 1, 10, 0, 0, 0.}]}
        } 
*)

小さな更新 (Leonid のコメントに基づく Date[] の事前キャッシュ): 

With[
 {date = Date[]},
 Select[table, 
    (AbsoluteTime[ DatePlus[date, {-1, "Year"}]] <= 
     AbsoluteTime[ #[[2, 1]]] <= AbsoluteTime[date ] &)]
 ]

これにより、現在の時刻DatePlus[{-1, "Year"}]ではなく今日の日付のみを考慮に入れるオリジナルの問題も解消されます。

于 2011-08-08T18:54:42.297 に答える