Access日期和时间函数Word文件下载.docx

1、事例：DateAdd（d,10,2000-6-18）结果是： 2000-06-28m,-1, 2000-05-186、DateDiff 函数返回 Variant （Long） 的值，表示两个指定日期间的时间间隔数目。语法 DateDiff（interval, date1, date2, firstdayofweek, firstweekofyear）DateDiff 函数语法中有下列命名参数：字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔Date1date2 必要；Variant （Date）。计算中要用到的两个日期。Firstdayofweek 可选。指定一个星期的

2、第一天的常数。如果未予指定，则以星期日为第一天。firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。interval 参数的设定值同DateAdd函数，请参考上面的例子。例：DateDiff（,#2004-01-06#,#2004-01-07#） 17、DatePart 函数返回一个包含已知日期的指定时间部分的 Variant （Integer）。语法 DatePart（interval, date,firstdayofweek, firstweekofyear）DatePart 函数语法中有下列命名参数：字符串表达式，是要返回的

3、时间间隔。要计算的 Variant （Date） 值。指定一年第一周的常数。设置interval 参数的设定值同DateAdd（）DatePart 函数示例本示例先取得一个日期，然后使用 DatePart 函数显示该日期是发生在该年的哪一季。Dim TheDate As Date 声明变量。Dim MsgT12、Time 函数返回一个指明当前系统时间的 Variant （Date）。语法Time示例使用 Time 函数返回系统当前的时间。Dim MyTimeMyTime = Time 返回系统当前的时间为了设置系统时间，请使用 Time 语句。设置系统时间。Time = time必要的 tim

4、e 参数，可以是任何能够表示时刻的数值表达式、字符串表达式或它们的组合。如果 time 是一字符串，则 Time 会试着根据系统指定的时间，利用时间分隔符将其转换成一个时间。如果无法转换成一个有效的时间，则会导致错误发生。13、FormatDateTime函数描述返回一个日期或时间格式的表达式。FormatDateTime（Date,NamedFormat）FormatDateTime函数语法有如下几部分：Date 必需的。要被格式化的日期表达式NamedFormat可选的。数字值，表示日期/时间所使用的格式。如果忽略该值，则使用vbGeneralDate。设置值NamedFormat参数的设

5、置值如下：常数 值 描述vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则用短日期格式显示。如果有时间部分，则用长时间格式显示。如果都有，两部分都显示。VbLongDate 1 用计算机区域设置值中指定的长日期格式显示日期。VbShortDate 2 用计算机区域设置值中指定的短日期格式显示日期。18、用户自定义日期/时间格式 （Format 函数）下面标识一些可用来创建用户自定义日期/时间格式的字符：字符 说明（:） 时间分隔符。在一些区域，可能用其他符号来当时间分隔符。格式化时间值时，时间分隔符可以分隔时、分、秒。时间分隔符的真正字符在格式输出时取决于系统的设置。（/）

6、 日期分隔符。在一些区域，可能用其他符号来当日期分隔符。格式化日期数值时，日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式输出时取决于系统设置。c 以 ddddd 来显示日期并且以 ttttt 来显示时间。如果想显示的数值无小数部分，则只显示日期部分，如果想显示的数值无整数部分，则只显示时间部分。d 以没有前导零的数字来显示日 （131）。dd 以有前导零的数字来显示日 （0131）。ddd 以简写来表示日 （SunSat）dddd 以全称来表示日 （SundaySaturday）ddddd 以完整日期表示法显示（包括年、月、日），日期的显示要依系统的短日期格式设置而定。dddddd

7、以完整日期表示法显示日期系列数（包括年、月、日），日期的显示要依系统识别的长日期格式而定。缺省的长日期格式为 mmmmdd, yyyy。aaaa 与dddd 一样，它只是该字符串的本地化版本。w 将一周中的日期以数值表示（1 表星期日 7表星期六）。ww 将一年中的星期以数值表示 （154）。m 以没有前导零的数字来显示月 （112）。如果 m 是直接跟在 h 或 hh 之后，那么显示的将是分而不是月。mm 以有前导零的数字来显示月 （01 12）。如果m是直接跟在h或hh之后，那么显示的将是分而不是月。mmm 以简写来表示月 （JanDec）。mmmm 以全称来表示月 （JanuaryDec

