Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

如何得到与月有关的日期

彭海涛 等级: 一星会员 积分:27 金币:320 来自:武汉Access交流中心 发表于:2008-09-08 12:41:59  
楼主

我是学财务的,在做ACCESS开发时碰到了这样的问题:
我如果能应用ACCESS来获得当月的最后一天,上月的最后一天?

 

access培训  诚聘access开发人员

    彭海涛
      获得社区协助:请教问题(即发帖)7篇,其中获得解决的3篇;
      协助社区成员:协助他人(即回帖)20篇,其中被设为【最佳答案】的3篇;
      协助我们社区:发布技术文章8篇,邀请了8名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top

扫描下方工作人员的微信二维码加微信,邀您加入Access课堂微信群,进入一个技术交际圈:

网站工作人员微信

钱玉炜 等级:贵宾★★★★★ 积分:3033 金币:15640 来自:江阴Access交流中心 发表于2008/9/8 14:48:40 
1楼 得分: 0

用下个月的第一天减去一就是这个月的最后一天

同理上月的最后一天就是当月的第一天减去一天的日期



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    钱玉炜
      获得社区协助:请教问题(即发帖)8篇,其中获得解决的6篇;
      协助社区成员:协助他人(即回帖)1094篇,其中被设为【最佳答案】的346篇;
      协助我们社区:发布技术文章391篇,邀请了573名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
sandy 等级:普通会员 积分:19 金币:0 来自:广州Access交流中心 发表于2008/9/8 15:06:42 
2楼 得分: 0
qianyuwei 的方法很好,学习了。

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    sandy
      获得社区协助:请教问题(即发帖)2篇,其中获得解决的2篇;
      协助社区成员:协助他人(即回帖)14篇,其中被设为【最佳答案】的3篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
汪勇 等级:普通会员 积分:164 金币:920 来自:东莞Access交流中心 发表于2008/9/8 15:45:22 
3楼 得分: 0

时 间:2007-12-3 11:07:13
作 者:victorduane
摘 要:得到一个日期当月第一天,最后一天是星期几
正 文:

得到一个日期当月第一天是星期几
Function getYMweekday(sDate As Date) As String

Dim intY As Integer
Dim intM As Integer

intY = Year(sDate)
intM = Month(sDate)
getYMweekday = WeekdayName(Weekday(DateSerial(intY, intM, 1)))

End Function

得到一个日期当月最后一天是星期几

Function getYMweekdayEnd(sDate As Date) As String

Dim intY As Integer
Dim intM As Integer

intY = Year(sDate)
intM = Month(sDate)
getYMweekdayEnd = WeekdayName(Weekday(DateSerial(intY, intM + 1, 0)))

End Function


Sub aa()
Debug.Print getYMweekday(Date)
Debug.Print getYMweekdayEnd(Date) 'date为2007-12-3
End Sub



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    汪勇
      获得社区协助:请教问题(即发帖)0篇,其中获得解决的0篇;
      协助社区成员:协助他人(即回帖)8篇,其中被设为【最佳答案】的2篇;
      协助我们社区:发布技术文章23篇,邀请了53名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
汪勇 等级:普通会员 积分:164 金币:920 来自:东莞Access交流中心 发表于2008/9/8 15:46:20 
4楼 得分: 0
其實軟件網有很好的搜索功能可以使用的!

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    汪勇
      获得社区协助:请教问题(即发帖)0篇,其中获得解决的0篇;
      协助社区成员:协助他人(即回帖)8篇,其中被设为【最佳答案】的2篇;
      协助我们社区:发布技术文章23篇,邀请了53名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
十段 等级:贵宾★★★★★ 积分:1148 金币:7400 来自:上海Access交流中心 发表于2008/9/8 16:59:16 
5楼 得分: 0

语句如下:

SELECT DateSerial(Year(Date()),Month(Date())+1,1)-1 AS 本月最后一天, Date()-Day(Date())+1 AS 本月第一天, DateSerial(Year(Date()),Month(Date()),1)-1 AS 上月最后一天, DateSerial(Year(Date()),Month(Date())-1,1) AS 上月第一天
FROM dbo_gc_rbs
GROUP BY DateSerial(Year(Date()),Month(Date())+1,1)-1, Date()-Day(Date())+1, DateSerial(Year(Date()),Month(Date()),1)-1, DateSerial(Year(Date()),Month(Date())-1,1);


 



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    十段
      获得社区协助:请教问题(即发帖)0篇,其中获得解决的0篇;
      协助社区成员:协助他人(即回帖)162篇,其中被设为【最佳答案】的82篇;
      协助我们社区:发布技术文章185篇,邀请了80名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
彭海涛 等级:一星会员 积分:27 金币:320 来自:武汉Access交流中心 发表于2008/9/9 9:12:21 
6楼 得分: 0
谢谢大家的帮助,非常感谢!

    彭海涛
      获得社区协助:请教问题(即发帖)7篇,其中获得解决的3篇;
      协助社区成员:协助他人(即回帖)20篇,其中被设为【最佳答案】的3篇;
      协助我们社区:发布技术文章8篇,邀请了8名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:6篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。