| |
老有人说看不懂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#
| | |
|
|
|