日期函数的应用,如何计算两个日期之间相关的年月日?

馮強 2002-07-15 01:47:26
是否可以用两个日期相减,得到天数,再计算有几年零几个月?请提示一下,最好给出简单例程。谢谢啦。
...全文
359 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
BS 2002-07-15
  • 打赏
  • 举报
回复
function aa(Date1,Date2:TDateTime,var year,month,day:integer;):boolean;
var
year1,month1,day1,year2,month2,day2:Word;
begin
result:=false;
try
day:=Date1-Dat2;
DecodeDate(Date1,year1,month1,day1);
DecodeDate(Date1,year2,month2,day2);
month:=(year1-year2)*12+month1-month2;
year:=year1-year2;
result:=true;
except
exit;
end;
end;
馮強 2002-07-15
  • 打赏
  • 举报
回复
原来如此:)谢谢两位。
zfk51069 2002-07-15
  • 打赏
  • 举报
回复
直接减,日期直接减,得到的也是日期形式,年表示相差年数,月表示相差月数。
要得到年和月,可以用函数decodedate. OK了
馮強 2002-07-15
  • 打赏
  • 举报
回复
相减,得到的年月日的差,还是相差的天数?(在VB中,好象得到的是天数)。由于手上的书没有具体讲到函数的应用,请给个简单例程。
CeleronII 2002-07-15
  • 打赏
  • 举报
回复
是的,直接减就可以了

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