vb.net返回日期的简单介绍

vb.net中怎么获取日期中的年月日时分秒

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)

相关问答

Q1: VB如何调用本地系统日期时间

用TIMER控件调用NOW函数，可取得系统的日期和时间：

Private Sub Timer1_Timer()

Text1 = Now

End Sub

Q2: VB.NET如何返回当前时间

首先建立一个timer控件和一个label控件，之后把timer控件的interval属性改为1000

之后编写代码：

Private Sub Timer1_Timer()

a = Time$

Label1.Caption = "当前时间为：" a

End Sub

我想应该是，你试试看把……

Q3: vb.net 求日期的， 出来的结果是 2011-06-11. 21：22:30 , 如果我不想要几点几分，怎么弄？

用Date直接得到日期，不要用now。

有格式方面的要求，再用 format

Q4: 请问怎么用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返回的值中分别提取年，月，日的信息