计算机二级辅导:Delphi中求两个时间差值代码
来源:优易学  2011-6-7 12:08:12   【优易学:中国教育考试门户网】   资料下载   IT书店
  例如在Excel中的a1单元格中的20070124变成2007-01-24,可执行如下公式。
  left(a1,4)&-&mid(a1,5,2)&-&right(a1,2)
  例如在a1单元格中有2007-01-24时间,在b1单元格中有2007-02-24时间,要求两者相减,则可用函数days360(a1,b1),即可算出结果,同理。Delphi中要求计算两者间的公式可用
  edit1.text:= IntToStr(YearsBetween(datetimepicker1.datetime,datetimepicker2.datetime)) ;//计算两时间差值的年
  edit2.text:= IntToStr(monthsBetween(datetimepicker1.datetime,datetimepicker2.datetime));//计算两时间差值的月
  edit3.text:=IntToStr(daysBetween(datetimepicker1.datetime,datetimepicker2.datetime));//计算两时间差值的日
  但是需要注意在uses单元中加入DateUtils

责任编辑:小草

文章搜索:
 相关文章
热点资讯
资讯快报
热门课程培训