alexei
ibhacker | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Grey2002
Где-то уже была такая тема, но все же отвечу. В ikon.lib следующие sub'ы:
sub dateformat
sub longdate
sub shortdate
sub shorttime
sub dateformatshort
sub joineddate
Если я не ошибаюсь для dateformat надо будет сделать так:
Код: sub dateformat {
my $time = shift;
(my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) = localtime($time);
# my @months = ('Янв.','Февр.','Март','Апр.','Май','Июнь','Июль','Авг.','Сент.','Окт.','Нояб.','Дек.');
# $mon = $months[$mon];
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$year = $year + 1900;
$mon++;
return "$hour:$min $mday-$mon-$year";
} |
В масиве @months содержаться названия месяцев, а тут
Код:
идет подстановка поэтому мы их закомментируем. Поскольку начинается с нуля делаем
Код:
Также можно сменить формат вывода вот тут:
Код:| return "$hour:$min $mday-$mon-$year"; |
|
