关闭

如何算出两个日期之间相隔的月分数

709人阅读 评论(0) 收藏 举报
date1,date2:TDatetime;
s1,s2:string;month,i1,i2:integer;

datetostring(s1,'yyyy-mm-dd',date1);
datetostring(s2,'yyyy-mm-dd',date2);
i1:=12*strtoint(copy(s1,1,4))+strtoint(copy(s1,6,2));
i2:=12*strtoint(copy(s2,1,4))+strtoint(copy(s2,6,2));
month:=abs(i1-i2);
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:48173次
    • 积分:621
    • 等级:
    • 排名:千里之外
    • 原创:1篇
    • 转载:45篇
    • 译文:0篇
    • 评论:3条
    最新评论