StrToInt(FormatDataTime(mm,DateTime1)) - StrToInt(formatDatetime(mm,DateTime2)) good luck三少 :o)
var iYear,iMonth1,iDay,iMonth2:word; begin DeCodeDate(Date1,iYear,iMonth1,iDay); DeCodeDate(Date2,iYear,iMonth2,iDay); showmessage('天,date1-date2的月份是:'+inttostr(iMonth1-iMonth2)); end;
若想用直接的类型相减,那么所做的会更多,因为你不得不考虑其闰年等问题
说到这儿,相信程序你已经写出来了吧?
begin
DeCodeDate(Date1,iYear,iMonth1,iDay);
DeCodeDate(Date2,iYear,iMonth2,iDay);
showmessage('天,date1-date2的月份是:'+inttostr(iMonth1-iMonth2));
end;