DELPHI函数:Delphi中求两个时间差值代码计算机二级考试
文章作者 100test 发表时间 2009:05:07 18:06:53
来源 100Test.Com百考试题网
2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
例如在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