VB.NET函数——日期时间函数
VB.NET函数——日期时间函数
三、日期时间函数
&一& 获取/设置目前日期时间函数
&（1）Now ()：返回系统目前的日期和时间。如： 早上10:38:22
&（2）Today ()：返回或设置系统目前的日期。
&（3）TimeOfDay ()：返回或设置系统目前的时间。
&（4）DataString ()：以“yyy-mm-dd”格式返回或设置系统目前时间。
&（5）Timer ()：以Double类型返回自午夜到今所经过的秒数和毫秒数，秒数是返回值的整数部分，毫秒数则是小数部分。
&二& 返回日期时间函数
&（1）合并年月日成日期函数 DateSerial ()
&&&& 格式：DateSerial (year As Integer , month As Integer , day As Integer ) As DateTime
&&&& 说明：将参数所指定的年月日合并成日期返回，参数year的值须是介于1~9999的整数，若是介于0~99的整数，将被解释为，若是小于1的整数，将自目前年底中减去；参数day的值须是介于1~31的整数，若是小于1的整数，将自目前日期中减去。例如：DateSerial (99,10,22)&会返回##；DateSerial (99,10,22-23)会返回#”；DateSerial (99,10,22+3)会返回##。
&（2）将字符串转换成日期函数 DateValue ()
&&& &格式：DateValue (str As String) As Date Time
&&&& 说明：将参数转换成日期返回。参数str是表示由1年1月00：00：00到9999年12月31日23：59：59之间日期/时间值的字符串表达式。例如：DateValue (“Februay , 12 , 1972”)会返回##。
&（3）合并时分秒成时间函数TimeSerial ()
&&& &格式：TimeSerial Chour As Integer , minute As Integer , Second As Integer ) As DateTime
&&&& 说明：将参数所指定的时分秒合并成时间返回。参数hour的值必须是介于0~23的整数，若是小于1的整数，将自目前小时数中减去；参数minute和参数second的值须是介于0~59的整数，若是小于1的整数，将分别自目前分钟数与秒数中减去，例如：TimeSerial (12-6,-15,0)会返回上午06:45:00
&（4）将字符串转换成时间函数TimeValue ()
&&&& 格式：TimeValue (str As String) As DateTime
&&&& 说明：将参数转换成时间返回。参数str是表示由1年1月1日00：00：00到9999年12月31日23：59：59之日期/时间值的字符串表达式。例如：TimeValue (“4:35:17 pm”) 会返回#下午04:35:17#。
&（5）获取月份名称函数MonthName ()
&&& &格式：MonthName (month As Integer [ , abbreviate As Boolean]) As String
&&& &说明：根据参数month的值返回月份的名称，例如：MonthName (12)会返回“十二月”字符串，参数month的类型为Integer；选择性参数abbreViate类型为Boolean，用来表示月份的名称能否被缩写。
&（6）获取星期几名称函数WeekdayName ()
&&& &格式：WeekdayName (weekday As Integer [, abbreviate As Boolean [, dayofweek As FirstDayOfWeek ]]) AS String
&&& &说明：根据参数weekday的值返回星期几的名称，默认情况下，1，2~7会分别返回“星期日”、“星期一”~“星期六”；abbreviate用来表示星期几的名称能否被缩写，而选择性参数dayofweek的类型为FirstDayOfWeek枚举，用来表示一星期的第几天，默认为FirstDayOfWeek.System (0)，即采取系统设置中所指定的每周第一天，通常是星期日。如下表：
FirstDayOfWeek枚举成员
FirstDayOfWeek.System
系统设置指定每周的第一天（默认值）
FirstDayOfWeek.Sunday
FirstDayOfWeek.Monday
FirstDayOfWeek.Tuesday
FirstDayOfWeek.Webnesday
FirstDayOfWeek.Thursday
FirstDayOfWeek.Friday
FirstDayOfWeek.Saturday
&三& 计算日期时间函数
&（1）日期时间增减函数DateAdd ()
&&& &格式：DateAdd (interval As DateInerVal , number As Double , dt As DateTime ) As DateTime
&&&& 说明：将参数dt指定的日期加上number个intval。例如：DateAdd (“m”, 1, #11/25/1990#)会返回##，其中interval为“m”，表示月份，number为“1”，dt为指定的日期，这个叙述的意义是将dt指定的日期加上1个月，DateAdd (“q”, 2, ##)会返回##，也就是##加上两个季。Interval属于DateInterVal枚举，成员如下表：
DateInterVal.Year
DateInterVal.Quarte
DateInterVal.Month
DateInterVal.DayOfYear
一年中的第几天
DateInterVal.Day
DateInterVal.Hour
DateInterVal.WeekOfYear
一年中的第几周
DateInterVal.DayOfWeek
一周中的星期几
DateInterVal.Minute
DateInterVal.Second
&（2）日期时间差函数DateDiff ()
&& &&格式：DateDiff (interval As DateInterVal, dt1 As DateTime, dt2 As DateTime [, dayofweek As FirstDayOfWeek [, weekofyear As FirstWeekOfYear ]] As Long
&&& &说明：返回dat1和dat2 两个日期之间的间隔数，间隔单位为参数interval，例如：DateDiff (“m”,#12/15/1990#, ##1/10/1990# )会返回-11，即两个日期相间隔11个月（第一个参数指定间隔单位为月；DateDiff (“d”, #12/5/90# , #12/15/90# )会返回10，即两个日期间隔10天（第一个参数指定间隔单位为天）。
&&&& 参数interval属于DateInterVal枚举；选择性参数dayofweek可以省略，用来指定哪一天为一周的第一天，属于FirstDateOfWeek枚举，其值有FirstDayWeek.System (0), FirstDayWeek.Sunday (1), FirstDayWeek.Monday (2), FirstDayWeek.Tuesday (3), FirstDayWeek.Wednesday (4), FirstDayWeek.Saturday (5), FirstDayWeek.Friday (6), FirstDayWeek.Satuday (7)等8种；选择性参数weekofyear可以省略，用来指定哪一周为一年的第一周，属于FirstWeekOfYear枚举，其值有FirstWeelkOfYear.System (0)系统默认值、FirstWeelkOfYear.Jan (1)一月一日当周、FirstWeelkOfYear.FirstFourDays (2)新年度至少有4天在该周、FirstWeelkOfYear.FirstFullWeek (3)新年度的第一个完整星期等4种；例如：DateDiff (“ww”, dat1, 1)会返回两个日期之间有几个星期日。
&（3）获取日期时间的指定部份函数DatePart ()
&&&& 格式：DatePart (interval As DateInterval, dt As DateTime [, dayofweek As FirstDayOfWeek [, weekofyear As FirstWeekOfYear ]])说明：返回特定日期指定部分。例如会返回天数，因为月日为年的第天；会返回，表示为星期二。函数的参数意义同函数。
发表评论：
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&中国石油大学华东VB练习题(大一下)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
中国石油大学华东VB练习题(大一下)
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩38页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢vb习题解答_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
vb习题解答
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩23页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢使用VB写一个程序,可以检测出天数和季节1、测日期用date函数,测月份用month函数,测年份用year函数；2、判断闰年的方法& 如果年份能被400整除,或年份能被4整除,但不能被100整除,则闰年.约定：春季：3、4、5夏季：6、7、8秋季：9、10、11冬季：12、1、2&
你这不是有了吗?
这只是题目给的图片，没有程序代码。
sub123123()
dim y as int
i as string
dim o as string
dim p as string
= year(now)
= month(now)
= day(now)
=1 or m=3 or m =5 or m =7 or m =8 or m =10 or m =12 then
o = "大月"
p = “31”
m =4 or m=6 or m =9 or m = 11 then
o =“平月”
y mod 400 = 0 and y mod 100 0 then
K = "闰年"
p = “29”
p = “28”
msgbox“本月是 ”& m & "月，是“ & o & ”，“ & p & ”天“
sub123123（）
dim y as int
dim m as int
dim d as int
dim i as string
dim o as string
m = month(now)
i = format(date,"YYYY-MM-DD")
5=>m=>3 then
o = "春季"
elseif 8=>m =>6 then
o = "夏季"
elseif 11=>m=> 9 then
o = "秋季"
o = "冬季"
msgbox ”今天是“ & i & ”，是“ & o
代码不是最简单的但是是完美实现的。
为您推荐：
扫描下载二维码15秋北航《VB语言程序设计》在线作业二答案_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
15秋北航《VB语言程序设计》在线作业二答案
||暂无简介
邵阳市谋学天下教育信息咨询有限公司主要从...|
总评分0.0|
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩2页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