加入收藏 | 设为首页 | 会员中心 | 我要投稿 | 在线留言 | RSS
成网科技业务包括域名空间企业网站制作
 
国际域名com/net/org仅售80元/年
1G独立空间(PHP+MYSQL)仅售600元/年
您当前的位置:首页 > 数据库 > Access

Access日期与时间函数汇总

时间:2013-02-27 09:01:32  来源:成网科技  作者:佚名  点击:

今天在开发系统的时候,需要实现这样一个功能QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Access日期与时间函数汇总QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

根据选中的日期,查询相关的内容,但不是按照整个日期去过滤,而是根据,年,月,日拆分的形式去过滤,比如2013年的,2月份的QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

在sqlserver中,我们可以可以直接根据datePart去完成即可QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

select * from pays where 1=1 and datepart(year, pdate)=2013 and datepart(month, pdate)=2 and datepart(day, pdate)=26 order by pdateQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

但是在access中却通不过,因为方法有些不一样,需要这样写QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

select * from pays where 1=1 and datepart("yyyy", pdate)=2013 and datepart("m", pdate)=2 and datepart('d', pdate)=21 order by pdateQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

关于sqlserver的函数在前面说到了,现在把access的日期函数总结一下QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

如何将文本型:2003.08.04 转换为日期型:2003-08-04QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
cdate(replace("2003.08.04",".","-"))QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

显示当前日期在该年中所处的星期号QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
=Format(Now(), "ww")QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ww 为 1 到 53。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

显示日期字段值的四位年份值。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
=DatePart("yyyy", [订购日期])QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

显示日期字段值前 10 天的日期值。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
=DateAdd("y", -10, [应付日期])QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

显示日期字段值前一个月的日期值。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
=DateAdd("m",-1,Date())QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

显示日期1和日期2之间相差的天数。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
=DateDiff("d", [订购日期], [发货日期])QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

从今天算起到三个月后的日期之间的记录。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
Betweeb date() and adddate(3,date())QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

根据出生日期计算年龄(周岁)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
=IIf(Month(Date())-Month([出生年月日])>-1,Year(Date())-Year([出生年月日]),Year(Date())-Year([出生年月日])-1)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

自定义日期/时间格式 (Format 函数)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
(:) 时间分隔符。在一些区域,可能用其他符号来当时间分隔符。格式化时间值时,时间分隔符可以分隔时、分、秒。时间分隔符的真正字符在格式输出时取决于系统的设置。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

(/) 日期分隔符。在一些区域,可能用其他符号来当日期分隔符。格式化日期数值时,日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式输出时取决于系统设置。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

C 以 ddddd 来显示日期并且以 ttttt 来显示时间。如果想显示的数值无小数部分,则只显示日期部分,如果想显示的数值无整数部分,则只显示时间部分。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

DQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以没有前导零的数字来显示日 (1 – 31)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

DdQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以有前导零的数字来显示日 (01 – 31)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

dddQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以简写来表示日 (Sun –Sat)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ddddQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以全称来表示日 (Sunday –Saturday)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

dddddQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以完整日期表示法显示(包括年、月、日),日期的显示要依系统的短日期格式设置而定。缺省的短日期格式为 m/d/yy。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ddddddQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以完整日期表示法显示日期系列数(包括年、月、日),日期的显示要依系统识别的长日期格式而定。缺省的长日期格式为 mmmm dd, yyyy。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

aaaaQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

与dddd 一样,它只是该字符串的本地化版本。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

WQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

将一周中的日期以数值表示(1 表星期日~ 7表星期六)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

wwQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

将一年中的星期以数值表示 (1 – 54)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

MQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以没有前导零的数字来显示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之后,那么显示的将是分而不是月。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

mmQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以有前导零的数字来显示月 (01 – 12)。如果m是直接跟在h或hh之后,那么显示的将是分而不是月。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

mmmQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以简写来表示月 (Jan –Dec)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

mmmmQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以全称来表示月 (January –December)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ooooQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

与mmmm一样,它只是该字符串的本地化版本。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

QQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

将一年中的季以数值表示 (1 – 4)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

YQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

将一年中的日以数值表示 (1 – 366)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

YyQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以两位数来表示年 (00 – 99)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

yyyyQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以四位数来表示年 (00 – 99)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

HQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以没有前导零的数字来显示小时 (0 – 23)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

HhQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以有前导零的数字来显示小时 (00– 23)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

NQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以没有前导零的数字来显示分 (0 – 59)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

NnQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以有前导零的数字来显示分 (00 – 59)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

SQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以没有前导零的数字来显示秒 (0 – 59)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

SsQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以有前导零的数字来显示秒 (00 – 59)。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

t t t t tQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

以完整时间表示法显示(包括时、分、秒),用系统识别的时间格式定义的时间分隔符进行格式化。如果选择有前导零并且时间是在 10:00 A.M. 或 P.M.之前,那么将显示有前导零的时间。缺省的时间格式为 h:mm:ss。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

AM/PMQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

在中午前以 12 小时配合大写 AM 符号来使用;在中午和 11:59 P.M.间以 12 小时配合大写 PM 来使用。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Am/pmQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

在中午前以 12 小时配合小写 am 符号来使用;在中午和 11:59 P.M.间以 12 小时配合小写 pm 来使用。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

A/PQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

在中午前以 12 小时配合大写A符号来使用;在中午和 11:59 P.M.间以12 小时配合大写P来使用。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

a/pQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

