vb.net获得星期 vb日期转换成星期几公式

vb.net中如何获取当前日期所在星期的星期一

1

string[] Day = new string[] { "星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六" };

string week = Day[Convert.ToInt32(DateTime.Now.DayOfWeek.ToString("d"))].ToString();

this.lbDay.Text = week;

2

this.lbDay.Text = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.GetDayName(DateTime.Now.DayOfWeek);

相关问答

Q1: 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 '相差vb.net获得星期的天数（星期1与当前星期几相差vb.net获得星期的天数）

Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)

Dim MyYear As Integer = Format(Now, "yyyy") '获取当前日期vb.net获得星期的年份

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("本周星期一的日期是vb.net获得星期：" Yourday)

Q2: vb.net中怎么根据日期算出是周几呢？

Public Function IsRunnian(ByVal n As Integer) As Boolean

        Dim res As Boolean

        res = False

        If n Mod 400 = 0 Then

            res = True

        End If

        If (n Mod 100  0) And (n Mod 4 = 0) Then

            res = True

        End If

        IsRunnian = res

    End Function

Public Function Fc(ByVal td As Date) As Byte

    Dim y As Integer

    Dim m As Integer

    Dim d As Integer

    Dim yc As Integer

    Dim mc As Integer

    Dim dc As Integer

    y = Year(td)

    m = Month(td)

    d = Day(td)

    

    dc = d

    If IsRunnian(y) Then

       mc = Val(Mid("512503514624", m, 1))

    Else

       mc = Val(Mid("622503514624", m, 1))

    End If

    yc = ((y Mod 100) \ 4 + (y Mod 100)) Mod 7

    

    Fc = (yc + mc + dc) Mod 7

End Function

vb.net获得星期的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb日期转换成星期几公式、vb.net获得星期的信息别忘了在本站进行查找喔。