Re:오늘이 몇주째인지 알 수있는 함수는 없나요?

[서당개3년]

흐흐 생각보다 쉽지 않아서 시간이 꽤 걸려버렸네요

이카님이 답변을 주셨는데 살펴보니 조금 다른 방식이었고 코드가 경량 버전이어서

이것도 참고 하시라고 올렸습니다(사실은 몇시간 허비한게 ㅠㅠ)

Private Sub Command1_Click()
  Dim CurDate As Date
  Dim StartDate As Date
  Dim NowWeek As Integer
 
  CurDate = #10/9/2004#  '몇주째인지를 알고 싶은 날짜
  '지정된 달의 첫날을 두자리 형식으로 변수에 넣는다
  StartDate = Format(Year(CurDate) & "/" & Month(CurDate) & "/" & "01", "00")
  '주 를 알고싶은 날짜에서 그 달의 첫날을 빼고 토요일을 기준으로 한 값을 더한다
  '"ww" = 한 해를 기준으로 주 를 표시(1 ~ 54 주)
  NowWeek = Format(CurDate, "ww", , vbUseSystem) - Format(StartDate, "ww", , vbUseSystem)
 
  If Weekday(StartDate) <> 7 Then '요일을 정수값으로 반환한다
    NowWeek = NowWeek + 1
  End If
 
  Print Month(CurDate) & "월" & NowWeek & " 째주"
End Sub

[이카]

와~간단하네요^^; 대단하심돠~