Mathematica에서 가장 가까운 타임 스탬프 찾기 Mathematica에서

Question

주어진 시간에 가장 가까운 타임 스탬프를 찾아야합니다. 내가 가진 :

{"2017-11-10 21:36:12.135", "2017-11-10 21:36:50.535", 
"2017-11-10 21:37:28.935", "2017-11-10 21:38:07.335", ...} 

그래서

지금 내가 할 :

alltrafotstamps = (DateList[#1]) & @@@ reddata[[All, 1]] 

은 무엇 타임 스탬프의 목록이 어떻게 생겼는지 뭔가 제공

Nearest[alltrafotstamps, DateList["2017-11-10 22:56:50.535"]] 

을 나는이 메시지를 얻을 :

Nearest::neard: The default distance function does not give a real numeric distance when applied to the point pair 2017 and 2017-11-10 21:36:12.135. 

을

가장 가까운 사람 일 수 있습니까? 타임 스탬프 용이지만 시간에만 사용할 수 있습니까?

Answer 1

alltrafotstamps = { 
    "2017-11-10 21:36:12.135", 
    "2017-11-10 21:36:50.535", 
    "2017-11-10 21:37:28.935", 
    "2017-11-10 21:38:07.335"}; 

target = "2017-11-10 21:37:00"; 

nearest = Nearest[ 
    AbsoluteTime /@ alltrafotstamps, 
    AbsoluteTime[target]]; 

DateObject @@ nearest 

DateList @@ nearest 

그것은 작동

{2017, 11, 10, 21, 36, 50.535}