Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '获得当前日期字符串
创新互联专业为企业提供勐海网站建设、勐海做网站、勐海网站设计、勐海网站制作等企业网站建设、网页设计与制作、勐海企业网站模板建站服务,十年勐海做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '当前日期转换成DateTime
Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '获得当前日期是星期几
Dim differadd As Integer = 1 - ThisWeekDay '相差的天数(星期1与当前星期几相差的天数)
Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)
Dim MyYear As Integer = Format(Now, "yyyy") '获取当前日期的年份
Dim MyMonth As Integer = Format(Now, "MM") '获取当前日期的月份
Dim MyDay As Integer = Format(Now, "dd") '获取当前日期是几号
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是:" Yourday)
Dim a As String
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函数,这个函数是用于把字符型变量转换成日期型变量,
字符型变量(本例中的a)如果不是标准的日期格式,请先用字符串函数处理成标准日期格式再用CDate函数进行转换,否则会报错
在应用开发中,开发人员经常要进行各种各样的日期处理。如果你需要一种简单的方法来计算出给定两个日期间的天数,不妨考虑使用VB.NET中的TimeSpan对象。 列表A向你演示了如何使用TimeSpan对象来获得两个日期间的时间值。今后,你可以使用Subtract方法来获得两个日期间的实际天数。 关于列表A的一些说明 首先,我们声明一个Date类型的变量dtStartDate,并赋初值为2007年一月一日。同时,还声明了其它一些将会用到的变量,包括:TimeSpan的一个实例tsTimeSpan,整型数iNumberOfDays,字符串型变量strMsgText。设定变量tsTimeSpan的值为当前日期/时间值与dtStartDate值得差。 为了计算出当前日期/时间(Now)与dtStartDate之间的天数,我们使用TimeSpan对象的Days属性,设定它的值为iNumberOfDays 。查看本文来源