請問一個時間計(jì)算的問題

ZealeS

請問一個時間計(jì)算的問題：
下面是我用C計(jì)算2005-01-18 12:30:00之前45分鐘的時間。

1. 
   
2.   char s_time[128];
   
3.   struct tm ptr;
   
4.   time_t lt;
   
5.   
   
6.   ptr.tm_sec = 0; //秒
   
7.   ptr.tm_min = 30; //分
   
8.   ptr.tm_hour = 12;        //小時
   
9.   ptr.tm_mday = 18; //天
   
10.   ptr.tm_mon = 1 -1; //月
    
11.   ptr.tm_year = 2005 - 1900; //年
    
12.   ptr.tm_isdst = 0;
    
13.   
    
14.   lt = mktime (&ptr) + 45 * 60; //45分鐘
    
15.   ptr = *localtime ( &ls );                //轉(zhuǎn)化時間
    
16.   sprintf (s_time, "%02d-%02d-%02d %02d:%02d:%02d", ptr.tm_year + 1900, ptr.tm_mon + 1,
    
17.                      ptr.tm_mday, ptr.tm_hour, ptr.tm_min, ptr.tm_sec);
    

復(fù)制代碼

雖然這種方法有時改變時區(qū)可能造成問題, 但還是很舒服的.
這樣我就可以得到時間2005-01-18 11:45:00.
還可以順便得到其它的內(nèi)容,比如星期幾等.

但是用Perl就不知道怎么實(shí)現(xiàn)了.Perl應(yīng)該怎樣才能實(shí)現(xiàn)呢?

deathcult

print scalar localtime(time -45*60)

ZealeS

[quote]原帖由 "deathcult"]print scalar localtime(time -45*60)[/quote 發(fā)表：

版主誤解我的意思了。
我要的不是系統(tǒng)時間的計(jì)算。
而是根據(jù)隨便輸入的日期進(jìn)行計(jì)算，在不用其他算法的基礎(chǔ)上，得到之前或之后的時間。

superdoctor

看我在下面帖子里面的一段程序

http://72891.cn/forum/viewtopic.php?t=481040

tiw

可以用date::calc模塊