delphi 如何求一段时间内月数的差?

发布网友发布时间：2024-10-02 17:12

共2个回答

热心网友时间：2024-10-28 20:55

效果1：
unit下的uses中加入DateUtils后
Monthsbetween(Date1,Date2);//Date1和Date2为你所需要的时间，所得值为integer类型

效果2：
其中的i、j、s、cha都为integer;
i:=(strtoint(formatdatetime('yyyy',date1))-strtoint(formatdatetime('yyyy',date2)))*12;//求年份差求月份
j:=strtoint(formatdatetime('mm',date1));//获取第一个日期的月份
s:=strtoint(formatdatetime('mm',date2));//获取第二个日期的月份
cha:=(i+j)-s;

热心网友时间：2024-10-28 20:53

设integer
t1=(s[0]-e[0])*12;
t1=t1+s[1]-e[1];

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com