ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2042|回复: 2

[分享] 如何在Access中显示特定的日期?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-6-27 17:14 | 显示全部楼层 |阅读模式
[广告] 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

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-6-27 17:15 | 显示全部楼层
说一下Access的DateSerial 函数:
语法
DateSerial(year, month, day)

year: 必选,Integer。表示 100 和 9999(含)之间的数字或数值表达式 (数字表达式:计算结果为数字的任何表达式。表达式可以是变量、常数、函数和运算符的任意组合。)。
month: 必选,整型。任何数值表达式。
day:必选,整型。任何数值表达式。

    若要指定日期,例如 1991 年 12 月 31 日,则每一个 DateSerial 参数 (参数:为操作、事件、方法、属性、函数或过程提供信息的值。)的数字范围都应该在所用单位的可接受范围内;即天数的范围为 1 至 31,月数的范围为 1 至 12。不过,还可以为每个参数指定相对日期,方法是使用表示某个特定日期之前或之后的天数、月数或年数的数值表达式。
    year 参数的两位数年份是基于用户定义的计算机设置进行解释的。默认设置是 0 和 29(含)之间的值将解释为 2000–2029 年。30 和 99 之间的默认值将解释为 1930–1999 年。对于其他所有 year 参数,使用四位数年份(例如,1800)。

    早于 Windows 2000 的 Windows 版本会基于上面描述的默认值解释两位数年份。若要确保函数返回正确值,请使用四位数年份。

    任何参数超过该参数的可接受范围时,它会相应递增至下一个较大的单位。例如,如果指定了 35 天,则它会被估算为一个月零几天,具体取决于它应用在年中的位置。如果其中任何一个参数超出了 -32,768 到 32,767 这一范围,将发生错误。如果这三个参数指定的日期超出了日期的可接受范围,也会发生错误。

TA的精华主题

TA的得分主题

发表于 2010-6-28 22:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
再学习一下,谢谢楼主
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-12 13:22 , Processed in 0.016938 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表