中科新闻网重庆本土电视剧:用Datediff为什么计算出来的天数与Excel里的Day360函数不一样
来源：百度文库 编辑：中科新闻网 时间：2024/05/11 16:07:12
用Datediff为什么计算出来的天数与Excel里的Day360函数不一样,怎么样能将Datediff计算出的天数与Excel里的一样?
哪个计算出来的并不重要，重要的是哪个计算得对。
－－－－
Private Sub Command1_Click()
Dim m1, d1, d2
m1 = DateDiff("m", Text1.Text, Text2.Text)
d1 = Day(Text1.Text)
If d1 > 30 Then d1 = 30
d2 = Day(Text2.Text)
If d2 > 30 Then d2 = 30
Text3.Text = m1 * 30 + (30 - d1) - (30 - d2)
End Sub
这段代码你应该能看懂。If d2 > 30 Then d2 = 30这一行是否需要，根据你在execl里的days360这个公式而定，如果你的公式包含参数true（如（＝DAYS360(A1,A2,TRUE），那么就需要这一行的判断，如果没有参数（如（＝DAYS360(A1,A2）），那就不需要了，其中的问题，你可以研究一下days360这个函数就知道了。
比如a1＝2006-5-1，a2＝2006-5-30，如果有true这个参数，值是29天，如果没有true这个参数，值变为30天。建议使用true这个参数，保留那个判断语句，确保数字相符。