| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 978 人关注过本帖
标题:[求助]这样的代码应该怎么写
只看楼主 加入收藏
jie65699242
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-10-18
收藏
 问题点数:0 回复次数:14 
[求助]这样的代码应该怎么写

我架设了个影院系统。因为内部人有要求,想在特定时间开放部分特殊影片。
我想大家也知道是什么
开放时间是夜里0点到早晨6点。
要求读取的是服务器时间。
怎么写?谢谢大家。

搜索更多相关主题的帖子: 服务器 代码 系统 影院 
2006-10-18 23:45
google
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:3419
专家分:23
注 册:2005-11-1
收藏
得分:0 
程序实现起来很简单。

祝天下所有母亲幸福安康!~
2006-10-18 23:49
jie65699242
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-10-18
收藏
得分:0 
程序实现?
请说清楚挖。。。偶新手。。。
还有,代码我以前找到过,但是前几天格盘不小心丢了
碰巧这几天又要用。。。请帮忙啊
2006-10-18 23:55
gdk2006
Rank: 4
等 级:业余侠客
威 望:8
帖 子:928
专家分:270
注 册:2006-7-2
收藏
得分:0 
以下是引用google在2006-10-18 23:49:32的发言:
程序实现起来很简单。

是不是可以用JS或者是VBS的时间函数来实现啊!

JS能够获取服务器时间,那VBS是不是可以用date()或者Now()来获取呢!


程序员的悲哀如何找女朋友?
追女解决方案百度“让她着迷”!
2006-10-19 08:43
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
应该是先在数据库中设定时间段,然后用程序来控制吧?

http://www./
2006-10-19 10:04
jie65699242
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-10-18
收藏
得分:0 
说清楚一点吧~
以前找到那段,就是加在播放器代码里面的
效果就是
如果不是在开放时间打开
就是弹出个提示,告诉你不在开放时间,点确定后,然后转到主页上,或者自动关闭播放器窗口。
如果在开放时间,就可以观看。
请大家帮忙拉!
谢谢!
2006-10-30 14:48
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
在用户访问网页时读取现在的时间用now()函数,然后与影片开放时间进行比较,相等则开放不等就跳转到主页或自动关闭窗口。
2006-10-30 22:04
jie65699242
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-10-18
收藏
得分:0 
以下是引用yms123在2006-10-30 22:04:28的发言:
在用户访问网页时读取现在的时间用now()函数,然后与影片开放时间进行比较,相等则开放不等就跳转到主页或自动关闭窗口。
原理呢,我还知道。。。但是主要是这段代码我不知道怎么写。。。。
2006-11-01 00:01
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 

