找一个和2个时间有关的天数和月数的计算函数，希望高效，

 1   
 2fromDate="2003-1-1"   
 3endDate="2003-1-31"   
 4  
 5function findMonth(fromDate,endDate)   
 6interval=Datediff("m",fromDate,endDate)-1   
 7response.write interval &"
 8"   
 9if datepart("d",fromdate)=1 then   
10interval=interval+1   
11end if   
12  
13if datepart("d",dateadd("d",1,enddate))=1 then   
14interval=interval+1   
15end if   
16findMonth=fromdate & "与" & enddate & "之间有" & interval & "个整月。" & "
17"   
18end function   
19  
20response.Write findMonth(fromdate,enddate)