このディレクトリの索引
#  現在日時から1時間前の日時を求めるにはどうすれば? 
#  
#  2013.03.15 14:30 ⇒ 2013.03.15 13:30 
#  2013.03.15 00:30 ⇒ 2013.03.14 23:30 
#  2013.01.01 00:30 ⇒ 2012.12.31 23:30 
#  
#  こんな繰り下がりを自前で計算しないとダメなの? 
#  AddHours(-1)みたいなのはない?
%
%  SWI-Prologに於ける時差時刻(1970年1月1日以降)
%


n秒前の時刻(_n秒前,_年,_月,_日,_時,_分,_秒,_年_n,_月_n,_日_n,_時_n,_分_n,_秒_n) :-
        _年 >= 1970,
        date_time_stamp(date(_年,_月,_日,_時,_分,_秒,0,-,-),Stamp),
        stamp_date_time(Stamp,date(_年_n,_月_n,_日_n,_時_n,_分_n,_秒_n,_,_,_),_n秒前).

n秒後の時刻(_n秒後,_年,_月,_日,_時,_分,_秒,_年_n,_月_n,_日_n,_時_n,_分_n,_秒_n) :-
        _年 >= 1970,
        _n秒後_2 is _n秒後 * -1,
        date_time_stamp(date(_年,_月,_日,_時,_分,_秒,0,-,-),Stamp),
        stamp_date_time(Stamp,date(_年_n,_月_n,_日_n,_時_n,_分_n,_秒_n,_,_,_),_n秒後_2).