不过问题是楼主的影片还得有开放多长时间的设定吧?
这个程序的关键是DateDiff函数
[CODE]<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><HTML>
<HEAD>
<TITLE>DateDiff 函数</TITLE>
<META NAME=MS-HAID CONTENT="vsfctDateDiff">
<META HTTP-EQUIV="Content Type" CONTENT="text/html; charset=gb2312">
<META NAME="MS.LOCALE" CONTENT="ZH-CN">
<META NAME="PRODUCT" CONTENT="Visual Basic Scripting Edition">
<META NAME="TECHNOLOGY" CONTENT="SCRIPTING">
<META NAME="CATEGORY" CONTENT="语言参考">
<META NAME="Keywords" CONTENT="DateDiff 函数;决定日期;日期;时间间隔; vbUseSystem; vbSunday; vbMonday; vbTuesday; vbWednesday; vbThursday; vbFriday; vbSaturday; vbFirstJan1; vbFirstFourDays; vbFirstFullWeek">
<META NAME="Description" CONTENT="DateDiff 函数">
</HEAD>
<BODY BGCOLOR=FFFFFF LINK=#0033CC>
<!--TOOLBAR_START-->
<!--TOOLBAR_EXEMPT-->
<!--TOOLBAR_END-->
<FONT FACE="宋体" SIZE="2">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%><TR VALIGN=TOP><TD WIDTH=360>
<FONT SIZE="2" COLOR=#660033>Microsoft(R) Visual Basic(R) Scripting Edition</FONT><BR>
<FONT SIZE="5" COLOR=#660033><B>DateDiff 函数</B></FONT>
</TD>
<TD ALIGN=RIGHT>
<FONT SIZE="2"><A HREF="vbstoc.htm">语言参考</A> <BR>
<!--START PAGE START--><A HREF="default.htm" TARGET="_top">起始页</A> | <!--START PAGE END--><A HREF="vbsversion.htm">版本 2</A> <P></FONT>
</TD></TR>
</TABLE>
<FONT SIZE="2"><P>
<A HREF="vsfctDateDiffC.htm">请参阅</A></FONT>
<HR noshade SIZE=1>
<H5>描述</H5>
<BLOCKQUOTE>
返回两个日期之间的时间间隔。
</BLOCKQUOTE>
<H5>语法</H5>
<BLOCKQUOTE>
<b>DateDiff(</b><B>interval</B><B>,</B> <B>date1</B><B>, </B><B>date2</B> [<B>,</B><B>firstdayofweek</B>[<B>,</B> <B>firstweekofyear</B>]]<b>)</b><P>
<b>DateDiff</b> 函数的语法有以下参数:<P>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD><FONT SIZE="2"><b>参数</b></FONT></TD>
<TD><FONT SIZE="2"><b>描述</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>interval</B></FONT></TD>
<TD><FONT SIZE="2">必选。<A HREF="glossary.htm#defStringExpression">String expression</A> 表示用于计算 <B>date1</B> 和 <B>date2</B> 之间的时间间隔。有关数值,请参阅“设置”部分。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>date1, date2</B></FONT></TD>
<TD><FONT SIZE="2">必选。日期表达式。用于计算的两个日期。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>firstdayofweek</B></FONT></TD>
<TD><FONT SIZE="2">可选。指定星期中第一天的常数。如果没有指定,则默认为星期日。有关数值,请参阅“设置”部分。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>firstweekofyear</B></FONT></TD>
<TD><FONT SIZE="2">可选。指定一年中第一周的常数。如果没有指定,则默认为 1 月 1 日所在的星期。有关数值,请参阅“设置”部分。</FONT></TD></TR></TABLE>

