携帯版 orzがっくし べっかんこ 過去ログ
画面右上から文中検索できます
jikkyo.org ■掲示板に戻る■ 全部 1- 101 201 301 最新50 read.html(js) [PR]Win,Mac,Linux等で使える外部板登録済の専用ブラ[PR]  

★管理★運用情報:jikkyo.org/Part1

12chohnan ★:06/03/30 20:44:56 ID:???
めもめも。


#------------------------------------------------------------------------------------------------------------
#
#日付取得 - GetDate
#--------------------------------------
#引 数:なし
#戻り値:日付文字列
#
#------------------------------------------------------------------------------------------------------------
sub GetDate
{
use Time::HiRes qw(gettimeofday);
my ($xsec, $xmsec) = gettimeofday;
my$this = shift;
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
my($week,$date);

$xmsec = substr($xmsec,0,2);
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon++;
if ($mon < 10) { $mon = "0$mon"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }

$year = substr($year,0,4);
$week = ('日','月','火','水','木','金','土') [$wday];

# 日時のフォーマット(yy/mm/dd hh:mm:ss)
$date = "$year/$mon/$mday($week) $hour:$min:$sec.$xmsec";
return $date;
}
#------------------------------------------------------------------------------------------------------------

136 KB [ 外部板でも2ちゃんねる 専用ブラウザが使える 登録法はこちら ]

新着レスの表示

掲示板に戻る 全部 前100 次100 最新50 read.html(js) Firefox bbs2chreader
名前: E-mail(省略可): フロート書込(AA対応)

書き込む前に読もう 利用規約 BBSガイド(規則・機能の説明)

スレッドの勢い: 0 res/day
read.cgi ver 100509 0ch+17+gns+jikkyo.org + dat2html_popup.js | CGI gzip