如何计算一个日期加上天数后的日期(输入一个日期判断是一年的第几天)
在EXCEL中,常需要判断过若干月后是几月几号。如果是月中,可以用EDATE这个函数。如果是月末,就需要加强判断了。
特意写了一个函数进行判断
Function EoM(M As Date, N As Long)
'判断某日起,若干个月后是哪一天。排除月未时的干扰
EoM = WorksheetFunction.EDate(M, N)
If Day(M 1) = 1 Then
EoM = DateSerial(Year(EoM), Month(EoM) 1, 0)
End If
End Function
这个函数是通过VBA进行的自定义函数,需要进入到VBA编辑界面进行录入。
请在EXCEL界面中按ALT F11进入VBA编辑器,然后执行“插入”菜单下的“模块”,将以下代码复制进去,就可以实现自定义函数功能,像正常EXCEL函数一样地进行使用了。
如有任何疑问欢迎加关注或留言探讨。
赞 (0)