[vb.net] 주차 구하기 월, 년 ~번째주 > vb.net

본문 바로가기

vb.net

[기타] [vb.net] 주차 구하기 월, 년 ~번째주

회원사진
하나를하더라도최선을
2023-01-12 19:35 2,391 0

본문



    Public Function GetWeek(ByVal targetDate As DateTime) As Integer
        Dim calculationDate As DateTime = New DateTime(targetDate.Year, targetDate.Month, 1)
        Dim calenderCalc As Calendar = CultureInfo.CurrentCulture.Calendar
        Dim da As Integer = calenderCalc.GetWeekOfYear(targetDate, CalendarWeekRule.FirstDay, DayOfWeek.Sunday)
        Dim db As Integer = calenderCalc.GetWeekOfYear(calculationDate, CalendarWeekRule.FirstDay, DayOfWeek.Sunday)
        Dim usWeekNumber As Integer = da - db + 1
        Return usWeekNumber
    End Function
 
 
 
'// 일년중 몇번째주
 
    Public Shared Function GetWeekOfYear(ByVal targetDate As DateTime) As Integer
        Return GetWeekOfYear(targetDate, Nothing)
    End Function
 
    Public Shared Function GetWeekOfYear(ByVal targetDate As DateTime, ByVal culture As CultureInfo) As Integer
        If culture Is Nothing Then culture = CultureInfo.CurrentCulture
        Dim weekRule As CalendarWeekRule = culture.DateTimeFormat.CalendarWeekRule
        Dim firstDayOfWeek As DayOfWeek = culture.DateTimeFormat.FirstDayOfWeek
        Return culture.Calendar.GetWeekOfYear(targetDate, weekRule, firstDayOfWeek)
    End Function

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색