[结]DAYS360(贷款日期,还款日期)**

crystal

DAYS360(贷款日期,还款日期)
有无现成的例子？

DAYS360 就是说每年按360天计算。每月就是30天，DAYS360（贷款日期,还款日期）得出来一个天数
DAYS360（2008.2.1，2008.3.12 ）=42天

yancm

可以使用DateUtils.DaysBetween。
注意：他的参数是日期类型。需要做类型转化

crystal

DateUtils.DaysBetween

如何用，，不是很明白，，它能使 每年按360天、每月按30天 计算吗？

yancm

他按照实际天数计算。比如2月28天就是28天，不会算成30天。
你试下就知道效果了。

crystal

Function TZYJ1.Days360(date1,date2:TDatetime):integer;
var
i:integer;
begin
  if(DateUtils.DayOf(date1)<>31) and (DateUtils.DayOf(date2)<>31)then
  begin
    i := (DateUtils.YearOf(date2)-DateUtils.YearOf(date1))*360+(DateUtils.MonthOf(date2)-DateUtils.MonthOf(date1))*30+(DateUtils.DayOf(date2)-DateUtils.DayOf(date1))  ;
    result := i ;
  end
  else if(DateUtils.DayOf(date1)=31) and (DateUtils.DayOf(date2)<>31) then
  begin
    i := (DateUtils.YearOf(date2)-DateUtils.YearOf(date1))*360+(DateUtils.MonthOf(date2)-DateUtils.MonthOf(date1))*30+(DateUtils.DayOf(date2)-30)  ;
    result := i ;
  end
  else if(DateUtils.DayOf(date1)<>31) and (DateUtils.DayOf(date2)=31) then
  begin
    i := (DateUtils.YearOf(date2)-DateUtils.YearOf(date1))*360+(DateUtils.MonthOf(date2)-DateUtils.MonthOf(date1))*30+30-(DateUtils.DayOf(date1))  ;
    result := i ;
  end
  else if(DateUtils.DayOf(date1)=31) and (DateUtils.DayOf(date2)=31) then
  begin
    i := (DateUtils.YearOf(date2)-DateUtils.YearOf(date1))*360+(DateUtils.MonthOf(date2)-DateUtils.MonthOf(date1))*30+(DateUtils.DayOf(date2)-DateUtils.DayOf(date1))  ;
    result := i ;
  end;
end;


已实现和Excel 的 DAYS360（）函数一样。
可以结帖，谢谢。

yancm

完全不理解楼主为什么要自己写一个函数，为什么不用2楼给的函数呢？