Function days(s)
On Error Resume Next
mdate = DateValue(s)
If Err Then '输入的日期错误，则返回0
days = 0
Exit Function
End If
yy = Year(mdate)
mm = Month(mdate)
date1 = DateSerial(yy, mm, 1)
date2 = DateSerial(yy, mm + 1, 1)
days = DateDiff("d", date1, date2)
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024