由于“日期”值存储为双精度数，因此当您试图在表达式中使用“日期”值时，可能会得到格式不正确的结果。 本主题说明如何创建表达式和自定义函数，以显示特定日期并计算时间间隔。

DateSerial(Year(Date()), Month(Date()), 1)
DateSerial(Year(Date()), Month(Date()) + 1, 1)
本月的最后一天
DateSerial(Year(Date()), Month(Date()) + 1, 0)
下个月的最后一天
DateSerial(Year(Date()), Month(Date()) + 2, 0)
上个月的第一天
DateSerial(Year(Date()), Month(Date())-1,1)
上个月的最后一天
DateSerial(Year(Date()), Month(Date()),0)
本季度的第一天
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)
本季度的最后一天
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)
假设星期日 = 第 1 天)  (本周的第一天 
Date() - WeekDay(Date()) + 1
本周的最后一天
Date() - WeekDay(Date()) + 7
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。