Applescript to check if there are any events today

Question

I'm wondering if there's an easy way to use Applescript to just check if there is any event in a certain calendar for the current day.

Answer 1

Actually, I managed to get it with some tinkering. I had issues at first with it not being able to find all day events (as it was getting the current time and all day events start at 12:00:00 AM) but I fixed that by putting the date in a string with a manually defined time of 12:00:00, converting it back to a date and using that. Here's the code:
set {year:y, month:m, day:d, weekday:wd} to (current date)
set str to (wd as string) & ", " & (d as string) & " " & (m as string) & ", " & (y as string) & " 12:00:00 AM"
set today to date str
set tomorrow to today + 60 * 60 * 24
tell application "Calendar"
          tell calendar "Personal"
                    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