Задача тривиальная...

Sumo 28.06.2012 10:25 / 28.06.2012 10:35

@main[]
  ^convDate[25.06.2012]
  ^convDate[lkjglksfdgfsd]

@convDate[aDate]
  $result[^date::now[]]
  ^try{
    ^aDate.match[^^(\d+)\.(\d+).(\d+).*^$][]{
      $result[^date::create($match.3;$match.2;$match.1;$result.hour;$result.minute;$result.second)]
    }
  }{
    $exception.handled(true)
  }
  $result[^result.sql-string[]]

Если в форме нам пришлют что-то невалидное, то подставляем текущую дату.

p.s. Написание этого кода заняло не больше времени, чем вы писали сообщение. Может стоило сразу писать код? :)

---