Этого я и боялся.

Luzhnikovskiy 29.06.2002 13:38

Не вкомпилено... В исходниках есть точно, но предлагать собрать не буду - не всем нравятся такие предложения

Вот те парочка макросов:
# это пихаем в @auto[], -> заменяем на табулятор
$month[^table::create{num -> name -> name_r
1 -> январь -> января
2 -> февраль -> февраля
3 -> март -> марта
4 -> апрельмапреля
5 -> май -> мая
6 -> июнь -> июня
7 -> июль -> июля
8 -> август -> августа
9 -> сентябрь -> сентября
10 -> октябрь -> октября
11 -> ноябрь -> ноября
12 -> декабрь -> декабря}]

@mysql2date[mysql;full;with_time][d;dt;tm]
###########################################################
# ^mysql2date[2002-06-29 13:35:00] возвращает строку 29.06.2002
# ^mysql2date[2002-06-29 13:35:00;yes] возвращает строку 29 июня 2002
# ^mysql2date[2002-06-29 13:35:00;;yes] возвращает строку 29.06.2002 13:35
# ^mysql2date[2002-06-29 13:35:00;yes;yes] возвращает строку 29 июня 2002 13:35
# вместо "yes" можно использовать любую строку - проверяется просто def/undef
^if(def $mysql){
$dt[^mysql.lsplit[ ]]
$dt[^dt.piece.lsplit[-]]
$dt[^dt.flip[]]
^if(def $full){
^if(^month.locate[num;^dt.1.int[]]){
$d[^if(^dt.2.int[]){^dt.2.int[] }$month.name_r ^dt.0.format[%04d]]
}{
$d[^if(^dt.0.int[]){^dt.0.format[%04d]}]
}
}{
$d[^if(^dt.2.int[]){^dt.2.int[]-}^if(^dt.1.int[]){^dt.1.format[%02d]-}^if(^dt.0.int[]){^dt.0.format[%04d]}]
}
^if(def $with_time){
$tm[^mysql.lsplit[ ]]
^tm.offset[set](1)
$tm[^tm.piece.lsplit[:]]
$tm[^tm.flip[]]
$result[$d, $tm.0:$tm.1]
}{
$result[$d]
}
}{
$result[]
}

изменяй как хочешь ;-)

---