|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
要显示特定的日期,可以使用“DateSerial()”函数操作日期的日、月和年部分。
如在文本框的“ControlSource”属性或“即时”窗口中使用下列表达式,可返回特定的日期:
1、当前月份:
DateSerial(Year(Date()), Month(Date()), 1)
2、下一个月:
DateSerial(Year(Date()), Month(Date()) + 1, 1)
3、当前月份的最后一天:
DateSerial(Year(Date()), Month(Date()) + 1, 0)
4、下一个月的最后一天:
DateSerial(Year(Date()), Month(Date()) + 2, 0)
5、上一个月的第一天:
DateSerial(Year(Date()), Month(Date())-1,1)
6、上一个月的最后一天:
DateSerial(Year(Date()), Month(Date()),0)
7、当前季度的第一天:
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)
8、当前季度的最后一天:
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)
9、当前星期的第一天(假定星期日 = 第 1 天):
Date() - WeekDay(Date()) + 1
10、当前星期的最后一天:
Date() - WeekDay(Date()) + 7
11、当前星期的第一天(使用“选项”对话框中的设置):
Date() - WeekDay(Date(), 0) + 1
12、当前星期的最后一天:
Date() - WeekDay(Date(), 0) + 7 |
|