在中午前以 12 小时配合小写a符号来使用;在中午和 11:59 P.M.间以 12 小时配合小写p来使用。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

AMPMQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

在中午前以 12 小时配合系统设置的 AM字符串文字来使用;在中午和 11:59 P.M. 间以 12 小时配合系统设置的 PM 字符串文字来使用。AMPM 可以是大写或小写,但必须和您的系统设置相配。其缺省格式为 AM/PM。QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

日期函数示例QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
当天日期:=Date()QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

当日:=Day(date)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

当月:=Month(date())QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

当年:=Year(date())QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

当季:=DatePart("q",Date())QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

把日期大写QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
Function Date2Chinese(iDate)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Dim num(10)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Dim iYearQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Dim iMonthQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Dim iDayQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(0) = "〇"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(1) = "一"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(2) = "二"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(3) = "三"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(4) = "四"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(5) = "五"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(6) = "六"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(7) = "七"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(8) = "八"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num(9) = "九"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

iYear = Year(iDate)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

iMonth = Month(iDate)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

iDay = Day(iDate)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Date2Chinese = num(iYear / 1000) + _QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

num((iYear / 100) Mod 10) + num((iYear / 10) Mod 10) + num(iYear Mod 10) + "年"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

If iMonth >= 10 ThenQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

If iMonth = 10 ThenQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Date2Chinese = Date2Chinese +"十" + "月"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ElseQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Date2Chinese = Date2Chinese +"十" + num(iMonth Mod 10) + "月"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End IfQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ElseQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Date2Chinese = Date2Chinese +num(iMonth Mod 10) + "月"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End IfQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

If iDay >= 10 ThenQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

If iDay = 10 ThenQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Date2Chinese = Date2Chinese +"十" + "日"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ElseIf iDay = 20 Or iDay = 30 ThenQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Date2Chinese = Date2Chinese + num(iDay / 10) + "十" + "日"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ElseIf iDay > 20 ThenQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Date2Chinese = Date2Chinese + num(iDay / 10) + "十" + num(iDay Mod 10) + "日"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ElseQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Date2Chinese = Date2Chinese + "十" + num(iDay Mod 10) + "日"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End IfQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

ElseQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Date2Chinese = Date2Chinese + num(iDay Mod 10) + "日"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End IfQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End FunctionQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

算出每个月的天数QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
一法:QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Dim a, b, cQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

a = Year(Now())QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

b = Month(Now())QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

c = Format((a & "/" & b + 1 & "/1"), "######") - Format((a & "/" & b & "/1"), "######")QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

二法:QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

DateDiff("d", Format(Date, "yyyy-mm-01"), Format(DateAdd("m", -1, Date), "yyyy-mm-01"))QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

DateDiff可以算出两个日期之间相差几天!QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

三法:QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Day(DateAdd("d", -1, Format(Date, "yyyy-mm-01")))QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

 QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

day函数可以知道某个日期是这个月的第几天,我们把这个月的最后一天拿出来DAY一下!应该还有更好的方法!比如说可以定义一个数组,把每个月的日子放进去,或者说写一个函数算每一个月的天数只要考虑一下闺年的问题就可以了!QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

如何得到某年每个月的第一天是星期几QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
Private Sub Command1_Click()QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Dim i As Integer, A As Integer, B As Integer, C As StringQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

A = InputBox("请输入年份", "某年每个月的第一天是星期几")QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Form1.ClsQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

For i = 1 To 12QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

C = A & "-" & i & "-1"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

B = Weekday(C)QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Select Case BQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Case vbSundayQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Print A & "年" & i & "月1日是 星期日"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Case vbMondayQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Print A & "年" & i & "月1日是 星期一"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Case vbTuesdayQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Print A & "年" & i & "月1日是 星期二"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Case vbWednesdayQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Print A & "年" & i & "月1日是 星期三"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Case vbThursdayQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Print A & "年" & i & "月1日是 星期四"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Case vbFridayQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Print A & "年" & i & "月1日是 星期五"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Case vbSaturdayQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Print A & "年" & i & "月1日是 星期六"QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End SelectQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Next iQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End SubQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

计算天数及月初月末日期QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
Function 本月天数(日期 As Date) As ByteQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

本月天数 = DateSerial(Year(日期), Month(日期) + 1, Day(日期)) - 日期QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End FunctionQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Function 月末(日期 As Date) As DateQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

月末 = DateSerial(Year(日期), Month(日期) + 1, 1) - 1QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End FunctionQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Function 月初(日期 As Date) As DateQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

月初 = 日期 - Day(日期) + 1QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

End FunctionQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

本月最后一日是周几QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
SELECTQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1)) AS 本月最后一日是周几,QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

下月最后一日是周几QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
SELECTQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1)) AS 下月最后一日是周几,QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

本月最后一个周5到月底的天数QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
SELECTQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 本月最后一个周5到月底的天数;QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

下月最后一个周5到月底的天数QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
SELECTQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 下月最后一个周5到月底的天数;QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

本月最后一个周5的日期QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
SELECTQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 本月最后一个周5的日期;QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

下月最后一个周5的日期QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
SELECTQUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))+1) Mod 7 AS 下月最后一个周5的日期;QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

多思考,多创新,才是正道!QUz成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

成网科技 www.it28.com竭诚为您服务!
开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设_成网科技

更多
 


来顶一下
返回首页
返回首页
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表
推荐资讯
相关文章
栏目更新
栏目热门