50分相送取日期号急呀

有没有人知道有什么方法取得日期号吗
比如8月28号至9月4号这两天中间的日期号
答案是：29、30、1、2、3、4

18 个解决方案

#1

DateDiff 函数

描述
返回两个日期之间的时间间隔。
语法
DateDiff(interval, date1, date2 [,firstdayofweek][, firstweekofyear]])
DateDiff 函数的语法有以下参数：

参数描述
interval 必选。字符串表达式，表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。
date1, date2 必选。日期表达式。用于计算的两个日期。
firstdayofweek 可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
firstweekofyear 可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。

设置
interval 参数可以有以下值：
设置描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
m 分钟
s 秒

firstdayofweek 参数可以有以下值：

常数值描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日（默认）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六

firstweekofyear 参数可以有以下值：

常数值描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。

#2

大哥，给出代码吧，不要每天贴这样的东东

#3

自已up一下吧，在线等呀

#4

GetDay=DateDiff('d',#2003-12-5#,now())
for i=1 to GetDay
Response.Write 5+cint(i)
next
呵呵，这个没有做处理，因为你还要判断这个月有多少天

#5

好像没有用

#6

会不会不精确

#7

GetDay=DateDiff('d',#2003-12-5#,now())
for i=1 to GetDay-1
Response.Write 5+cint(i)
next
输出结果6、7、8

#8

但这样的怎么办呢8月28号至9月4号

#9

我顶

#10

没有人知道吗

#11

GetDay=DateDiff('d',#2003-8-28#,#2003-9-4#)
TotalDay=28+cint(GetDay)
for i=28 to TotalDay
if i<=31 then
Response.Write i
else
Response.Write TodalDay-31
next

#12

GetDay=DateDiff('d',#2003-8-28#,#2003-9-4#)
TotalDay=28+cint(GetDay)
for i=28 to TotalDay
if i<=31 then
Response.Write i
else
Response.Write TodalDay-31
End if
next

#13

判断时间差
做一个循环
<%
dim date_number, date1, date2
dim I
date1=#2003-8-28#
date2=#2003-9-4#
date_number=DateDiff("d",date1,date2)
response.Write date_number
for I=0 To (date_number-2)
date_info=(date1+(I+1))
response.Write date_info & "<Br>"
next
%>

调试通过!

#14

完整点如下:

<%
dim date_number, date1, date2
dim I
date1=#2003-8-28#
date2=#2003-9-4#
date_number=DateDiff("d",date1,date2)

for I=0 To (date_number-2)
date_info=(date1+(I+1))
response.Write day(date_info) & "<Br>"
next
%>

#15

要要判断月大月小呀

#16

要判断月份比如：2003-8-28至2003-9-10，那就从9-1号开始算

#17

判断月大月小
定义数据保存大月和小月
dim MaxMonth
Dim MinMonth
MaxMonth=array("1,3,5,7,8,10,12")
MinMonth=array("2,4,6,9,11")

最笨的办法循环判断一下当月

#18

<%
dim date_number, date1, date2
dim I
date1=#2003-8-28#
date2=#2003-9-4#
date_number=DateDiff("d",date1,date2)

for I=0 To (date_number-2)
date_info=(date1+(I+1))
response.Write day(date_info) & "<Br>"
next
%>
这个不存在大小月的问题,不信你自己去试试!

#1

#2