分享一个当前日期推后或往前N小时后的年月日时的程序

lansmay

计算向将来或过去推算interval小时(-N<=interval<=N,N不跨两个月即可)后的年月日时，本人用过一段时间了，用来批量读取模式文件名和写文件名很管用。使用时将现在时间年year,月month,日day,时hour,时间间隔interval（单位：小时）放进去，出来的年year,月month,日day,时hour就是interval小时前或后的的日期了。
调用             call   time_hour(year,month,day,hour,interval)子程序就可以了。