如何得到与月有关的日期

彭海涛　发表于：2008-09-08 12:41:59 　

复制

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

Top

钱玉炜发表于：2008-09-08 14:48:40

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

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

Top

sandy 发表于：2008-09-08 15:06:42

qianyuwei 的方法很好，学习了。

Top

汪勇发表于：2008-09-08 15:45:22

时　间: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

Top

汪勇发表于：2008-09-08 15:46:20

其實軟件網有很好的搜索功能可以使用的!

Top

十段发表于：2008-09-08 16:59:16

语句如下：

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);

Top

彭海涛发表于：2008-09-09 09:12:21

谢谢大家的帮助，非常感谢！

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

如何得到与月有关的日期