Function Days360(Optional Start_date As Date = #1/1/1900#, Optional End_date As Date = #1/1/1900#, Optional Method As Boolean) As Long

   '引用：Call Days360(Start_date, End_date, False)

   '用途：按照一年360天的算法(每个月30天，一年共计12 个月)，返回两日期间相差的天数。
   '参数：Start_date和end_date是用于计算期间天数的起止日期。如果start_date在end_date之后，则DAYS360将返回一个负数。
   '      日期可以有多种输入方式:带引号的文本串(例如:"1998/01/30")、序列号(例如:如果使用1900日期系统，则35825表示1998年1月30日)或其他公式或函数的结果(例如，DATEVaLUE("1998/1/30"))。
   '      Method是一个逻辑值，它指定了在计算中是采用欧洲方法还是美国方法。若为FALSE或忽略，则采用美国方法(如果起始日期是一个月的31日，则等于同月的30日。（这里源程序处理有忽略）
   '            如果终止日期是一个月的31日，并且起始日期早于30日，则终止日期等于下一个月的1日，否则，终止日期等于本月的30日)。
   '            若为TRUE则采用欧洲方法(无论是起始日期还是终止日期为一个月的 31 号，都将等于本月的 30 号)。
   '实例：公式“=DAYS360("1998/2/1","2001/2-1")”返回1080。

  Dim Yue, Ri As Long

If Method Then
       If Day(Start_date) = 31 Then Start_date = DateAdd("d", -1, Start_date)
       If Day(End_date) = 31 Then End_date = DateAdd("d", -1, End_date)
   Else
       If Day(Start_date) = 31 Then

           Start_date = DateAdd("d", -1, Start_date)
           If Day(End_date) = 31 Then End_date = DateAdd("d", -1, End_date)
       Else
           If Day(End_date) = 31 Then End_date = DateAdd("d", 1, End_date)

       End If
   End If

  Yue = DateDiff("m", Start_date, End_date)

  If Day(End_date) < Day(Start_date) Then
     Yue = Yue - 1
     Ri = Day(End_date) + 30 - Day(Start_date)
  Else
     Ri = Day(End_date) - Day(Start_date)
  End If

  Days360 = Yue * 30 + Ri

End Function