access怎么设置聘用时间字段的默认值为:系统当前月的最后一天
方法很多,下面是其中一种。
在聘用时间字段的默认值输入:
DateAdd("d",-1,DateSerial(DatePart("yyyy",Date()),DatePart("m",Date())+1,1))
说明:
思路是:由于每个月的最后一天日期不定,用下个月的第一天减去一天即可得到当前月的最后一天。
Date()函数返回当前日期;
DatePart("yyyy",Date())函数返回当前日期的“年”部分;同理,DatePart("m",Date())函数返回当前日期的“月”部分,DatePart("m",Date())+1即为当前日期的下一个月;
DateSerial(年部分,月部分,日部分),所以,DateSerial(DatePart("yyyy",Date()),DatePart("m",Date())+1,1)则返回当前日期的下一个月第一天;
DateAdd("d",-1,日期值)返回日期的上一天,所以DateAdd("d",-1,DateSerial(DatePart("yyyy",Date()),DatePart("m",Date())+1,1))达到您的要求。
微软的OFFICE是最为流行的办公软件,主要有OFFICE2010和OFFICE2007两个版本。Office 2000是第三代办公处理软件的代表产品,可以作为办公和管理的平台,以提高使用者的工作效率和决策能力。Office 2000中文版有4种不同的版本:标准版、中小企业版、中文专业版和企业版。
在Office 2000中各个组件仍有着比较明确的分工:一般说来,Word主要用来进行文本的输入、编辑、排版、打印等工作;Excel主要用来进行有繁重计算任务的预算、财务、数据汇总等工作;PowerPoint主要用来制作演示文稿和幻灯片及投影片等;Access是一个桌面数据库系统及数据库应用程序;Outlook是一个桌面信息管理的应用程序;FrontPage主要用来制作和发布因特网的Web页面。
Microsoft Office XP是微软有史以来所发行的Office版本中最重要的版本,而且也被认为是迄今为止功能最强大、最易于使用的Office产品。新版Office放弃了以往以产品发布年命名的惯例!产品名称中的XP,是英文Experience(体验)的缩写,代表着新版Office在包容覆盖广泛设备的Web服务之后,将给用户带来丰富的、充分扩展的全新体验。
除核心的 Office XP 程序 — Microsoft Word、Excel、Outlook和 PowerPoint— 外,Office XP 专业版 中包含 Microsoft Access 2002,它是 Office XP 数据库解决方案,可帮助用户存储、访问和分析数据。
在聘用时间字段的默认值输入:
DateAdd("d",-1,DateSerial(DatePart("yyyy",Date()),DatePart("m",Date())+1,1))
说明:
思路是:由于每个月的最后一天日期不定,用下个月的第一天减去一天即可得到当前月的最后一天。
Date()函数返回当前日期;
DatePart("yyyy",Date())函数返回当前日期的“年”部分;同理,DatePart("m",Date())函数返回当前日期的“月”部分,DatePart("m",Date())+1即为当前日期的下一个月;
DateSerial(年部分,月部分,日部分),所以,DateSerial(DatePart("yyyy",Date()),DatePart("m",Date())+1,1)则返回当前日期的下一个月第一天;
DateAdd("d",-1,日期值)返回日期的上一天,所以DateAdd("d",-1,DateSerial(DatePart("yyyy",Date()),DatePart("m",Date())+1,1))达到您的要求。
=CDate(DateAdd("m",1,Date()))-Day(CDate(DateAdd("m",1,Date())))
或者这样写更加简洁和高效率(使用的函数和运算过程更少,已经测试通过)
=DateAdd("m",1,Date())-Day(DateAdd("m",1,Date()))
这里说明一下原理(下个月的今天 - 下个月今天的天数=这个月的月尾)
DateAdd("m",1,Date()) 可以返回下个月的今天
Day(DateAdd("m",1,Date())) 取下个月今天的天数
例如:
如果今天是2013-12-12
DateAdd("m",1,Date()) 返回2014-01-12
Day(DateAdd("m",1,Date())) 返回12天
2014-01-12减去12天 刚好等于本月月尾 2013-12-31
如果今天是2013-01-30
DateAdd("m",1,Date()) 返回2013-02-28 (因为2月没有30号)
Day(DateAdd("m",1,Date())) 返回28天
2013-02-28减去28天 刚好等于当月月尾 2013-01-31