</BLOCKQUOTE>
<P>
<H5>设置</H5>
<BLOCKQUOTE>
<B>interval</B> 参数可以有以下值:<p>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD WIDTH=15%><FONT SIZE="2"><b>设置</b></FONT></TD>
<TD><FONT SIZE="2"><b>描述</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>yyyy</B></FONT></TD>
<TD><FONT SIZE="2">年</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>q</B></FONT></TD>
<TD><FONT SIZE="2">季度</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>n</B></FONT></TD>
<TD><FONT SIZE="2">月</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>y</B></FONT></TD>
<TD><FONT SIZE="2">一年的日数</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>d</B></FONT></TD>
<TD><FONT SIZE="2">日</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>w</B></FONT></TD>
<TD><FONT SIZE="2">一周的日数</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>ww</B></FONT></TD>
<TD><FONT SIZE="2">周</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>h</B></FONT></TD>
<TD><FONT SIZE="2">小时</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>m</B></FONT></TD>
<TD><FONT SIZE="2">分钟</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>s</B></FONT></TD>
<TD><FONT SIZE="2">秒</FONT></TD></TR>
</TABLE><p>
<B>firstdayofweek</B> 参数可以有以下值:<p>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD><FONT SIZE="2"><b>常数</b></FONT></TD>
<TD WIDTH=10%><FONT SIZE="2"><b>值</b></FONT></TD>
<TD WIDTH=75%><FONT SIZE="2"><b>描述</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbUseSystem</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">0</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">使用区域语言支持 (NLS) API 设置。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbSunday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">1</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期日(默认)</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbMonday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">2</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期一</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbTuesday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">3</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期二</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbWednesday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">4</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期三</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbThursday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">5</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期四</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbFriday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">6</FONT></TD>
<TD WIDTH=87%><FONT SIZE="2">星期五</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbSaturday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">7</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期六</FONT></TD></TR>
</TABLE><p>
<B>firstweekofyear</B> 参数可以有以下值:<p>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD><FONT SIZE="2"><b>常数</b></FONT></TD>
<TD WIDTH=10%><FONT SIZE="2"><b>值</b></FONT></TD>
<TD WIDTH=75%><FONT SIZE="2"><b>描述</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbUseSystem</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">0</FONT></TD>
<TD WIDTH=85%><FONT SIZE="2">使用区域语言支持 (NLS) API 设置。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbFirstJan1</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">1</FONT></TD>
<TD WIDTH=85%><FONT SIZE="2">由 1 月 1 日所在的星期开始(默认)。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbFirstFourDays</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">2</FONT></TD>
<TD WIDTH=85%><FONT SIZE="2">由在新年中至少有四天的第一周开始。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbFirstFullWeek</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">3</FONT></TD>
<TD WIDTH=85%><FONT SIZE="2">由在新的一年中第一个完整的周开始。</FONT></TD></TR>
</TABLE>
</BLOCKQUOTE>
<H5>说明</H5>
<BLOCKQUOTE>
<b>DateDiff</b> 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 <b>DateDiff</b> 计算两个日期相差的天数,或者当天到当年最后一天之间的星期数。<p>
要计算 <B>date1</B> 和 <B>date2</B> 相差的天数,可以使用“一年的日数”(“y”)或“日”(“d”)。当 <B>interval </B>为“一周的日数”(“w”)时,<b>DateDiff</b> 返回两个日期之间的星期数。如果 <B>date1</B> 是星期一,则 <b>DateDiff</b> 计算到 <B>date2</B> 之前星期一的数目。此结果包含 <B>date2</B> 而不包含 <B>date1</B>。如果 <B>interval</B> 是“周”(“ww”),则 <b>DateDiff</b> 函数返回日历表中两个日期之间的星期数。函数计算 <B>date1</B> 和 <B>date2</B> 之间星期日的数目。如果 <B>date2</B> 是星期日,<b>DateDiff</b> 将计算 <B>date2</B>,但即使 <B>date1</B> 是星期日,也不会计算 <B>date1</B>。<p>
如果 <B>date1</B> 晚于 <B>date2</B>,则 <b>DateDiff</b> 函数返回负数。<p>
<B>firstdayofweek</B> 参数会对使用“w”和“ww”间隔符号的计算产生影响。<p>
如果 <B>date1</B> 或 <B>date2</B> 是日期文字,则指定的年度会成为日期的固定部分。但是如果 <B>date1</B> 或 <B>date2</B> 被包括在引号 (" ") 中并且省略年份,则在代码中每次计算 <B>date1</B> 或 <B>date2</B> 表达式时,将插入当前年份。这样就可以编写适用于不同年份的程序代码。<p>
在 <B>interval </B>为“年”(“yyyy”)时,比较 12 月 31 日和来年的 1 月 1 日,虽然实际上只相差一天,<b>DateDiff</b> 返回 1 表示相差一个年份。<P>
下面例子利用 <b>DateDiff</b> 函数显示给定日期和当天日期之间的天数:
<BLOCKQUOTE><PRE><FONT FACE="宋体" SIZE=3>Function DiffADate(theDate)
DiffADate = "从当天开始的天数:" & <font color="#FF0000">DateDiff(</FONT>"d"<font color="#FF0000">,</FONT> Now<font color="#FF0000">,</FONT> theDate<font color="#FF0000">)</FONT>
End Function
</FONT></PRE></BLOCKQUOTE>
</BLOCKQUOTE>
<hr noshade size=1>
<!--COPYRIGHT BEGIN-->
<A HREF="/misc/cpyright.htm" TARGET="_top">(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use</A>.
<!--COPYRIGHT END-->

</FONT></BODY></HTML>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><HTML>
<HEAD>
<TITLE>DateDiff 函数</TITLE>
<META NAME=MS-HAID CONTENT="vsfctDateDiff">
<META HTTP-EQUIV="Content Type" CONTENT="text/html; charset=gb2312">
<META NAME="MS.LOCALE" CONTENT="ZH-CN">
<META NAME="PRODUCT" CONTENT="Visual Basic Scripting Edition">
<META NAME="TECHNOLOGY" CONTENT="SCRIPTING">
<META NAME="CATEGORY" CONTENT="语言参考">
<META NAME="Keywords" CONTENT="DateDiff 函数;决定日期;日期;时间间隔; vbUseSystem; vbSunday; vbMonday; vbTuesday; vbWednesday; vbThursday; vbFriday; vbSaturday; vbFirstJan1; vbFirstFourDays; vbFirstFullWeek">
<META NAME="Description" CONTENT="DateDiff 函数">
</HEAD>
<BODY BGCOLOR=FFFFFF LINK=#0033CC>
<!--TOOLBAR_START-->
<!--TOOLBAR_EXEMPT-->
<!--TOOLBAR_END-->
<FONT FACE="宋体" SIZE="2">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%><TR VALIGN=TOP><TD WIDTH=360>
<FONT SIZE="2" COLOR=#660033>Microsoft(R) Visual Basic(R) Scripting Edition</FONT><BR>
<FONT SIZE="5" COLOR=#660033><B>DateDiff 函数</B></FONT>
</TD>
<TD ALIGN=RIGHT>
<FONT SIZE="2"><A HREF="vbstoc.htm">语言参考</A> <BR>
<!--START PAGE START--><A HREF="default.htm" TARGET="_top">起始页</A> | <!--START PAGE END--><A HREF="vbsversion.htm">版本 2</A> <P></FONT>
</TD></TR>
</TABLE>
<FONT SIZE="2"><P>
<A HREF="vsfctDateDiffC.htm">请参阅</A></FONT>
<HR noshade SIZE=1>
<H5>描述</H5>
<BLOCKQUOTE>
返回两个日期之间的时间间隔。
</BLOCKQUOTE>
<H5>语法</H5>
<BLOCKQUOTE>
<b>DateDiff(</b><B>interval</B><B>,</B> <B>date1</B><B>, </B><B>date2</B> [<B>,</B><B>firstdayofweek</B>[<B>,</B> <B>firstweekofyear</B>]]<b>)</b><P>
<b>DateDiff</b> 函数的语法有以下参数:<P>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD><FONT SIZE="2"><b>参数</b></FONT></TD>
<TD><FONT SIZE="2"><b>描述</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>interval</B></FONT></TD>
<TD><FONT SIZE="2">必选。<A HREF="glossary.htm#defStringExpression">String expression</A> 表示用于计算 <B>date1</B> 和 <B>date2</B> 之间的时间间隔。有关数值,请参阅“设置”部分。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>date1, date2</B></FONT></TD>
<TD><FONT SIZE="2">必选。日期表达式。用于计算的两个日期。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>firstdayofweek</B></FONT></TD>
<TD><FONT SIZE="2">可选。指定星期中第一天的常数。如果没有指定,则默认为星期日。有关数值,请参阅“设置”部分。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>firstweekofyear</B></FONT></TD>
<TD><FONT SIZE="2">可选。指定一年中第一周的常数。如果没有指定,则默认为 1 月 1 日所在的星期。有关数值,请参阅“设置”部分。</FONT></TD></TR></TABLE>

</BLOCKQUOTE>
<P>
<H5>设置</H5>
<BLOCKQUOTE>
<B>interval</B> 参数可以有以下值:<p>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD WIDTH=15%><FONT SIZE="2"><b>设置</b></FONT></TD>
<TD><FONT SIZE="2"><b>描述</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>yyyy</B></FONT></TD>
<TD><FONT SIZE="2">年</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>q</B></FONT></TD>
<TD><FONT SIZE="2">季度</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>n</B></FONT></TD>
<TD><FONT SIZE="2">月</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><B>y</B></FONT></TD>
<TD><FONT SIZE="2">一年的日数</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>d</B></FONT></TD>
<TD><FONT SIZE="2">日</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>w</B></FONT></TD>
<TD><FONT SIZE="2">一周的日数</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>ww</B></FONT></TD>
<TD><FONT SIZE="2">周</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>h</B></FONT></TD>
<TD><FONT SIZE="2">小时</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>m</B></FONT></TD>
<TD><FONT SIZE="2">分钟</FONT></TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%><FONT SIZE="2"><B>s</B></FONT></TD>
<TD><FONT SIZE="2">秒</FONT></TD></TR>
</TABLE><p>
<B>firstdayofweek</B> 参数可以有以下值:<p>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD><FONT SIZE="2"><b>常数</b></FONT></TD>
<TD WIDTH=10%><FONT SIZE="2"><b>值</b></FONT></TD>
<TD WIDTH=75%><FONT SIZE="2"><b>描述</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbUseSystem</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">0</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">使用区域语言支持 (NLS) API 设置。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbSunday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">1</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期日(默认)</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbMonday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">2</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期一</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbTuesday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">3</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期二</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbWednesday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">4</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期三</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbThursday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">5</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期四</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbFriday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">6</FONT></TD>
<TD WIDTH=87%><FONT SIZE="2">星期五</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbSaturday</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">7</FONT></TD>
<TD WIDTH=75%><FONT SIZE="2">星期六</FONT></TD></TR>
</TABLE><p>
<B>firstweekofyear</B> 参数可以有以下值:<p>
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD><FONT SIZE="2"><b>常数</b></FONT></TD>
<TD WIDTH=10%><FONT SIZE="2"><b>值</b></FONT></TD>
<TD WIDTH=75%><FONT SIZE="2"><b>描述</b></FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbUseSystem</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">0</FONT></TD>
<TD WIDTH=85%><FONT SIZE="2">使用区域语言支持 (NLS) API 设置。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbFirstJan1</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">1</FONT></TD>
<TD WIDTH=85%><FONT SIZE="2">由 1 月 1 日所在的星期开始(默认)。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbFirstFourDays</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">2</FONT></TD>
<TD WIDTH=85%><FONT SIZE="2">由在新年中至少有四天的第一周开始。</FONT></TD></TR>
<TR VALIGN=TOP>
<TD><FONT SIZE="2"><b>vbFirstFullWeek</b></FONT></TD>
<TD ALIGN=CENTER WIDTH=10%><FONT SIZE="2">3</FONT></TD>
<TD WIDTH=85%><FONT SIZE="2">由在新的一年中第一个完整的周开始。</FONT></TD></TR>
</TABLE>
</BLOCKQUOTE>
<H5>说明</H5>
<BLOCKQUOTE>
<b>DateDiff</b> 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 <b>DateDiff</b> 计算两个日期相差的天数,或者当天到当年最后一天之间的星期数。<p>
要计算 <B>date1</B> 和 <B>date2</B> 相差的天数,可以使用“一年的日数”(“y”)或“日”(“d”)。当 <B>interval </B>为“一周的日数”(“w”)时,<b>DateDiff</b> 返回两个日期之间的星期数。如果 <B>date1</B> 是星期一,则 <b>DateDiff</b> 计算到 <B>date2</B> 之前星期一的数目。此结果包含 <B>date2</B> 而不包含 <B>date1</B>。如果 <B>interval</B> 是“周”(“ww”),则 <b>DateDiff</b> 函数返回日历表中两个日期之间的星期数。函数计算 <B>date1</B> 和 <B>date2</B> 之间星期日的数目。如果 <B>date2</B> 是星期日,<b>DateDiff</b> 将计算 <B>date2</B>,但即使 <B>date1</B> 是星期日,也不会计算 <B>date1</B>。<p>
如果 <B>date1</B> 晚于 <B>date2</B>,则 <b>DateDiff</b> 函数返回负数。<p>
<B>firstdayofweek</B> 参数会对使用“w”和“ww”间隔符号的计算产生影响。<p>
如果 <B>date1</B> 或 <B>date2</B> 是日期文字,则指定的年度会成为日期的固定部分。但是如果 <B>date1</B> 或 <B>date2</B> 被包括在引号 (" ") 中并且省略年份,则在代码中每次计算 <B>date1</B> 或 <B>date2</B> 表达式时,将插入当前年份。这样就可以编写适用于不同年份的程序代码。<p>
在 <B>interval </B>为“年”(“yyyy”)时,比较 12 月 31 日和来年的 1 月 1 日,虽然实际上只相差一天,<b>DateDiff</b> 返回 1 表示相差一个年份。<P>
下面例子利用 <b>DateDiff</b> 函数显示给定日期和当天日期之间的天数:
<BLOCKQUOTE><PRE><FONT FACE="宋体" SIZE=3>Function DiffADate(theDate)
DiffADate = "从当天开始的天数:" & <font color="#FF0000">DateDiff(</FONT>"d"<font color="#FF0000">,</FONT> Now<font color="#FF0000">,</FONT> theDate<font color="#FF0000">)</FONT>
End Function
</FONT></PRE></BLOCKQUOTE>
</BLOCKQUOTE>
<hr noshade size=1>
<!--COPYRIGHT BEGIN-->
<A HREF="/misc/cpyright.htm" TARGET="_top">(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use</A>.
<!--COPYRIGHT END-->

</FONT></BODY></HTML>[/CODE]

2006-11-01 10:27
NqIceCoffee
Rank: 1
等 级:新手上路
帖 子:68
专家分:0
注 册:2006-7-25
收藏
得分:0 
楼上的斑斑,看看俺的帖子呗

帮助别人,提高自己!
2006-11-01 10:30
快速回复:[求助]这样的代码应该怎么写
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.103263 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved