VBS基础篇 - vbscript常用函数及功能_vbs_

 Option Explicit '*********************************Date/Time函数******************************* 'CDate函数把一个合法的日期和事件表达式转换为Date类型，并返回结果 Dim d1 Dim d2 Dim d3 d1="April 22,2001" If IsDate(d1) Then     MsgBox CDate(d1) End If d2=#2/22/01# If IsDate(d2) Then     MsgBox CDate(d2) End If d3="3:18:40 AM" If IsDate(d3) Then     MsgBox CDate(d3) End If 'Date函数返回当前系统的日期 '日期 MsgBox Date '日期+时间 MsgBox Now '时间 MsgBox Time 'DateAdd函数可返回已添加指定时间间隔的日期 MsgBox DateAdd("yyyy",1,"31-Jan-2003")'加一年 MsgBox DateAdd("yyyy",1,"31-Jan-2003")'减一年 MsgBox DateAdd("q",1,"31-Jan-2003")'加一个季度 MsgBox DateAdd("m",1,"31-Jan-2003")'加一个月 MsgBox DateAdd("y",1,"31-Jan-2003")'当年的第几天 MsgBox DateAdd("d",1,"31-Jan-2003")'增加一天 MsgBox DateAdd("w",1,"31-Jan-2003")'当周的第几天 MsgBox DateAdd("ww",1,"31-Jan-2003")'增加一个周 MsgBox DateAdd("h",1,"31-Jan-2003")'某日期的第一个小时 MsgBox DateAdd("n",1,"31-Jan-2003")'某日期的第一分钟 MsgBox DateAdd("s",1,"31-Jan-2003")'某日期的第一秒 'DateDiff函数可返回两个日期之间的时间间隔数 MsgBox DateDiff("yyyy",Date,"31-Jan-2012") MsgBox DateDiff("q",Date,"31-Jan-2012") MsgBox DateDiff("m",Date,"31-Jan-2012") MsgBox DateDiff("y",Date,"31-Jan-2012") MsgBox DateDiff("d",Date,"31-Jan-2012") MsgBox DateDiff("w",Date,"31-Jan-2012") MsgBox DateDiff("ww",Date,"31-Jan-2012") MsgBox DateDiff("h",Date,"31-Jan-2012") MsgBox DateDiff("n",Date,"31-Jan-2012") MsgBox DateDiff("s",Date,"31-Jan-2012") 'DatePart函数可返回给定日期的指定部分 Dim d d="2/10/2012 16:25:56" MsgBox DatePart("yyyy",d) MsgBox DatePart("m",d) MsgBox DatePart("q",d) MsgBox DatePart("w",d) MsgBox DatePart("ww",d) MsgBox DatePart("y",d) MsgBox DatePart("s",d) MsgBox DatePart("h",d) MsgBox DatePart("n",d) MsgBox DatePart("d",d) 'DateSerial函数可返回指定的年、月、日的子类型Date的Variant MsgBox DateSerial(2012,2,30) 'DateValue函数返回一个日期类型 MsgBox DateValue("31-Jan-2012 2:39:49 AM") 'Day函数可返回介于1到31之间的一个代表月的天数的数字 MsgBox Day(Date) 'FormatDateTime函数可格式化并返回一个额合法的日期或时间表达式 MsgBox FormatDateTime(Now,0) MsgBox FormatDateTime(Now,1) MsgBox FormatDateTime(Now,2) MsgBox FormatDateTime(Now,3) MsgBox FormatDateTime(Now,4) 'Hour函数可返回介于0到23之间的代表天的小时数的数字 MsgBox Hour(Now) 'IsDate函数可返回一个布尔值，指示经计算的表达式是否可被转换为日期，如果表达式是日期或可被转换为日期，则返回True，否则，返回False。 MsgBox IsDate("15-3-2012") 'Minute函数可返回表示小时的分钟数的数字 MsgBox Minute(Now) 'Month函数可返回表示年的月份的数字 MsgBox Month(Now) 'Second函数可返回表示分钟的秒数的数字 MsgBox Second(Now) 'Time函数可返回当前的系统时间 MsgBox Time 'Timer函数可返回午夜12时以后已经过去的秒数 MsgBox Timer 'TimeSerial函数可把时、分、秒合并成为时间 MsgBox TimeSerial(3,45,50) 'TimeValue函数可返回包含时间的日期子类型的变量 MsgBox TimeValue(Now) 'Weekday函数可返回表示一周的天数的数字，介于1和7之间。 MsgBox Weekday(Date,0) 'Weekday
                
提示：
                    本文由神整理自网络，如有侵权请联系本站删除！
                    

                    本站声明： 

                    1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持； 

                    2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！
                
                

                

                                            
上一篇：VBS基础篇 - wscript 对象详解_vbs_
                                                                
下一篇：vbs操作txt文本文件常用方法与函数代码_vbs_