Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перевод времени 
:(
    Опции темы
oWe
Дата 8.12.2002, 12:14 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Сам скрипт на забугорном хосте, для определения времени используется естественно localtime... Дык вот, как сделать, чтобы к местному(заграничному) времени прибавлялась разница часового пояса? Не просто же прибавлять количество часов???
  Вверх
Wowa
Дата 8.12.2002, 18:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
Group Icon


Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290
Код

sub calculate_time {
# calculate Moscow time
my $moffset = 3;
my ($zsec,$zmin,$zhour,$zday) = (localtime(0))[0,1,2,3];
my $zoffset = ($zday==31) ? -(24-$zhour):$zhour;
my ($sec,$min,$hour,$day,$month,$year) = (localtime(time + ($moffset - $zoffset)*3600))[0,1,2,3,4,5];
$year=$year+1900;
$month++;
if ($month<10) {$month='0'.$month};
if ($day<10) {$day='0'.$day};

$date = join ("-", $year, $month, $day);
$date_ext = $date.' ';
$temp = join (":", $hour, $min, $sec);
$date_ext = $date_ext.$temp;
return $date;
}
PM WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0396 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.