delphi 时间计算分析和总结.docxVIP

一、 TDateTime 类型怎么进行加减运算？比如我要在当前的日期时间上再加30分钟，得到一个新的日期时间，应该怎么运算？ 答： TDateTime 类型可直接进行运算 (*前 n 秒的 TDateTime 是多少？ 前 n 分钟的 TDateTime 是多少？ 前 n 小时的 TDateTime 是多少？ 前 n 天的 TDateTime 是多少？ 前 n 周的 TDateTime 是多少？ 答案： now-n/3600/24 now-n/60/24 now-n/24 now-n*1 now-n*7 *) Memo1.Clear; Memo1.Lines.Add(当前时间： + DatetimeToStr(Now)); Memo1.Lines.Add(前20秒的 TDateTime 是多少？ + DatetimeToStr(Now-20/3600/24)); Memo1.Lines.Add(前2分钟的 TDateTime 是多少？ + DatetimeToStr(Now-2/60/24)); Memo1.Lines.Add(前2小时的 TDateTime 是多少？ + DatetimeToStr(Now-2/24)); Memo1.Lines.Add(前2天的 TDateTime 是多少？ + DatetimeToStr(Now-2*1)); Memo1.Lines.Add(前2周的 TDateTime 是多少？ + DatetimeToStr(Now-2*7)); 运行结果： 当前时间：2011-12-9 下午 03:39:06 前20秒的 TDateTime 是多少？2011-12-9 下午 03:38:46 前2分钟的 TDateTime 是多少？2011-12-9 下午 03:37:06 前2小时的 TDateTime 是多少？2011-12-9 下午 01:39:06 前2天的 TDateTime 是多少？2011-12-7 下午 03:39:06 前2周的 TDateTime 是多少？2011-11-25 下午 03:39:06 二、 有控件 DateTimePicker1 ， 假如 DateTimePicker1 值为 2004-7-5 , 请问：如何求出 1.本月第一日( 即2004-7-1 ), 2.本月最后一日( 即2004-7-31 ), 3.上个月当日 （ 即2004-6-5 ）， 4.上个月最后一日( 即2004-6-30 ), 5.上年当月当日( 即2003-7-5 ). 6.上年上月当日( 即2003-6-5 ). 7.上年上月最后一日( 即2003-6-30 ). 最头痛的问题是各个月的天数不同，还要考虑是否闰年的“二月份”！ DataUtils.unit....你所有的 都有。。 Var Year1,Month1,Day1: Word; begin DecodeDate(DateTimePicker1.date,year1,month1,day1); Datetimepicker1.Date:= EncodeDAte(Year1,Month1,1); //本月第一天 end; var  Y,M,D:Word; NewDate:TDateTime; begin DecodeDate(DateTime, Y, M, D); NewDate:= 1.本月第一日( 即2004-7-1 ), EncodeDate(Y,M,1) 2.本月最后一日( 即2004-7-31 ), EncodeDate(Y,M+1,1)-1 (就是下个月1号的前一天） 上个月当日 （ 即2004-6-5 ），EncodeDate(Y,M-1,D) 上个月最后一日( 即2004-6-30 ),EncodeDate(Y,M,1)-1 5.上年当月当日( 即2003-7-5 ).EncodeDate(Y-1,M,1) 6.上年上月当日( 即2003-6-5 ).EncodeDate(Y-1,M-1,D) 7.上年上月最后一日( 即2003-6-30 ).EncodeDate(Y-1,M,1)-1 如果碰到求1月份的上一个月怎么改？ 2004-1-05 的上个月当日( 即2003-12-05). EncodeDate(Y,M-1,D)； //这个做法会出错哦 三、 delphi 中使用 datetimepicker，怎么进行 HH,MM,SS 的加减计算？ delphi 中 DateUtils 单元有详细的年、月、日、时、分、秒、星期等时间加减函数，如下： function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTi