| |
老有人说看不懂LB的原始时间格式，有空做了一个把时间还原成原始时间格式的程序，大家可以参考，未经许可，不得转载哦q(V(
代码：
=
sub gettime:0^>
{#取得指定时间Unix时间戳, CopyRight 94Cool.Net BigJim,OVADz
my ($year, $month, $day, $hour, $minute) = @_;1H/
my $nowtime = time;Q^
my ($nowsecond, $nowminute, $nowhour, $nowday, $nowmonth, $nowyear, undef) = localtime($nowtime);ZcT/L
$nowmonth++;MXa
$nowyear += 1900;sy
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 <
my @monthdays = (0, 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334);@+3EE}
@monthdays = (0, 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335) if ($year % 4 == 0);*Q8
my @nowmonthdays = (0, 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334);wT
@nowmonthdays = (0, 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335) if ($nowyear % 4 == 0);zJz}YI
©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 /r9S
my $betweendays = ($year - $nowyear) * 365 + ($monthdays[$month] - $nowmonthdays[$nowmonth]) + ($day - $nowday) + int(($year - $nowyear + 1) / 4);DfR`
return $nowtime + $betweendays * 86400 + ($hour - $nowhour) * 3600 + ($minute - $nowminute) * 60 - $nowsecond;s.x6s
}©雷傲极酷超级论坛 -- 雷傲极酷超级论坛，最新软件，BT 下载，游戏娱乐，交友聊天，您网上的自由天堂 j?
|
|
H.Si#
| | |
|
|
|
顶端 
加到"个人收藏夹"
主题管理：
总固顶 
取消总固顶 
引用
回复
只看我
2004/03/31 03:26am 
IP: 已设置保密
