ぜろちゃんねるスクリプト総合質問スレ Part8

9 ：名無しさん＠ぜろちゃんねる：2006/09/09(土) 10:01:55 ID:Pjt50SkE0

>>8
返信ありがとうございます。こちらでしょうか。
すみません、いまいち意味が分かりません。
modeは0なんですが・・・
#---------------------------------------------------------
#
# シリアル値から日付文字列を取得する
# ----------------------------------------------------
# @param $serial シリアル値
# @param $mode 0:時間表示有り 1:日付のみ
# @return 日付文字列
#
#---------------------------------------------------------
sub GetDateFromSerial
{
my $this = shift;
my ($serial,$mode) = @_;
my (@info,$week);

$ENV{'TZ'} = "JST-9";
@info = localtime($serial);
$info[5] += 1900;
$info[4] += 1;

$week = ('日','月','火','水','木','金','土')[$info[6]];
$info[4] = "0$info[4]" if ($info[4] < 10);
$info[3] = "0$info[3]" if ($info[3] < 10);
$info[2] = "0$info[2]" if ($info[2] < 10);
$info[1] = "0$info[1]" if ($info[1] < 10);

return "$info[5]/$info[4]/$info[3]" if ($mode == 1);
return "$info[5]/$info[4]/$info[3] $info[2]:$info[1]" if ($mode == 0);
}