如何取得一个月的最后一天
如何取得本月和下个月的最后一天，并且把下个月的记录全部显示出来 问题点数：10、回复次数：12Top
1 楼rainstormmaster（暴风雨 v2.0）回复于 2005-12-22 18:59:27 得分 0
//如何取得一个月的最后一天
就是下个月的第一天 -1Top
2 楼longking（进）回复于 2005-12-22 20:58:28 得分 0
楼上的
高!!!Top
3 楼northwolves（狼行天下）回复于 2005-12-22 22:03:47 得分 0
本月的最后一天：dateserial(year(date),month(date)+1,0)
下月的最后一天：dateserial(year(date),month(date)+2,0)
Top
4 楼lexrenzjun（lexrenzjun）回复于 2005-12-23 10:49:20 得分 0
就是下个月的第一天减1（12月的为特例，为31天）
Top
5 楼wyf2（创新）回复于 2005-12-23 10:56:11 得分 0
那怎么样把本月的最后一天和下个月的最后一天之间的所有的日期全部写入表呢Top
6 楼weiweiplay（虚幻）回复于 2005-12-23 11:47:02 得分 0
'-----------------------------------------------------
'得到每个月的天数
'-----------------------------------------------------
Public Function GetDays(ByVal DTM As Date) As Long
Dim lYear As Long, lMonth As Long
lYear = Year(DTM)
lMonth = Month(DTM)
Select Case lMonth
Case 1, 3, 5, 7, 8, 10, 12
GetDays = 31
Case 2
If (lYear Mod 4) = 0 Then
GetDays = 29
Else
GetDays = 28
End If
Case 4, 6, 9, 11
GetDays = 30
End Select
Dim Days As Long
Days = g_Sys.GetDays(你的日期)
Format(你的日期,"yyyyMM00") + 1 '开始日期
Format(你的日期,"yyyyMM00") + Days '结束日期
Sql语句中 Between 开始日期 And 结束日期Top
7 楼wyf2（创新）回复于 2005-12-23 13:19:02 得分 0
Sql语句中 Between 开始日期 And 结束日期
具体怎么写，Top
8 楼weiweiplay（虚幻）回复于 2005-12-23 13:38:41 得分 0
SQL = "Select * From 你的表名 Where (你的日期字段名 BetWeen #" & 你的开始日期 & "# And #" & 你的结束日期 & "#)"Top
9 楼wyf2（创新）回复于 2005-12-23 17:17:41 得分 0
那用dateadd函数怎么得到下个月的最后一天Top
10 楼wyf2（创新）回复于 2005-12-23 17:33:19 得分 0
如果要播入这此日期是不是这样：
insert into 表名(字段名)value(BetWeen #" & 开始日期 & "# And #" & 结束日期 & "#)"
呀Top
11 楼bulletCoderHope（小子）回复于 2005-12-23 18:01:49 得分 0
本月的最后一天：dateserial(year(date),month(date)+1,0)
下月的最后一天：dateserial(year(date),month(date)+2,0)
象狼行天下所说的方便
Top
12 楼zaj（鸿）回复于 2006-01-05 16:28:36 得分 0
dateadd("m",1,date())-datepart("d",dateadd("m",1,date()))Top