8、ember）。oooo 与mmmm一样，它只是该字符串的本地化版本。q 将一年如何将文本型：2003.08.04 转换为日期型：2003-08-04cdate（replace（2003.08.04,.-）显示当前日期在该年中所处的星期号=Format（Now（）, wwww 为 1 到 53。显示日期字段值的四位年份值。=DatePart（yyyy, 订购日期）显示日期字段值前 10 天的日期值。=DateAdd（y, -10, 应付日期）显示日期字段值前一个月的日期值。,-1,Date（）显示日期1和日期2之间相差的天数。=DateDiff（, 订购日期, 发货日期）从今天算起到三个月后的日

9、期之间的记录。Betweeb date（） and adddate（3,date（）根据出生日期计算年龄（周岁）=IIf（Month（Date（）-Month（出生年月日）-1,Year（Date（）-Year（出生年月日）,Year（Date（）-Year（出生年月日）-1）日期函数示例当天日期：=Date（）当日：=Day（date）当月：=Month（date（）当年：=Year（date（）当季：q,Date（）算出每个月的天数一法：Dim a, b, ca = Year（Now（）b = Month（Now（）c = Format（a & / & b + 1 &/1）, #） - F

10、ormat（a & b &二法：, Format（Date, yyyy-mm-01）, Format（DateAdd（, -1, Date）, DateDiff可以算出两个日期之间相差几天！三法：Day（DateAdd（, -1, Format（Date, ）day函数可以知道某个日期是这个月的第几天，我们把这个月的最后一天拿出来DAY一下！应该还有更好的方法！比如说可以定义一个数组，把每个月的日子放进去，或者说写一个函数算每一个月的天数只要考虑一下闺年的问题就可以了！如何得到某年每个月的第一天是星期几Private Sub Command1_Click（）Dim i As Integer,

11、A As Integer, B As Integer, C As StringA = InputBox（请输入年份, 某年每个月的第一天是星期几Form1.ClsFor i = 1 To 12C = A & i &-1B = Weekday（C）Select Case BCase vbSundayPrint A &年月1日是 星期日Case vbMonday月1日是 星期一Case vbTuesday月1日是 星期二Case vbWednesdaya-Sql Server中的日期与时间函数 ?蒰（寝 ?1. 当前系统日期、时间 F桗?赝Q?select getdate（） 鈙H 倂建鶞Oh牧葵

12、2. dateadd 在向指定日期加上一段时间的基础上，返回新的 datetime 值r鯔俏? ?例如：向日期加上2天 ?5皴? 煃select dateadd（day,2,2004-10-15） -返回：2004-10-17 00:00:00.000Ew郬*矝?礛娞3. datediff 返回跨两个指定日期的日期和时间边界数。jo u 秙 溽select datediff（day,2004-09-01,2004-09-1817?鼄G驂W毰筒?4. datepart 返回代表指定日期的指定日期部分的整数。劸赔D/穙SELECT DATEPART（month, ） -返回 10Rk銍倝K$7$欤

13、晛u!:5. datename 返回代表指定日期的指定日期部分的字符串堼梶 U咙SELECT datename（weekday, 星期五S 吜瞎d湺 茜?鈠66. day（）, month（）,year（） -可以与datepart对照一下V?u罞戀/m HZ?Sselect 当前日期=convert（varchar（10）,getdate（）,120） s 喨?,当前时间=convert（varchar（8）,getdate（）,114） 即N 屾蛶4抗栳B銫K/select datename（dw,） ?3慯萳籋?b?|select 本年第多少周=datename（week,）宎梯d 短?

