Days360函数修正版

时　间:2009-01-21 12:23:45
作　者:trynew   ID：2645  城市：广州
摘　要:1、改正了Method =FALSE时，开始为31日，结束不是31日时，会比EXCEL中函数少算一天的问题。
2、增加了参数的可选和默认值
3、原函数定义为整型，当天数差别大时会溢出，现改为长整形。
鉴于原帖已结贴，特在此稍作修改，也好作为自己的收藏：）
原帖：http://www.accessoft.com/article-show.asp?id=2912
作者：wnxjy68
正　文:

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