怎么不给标签上周 [英] how get week no to lable

问题描述

如何在vb.net.pls中获得每周不收费的标签帮助我.
tax

how get week no to lable in vb.net.pls help me.
tax

推荐答案

尝试以下扩展方法:

Try this extension method:

<System.Runtime.CompilerServices.Extension> _
Public Shared Function WeekOfYear([date] As DateTime) As Integer
	Dim startOfYear As New DateTime([date].Year, 1, 1)
	Dim endOfYear As New DateTime([date].Year, 12, 31)
	' ISO 8601 weeks start with Monday 
	' The first week of a year includes the first Thursday 
	' This means that Jan 1st could be in week 51, 52, or 53 of the previous year...
	Dim numberDays As Integer = [date].Subtract(startOfYear).Days + moveByDays(CInt(startOfYear.DayOfWeek))
	Dim weekNumber As Integer = numberDays \ 7
	Select Case weekNumber
		Case 0
			' Before start of first week of this year - in last week of previous year
			weekNumber = WeekOfYear(startOfYear.AddDays(-1))
			Exit Select
		Case 53
			' In first week of next year.
			If endOfYear.DayOfWeek < DayOfWeek.Thursday Then
				weekNumber = 1
			End If
			Exit Select
	End Select
	Return weekNumber
End Function

(这是我的C#扩展方法的自动转换: DateTime扩展给出周号的方法 [ ^ ])

(It''s an automated conversion of my C# Extension method: DateTime extension method to give Week number[^])

这篇关于怎么不给标签上周的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！