"Filter Mail Messages" in Automator doesn't filter out mails of today

Question

Is it me, or does the Automator action "Filter Mail Messages" doesn't have an option to find messages that have not been sent or received today. It seems that there is no option to get rid of the messages sent or received today while filtering.
I mean there is no option for "Date received" -> "Not today"; and I seem to can not find any easy workaround for this.
i.e. What I'm trying to do is, filter the messages that are in a certain mailbox and are not sent or received in the last 7 days. However, the mails of today always show up.
I hope somebody had found a solution to this, it appears to be an obvious problem with the Automator, trying to work with the Mail App and many have probably run into this before.
Thanks!

Answer 1

OK.... Did a bit more debugging... updated script
property secondsIn21Days : 1814400
on run {input, parameters}
  try
  set dateToday to current date
  tell application "Mail"
  set archiveCount to 0
  set theArchiveMailboxName to "CurrentArchive"
  if (mailbox theArchiveMailboxName exists) = false then
  make new mailbox with properties {name:theArchiveMailboxName}
  end if
  repeat with aMessage in input
  -- set theMessages to input
  -- repeat with aMessage in theMessages
  set messageRDate to date received of aMessage
  set messageSDate to date sent of aMessage
  set messageSubject to subject of aMessage
  set messageID to id of aMessage
  set timeRDifference to 0
  set timeSDifference to 0
  -- if messageRDate > 0 then
  set timeRDifference to dateToday - messageRDate
  -- end if
  -- if messageSDate > 0 then
  set timeSDifference to dateToday - messageSDate
  -- end if
  display dialog messageSubject & " " & messageID & " " & timeRDifference & " " & timeSDifference
  if timeRDifference > secondsIn21Days then
  display dialog "Move " & messageID & " Received" & messageRDate & " " & messageSDate
  move aMessage to mailbox theArchiveMailboxName
  set archiveCount to archiveCount + 1
  else if timeSDifference > secondsIn21Days then
  display dialog "Move " & messageID & " Sent" & messageRDate & " " & messageSDate
  move aMessage to mailbox theArchiveMailboxName
  set archiveCount to archiveCount + 1
  end if
  end repeat
  end tell
  display notification "emails archived = " & archiveCount with title "Mail Archive"
  -- return -- Successful completion of handler.
  on error errStr number errorNumber
  -- If our own error number, warn about bad data.
  -- if the errorNumber is equal to 750 then
  -- display dialog "All items in the list must be integers."
  -- return integerSum -- Return the default value (0).
  -- else
  -- An unknown error occurred. Resignal, so the caller
  -- can handle it, or AppleScript can display the number.
  error errStr number errorNumber
  display notification "emails archived = " & archiveCount with title "Mail Archive"
  -- end if
  end try
end run