흐흐 생각보다 쉽지 않아서 시간이 꽤 걸려버렸네요
이카님이 답변을 주셨는데 살펴보니 조금 다른 방식이었고 코드가 경량 버전이어서
이것도 참고 하시라고 올렸습니다(사실은 몇시간 허비한게 ㅠㅠ)
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
첫댓글 와~간단하네요^^; 대단하심돠~