英语翻译PrivateFunctioniDYTS(yue1AsInteger)AsIntegerIfyue112TheniDYTS=CDate("1999/"&yue1+1&"/1")-CDate("1999/"&yue1&"/1")ElseiDYTS=31EndIfEndFunction主要是CDate("1999/"&yue1+1&"/1")-CDate("1999/"&yue1&"/

Question

英语翻译
Private Function iDYTS(yue1 As Integer) As Integer
If yue1 12 Then
iDYTS = CDate("1999/" & yue1 + 1 & "/1") - CDate("1999/" & yue1 & "/1")
Else
iDYTS = 31
End If
End Function
主要是 CDate("1999/" & yue1 + 1 & "/1") - CDate("1999/" & yue1 & "/1") 这句怎么理解?

Answer 1

Private Function iDYTS(yue1 As Integer) As Integer '函数定义,参数为月份数,整型
If yue1 12 Then '如果月份不等12
iDYTS = CDate("1999/" & yue1 + 1 & "/1") - CDate("1999/" & yue1 & "/1") '月天数的计算,就是根据这个月份数先算出下一个月的第一天CDate("1999/" & yue1 + 1 & "/1")
'再减去这个月的第一天,CDate("1999/" & yue1 & "/1"),两个日期之差就是天数
Else '否则就为31天
iDYTS = 31
End If
End Function '函数据结束
这是算1999年任意月份天数的函数