从iCal获取今日活动与AppleScript

Question

我遍历iCal中的所有事件以仅获取今天的事件，但我不认为这是有效的。有没有一种功能/方法只能获得今天的活动？

tell application "iCal" 
    tell calendar "Lotus Notes" 
     set today to (current date) 
     set this_year to year of today 
     set this_month to month of today 
     set this_day to day of today 

     repeat with c in every event 
      set d to start date of c 
      set the_year to year of d 
      set the_month to month of d 
      set the_day to day of d 
      if (the_year = this_year) and (the_month = this_month) and (the_day = this_day) then 
       show c 
      end if 
     end repeat 
    end tell 
end tell 

Answer 1

试试这个：

set {year:y, month:m, day:d} to current date 
set str to (m as string) & " " & (d as string) & " " & (y as string) 
set today to date str 
set tomorrow to today + 60 * 60 * 24 

tell application "iCal" 
    tell calendar "Lotus Notes" 
     set curr to every event whose start date is greater than or equal to today ¬ 
      and start date is less than or equal to tomorrow 
    end tell 
end tell