包含vb.net获取当年年的词条

如何用vb.net添加年份

先取当前年份再算出和原始年份的差然后来个循环写出这几个年份

开平网站建设公司创新互联,开平网站设计制作，有大型网站制作公司丰富经验。已为开平超过千家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的开平做网站的公司定做！

用日期函数day()可获得当前日期,time()可获得当前系统时间.

dim CurDay as string

dim CurTime as string

curday=day()

curtime=time()

Label1.Caption = Date

就能在Label16显示当前日期

now 这个函数可以获得当前系统时间（包括年月日，小时分钟秒）

而

year()

month()

day()

等等则可以从now返回的值中分别提取年，月，日的信息

不是有函数嘛？

now() 就是吧

取得后再分离出你所需的，分别赋值就行了，当然还是有函数的

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)

分享名称：包含vb.net获取当年年的词条
网页URL：http://scjbc.cn/article/dooposo.html