vb.net获取月份天数 vb 获取当前日期

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.net获取年，月，日，时，分，秒

不是 有 函数嘛？

now() 就是 吧

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

Q2: 怎么在VB.NET中，提取系统日期中的后的 月和日 的位数

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a As Short = Date.Now.Month

Dim b As Short = Date.Now.Day

MessageBox.Show(a)

MessageBox.Show(b)

End Sub

上面是获取月份以及天数

'======================

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a As Short = Date.Now.Month

Dim b As Short = Date.Now.Day

Dim c, d As String

If a 0 AndAlso a 10 Then

c = "1位数"

Else

c = "2位数"

End If

If b 0 AndAlso b 10 Then

d = "1位数"

Else

d = "2位数"

End If

MessageBox.Show(c)

MessageBox.Show(d)

End Sub

这个是获取位数的

Q3: VB怎样获取指定年月的天数

datestr=now() '取当前系统日期

sday=year(datestr)"-"month(datestr)"-1" '当前月第一天

eday=DateAdd("m", 1, sday) '增加一个月时间

eday=DateAdd("d", -1, eday) '减去一天就是月末日期

eday=day(eday) '得到当月天数