14、,今天是周几=datename（weekday,）牶 ?1嶙挈鱒聈 W?n奄8姓婨?函数 参数/功能 y? 蓦?GetDate（ ） 返回系统目前的日期与时间 瞫濾#縶?DateDiff （interval,date1,date2） 以interval 指定的方式，返回date2 与date1两个日期之间的差值 date2-date1 鸊脺 儔砍?DateAdd （interval,number,date） 以interval指定的方式，加上number之后的日期 鐺e蠅5流DatePart （interval,date） 返回日期date中，interval指定部分所对应的整数值 鑒/蟉错渥

15、DateName （interval,date） 返回日期date中，interval指定部分所对应的字符串名称 杶逯 夤脅c呓h :l =?参数 interval的设定值如下：掅 YW 鲫=8?濠 ?值 缩 写（Sql Server） （Access 和 ASP） 说明 蔟 T）軤Year Yy yyyy 年 1753 9999 A玍癣0qgQuarter Qq q 季 1 4 駨#伥沠?F;Month Mm m 月1 12 O?c（a耀蒪Day of year Dy y 一年的日数,一年中的第几日 1-366 Y 觲挰 褽Day Dd d 日，1-31 粤茎綪嶴诳Weekday Dw w

16、一周的日数，一周中的第几日 1-7 襪齀 &Week Wk ww 周，一年中的第几周 0 51 ?X葤7 膧Hour Hh h 时0 23 F?F啇U暜?Minute Mi n 分钟0 59 貞r笍oSecond Ss s 秒 0 59 ?6Y?;dMillisecond Ms - 毫秒 0 999 AQ彩堐?E8闪潽麘缂p彰t3access 和 asp 中用date（）和now（）取得系统日期时间；其中DateDiff,DateAdd,DatePart也同是能用于Access和asp中，这些函数的用法也类似畵?bHLu 阏p缤举例：/0R符?氦?1.GetDate（） 用于sql serve

17、r :select GetDate（）邊象4 面?Xg# $逹2.DateDiff（s2005-07-202005-7-25 22:56:32）返回值为 514592 秒O 侠 札DateDiff（d）返回值为 5 天倮KiC伅嬟v 嶇嶽?觬3.DatePart（w）返回值为 2 即星期一（周日为1，周六为7）?聕qV0?DatePart（）返回值为 25即25号y萱1雍破?y）返回值为 206即这一年中第206天髄? 驐?yyyy）返回值为 2005即2005年=MSSQL汉字转拼音函数实现语句2009-11-10 16:37/* -函数: fn_GetPinyin描述: 汉字转拼音（无数据

18、表版）使用: dbo.fn_GetPinyin（中华人民共和国） = zhonghuarenmingongheguo作者: 流香羽 （改编：Tony）- */IF OBJECT_ID（fn_GetPinyin） IS NOT NULLDROP FUNCTION fn_GetPinyinGOcreate function dbo.fn_GetPinyin（words nvarchar（2000）returns varchar（8000）asbegindeclare word nchar（1）declare pinyin varchar（8000）declare i intdeclare word

19、s_len intdeclare unicode intset i = 1set words = ltrim（rtrim（words）set words_len = len（words）while （i = words_len） -循环取字符set word = substring（words, i, 1）set unicode = unicode（word）set pinyin = ISNULL（pinyin +SPACE（1）,）+（case when unicode（word） between 19968 and 19968+20901 then（select top 1 py from

20、 （select a as py,N厑 as wordunion all select ai,N靉an黯ang醠ao驁ba欛bai瓸 -韛兡瓸ban瓣bang鎊bao鑤bei鐾ben輽beng鏰bi鼊bian變biao鰾bie彆bin鬢bing靐bo蔔bu簿ca囃cai乲 -縩乲can爘cang賶cao鼜ce簎cen笒ceng乽 -硛硳岾猠乽cha詫chai囆chan顫chang韔chao觘che爡chen讖cheng秤chi鷘chong銃chou殠chu矗chuai踹chuan鶨chuang愴chui顀chun蠢chuo縒ci嗭 -賜嗭cong謥cou輳cu顣cuan爨cui臎cun籿cuo錯da橽dai靆dan饏dang闣union all select