자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

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

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 4,425회 작성일 23-01-12 19:35

본문

    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

댓글목록

등록된 댓글이 없습니다.