Можно еще проще...

Sumo 12.09.2014 10:43 / 12.09.2014 12:30

@drivers_day[aYear][locals]
  $lCal[^date:calendar[rus]($aYear;10)]
  ^lCal.offset[set](-1)
  ^while(!def $lCal.6){
    ^lCal.offset[cur](-1)
  }
  $result[$lCal.6]