vb点虐 获取年 vba获取年月日

vb点虐 获取年，月，日，时，分，秒

不是 有 函数嘛？

成都创新互联公司是一家专业提供汉阴企业网站建设,专注与网站设计制作、成都做网站、html5、小程序制作等业务。10年已为汉阴众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。

now() 就是 吧

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

vb点虐 中怎么获取日期中的年月日时分秒

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点虐 调出年月日

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

dim CurDay as string

dim CurTime as string

curday=day()

curtime=time()

Label1.Caption = Date

就能在Label16显示当前日期

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

而

year()

month()

day()

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