form1.vb

来自「一个计算当前周是一年第多少周的源代码WeekNo」· VB 代码 · 共 17 行

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = WeekOfYear(Me.xMonthCalendar.TodayDate)
    End Sub

    Function WeekOfYear(ByVal d As Date) As Int16
        Dim dFirst As Date = Date.Parse(Now.Year.ToString & "-01-01")
        Dim iFirst As Integer = dFirst.DayOfWeek
        Return (d.DayOfYear + iFirst + 6) / 7
    End Function

    Private Sub xMonthCalendar_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles xMonthCalendar.DateSelected
        Label1.Text = WeekOfYear(e.Start)
    End Sub
End Class