ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Access > 如何在Access中显示特定的日期?

如何在Access中显示特定的日期?

作者:绿色风 分类: 时间:2022-08-18 浏览:118
楼主
lrlxxqxa
要显示特定的日期,可以使用“DateSerial()”函数操作日期的日、月和年部分。

如在文本框的“ControlSource”属性或“即时”窗口中使用下列表达式,可返回特定的日期:

1、当前月份:
  1. DateSerial(Year(Date()), Month(Date()), 1)


2、下一个月:
  1. DateSerial(Year(Date()), Month(Date()) + 1, 1)


3、当前月份的最后一天:
  1. DateSerial(Year(Date()), Month(Date()) + 1, 0)


4、下一个月的最后一天:
  1. DateSerial(Year(Date()), Month(Date()) + 2, 0)


5、上一个月的第一天:
  1. DateSerial(Year(Date()), Month(Date())-1,1)


6、上一个月的最后一天:
  1. DateSerial(Year(Date()), Month(Date()),0)


7、当前季度的第一天:
  1. DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)


8、当前季度的最后一天:
  1. DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)


9、当前星期的第一天(假定星期日 = 第 1 天):
  1. Date() - WeekDay(Date()) + 1


10、当前星期的最后一天:
  1. Date() - WeekDay(Date()) + 7


11、当前星期的第一天(使用“选项”对话框中的设置):
  1. Date() - WeekDay(Date(), 0) + 1


12、当前星期的最后一天:
  1. Date() - WeekDay(Date(), 0) + 7
2楼
lrlxxqxa
说一下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 这一范围,将发生错误。如果这三个参数指定的日期超出了日期的可接受范围,也会发生错误。
3楼
许晓棻
在工作时间(格式为短日期)的默认值中输入“DateSerial(Year(Date()),4,1)”,系统显示“输入的表达式包含无效语法”“你可能输入了没有运算符的运算对象”

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap