●●●●●●●●如何实现月为30天,年为360天的转换?●●●●●●●●

Question

我想这种情况应该要自己写函数才能解决了。
变量类型也不能用时间日期型的了。 
用字符型应该可以。
（年1-月1-日1） 减去 （年2-月2-日2） 得到的天数是 （年1-年2）*360+（月1-月2 ）*30+
（日1-日2） 

Answer 1

function TForm1.Days(date1:TDatetime;date2:TDatetime):integer;
var
  datestr1,datestr2:string;
  year1,year2,month1,month2,day1,day2:integer;
begin
  datestr1:=formatdatetime('yyyy-mm-dd',date1);
  datestr2:=formatdatetime('yyyy-mm-dd',date2);
  year1:=strtoint(copy(datestr1,1,4));
  year2:=strtoint(copy(datestr2,1,4));
  month1:=strtoint(copy(datestr1,6,2));
  month2:=strtoint(copy(datestr2,6,2));
  day1:=strtoint(copy(datestr1,9,2));
  day2:=strtoint(copy(datestr2,9,2));
  result:=360*(year1-year2)+30*(month1-month2)+(day1-day2);
end;