달력 분기 기간에 주 번호를 결정하는 방법 VB6

Question

표준 날짜 기반 (즉, 하루 1 = 2017-01-01) 달력 표에서 분기 기간의 주 수를 결정하는 기능을 찾는 데 약간의 문제가 있습니다.

은 내 테이블은 다음과 같은 정보가 저장되어있다 :

분기 번호, 시작 날짜, 종료 날짜, 일의 번호;

예를 들어

, 연도 1 분기, 1 주에 대한 결과는 주 (14)는 분기 4

모든 아이디어의 마지막 주까지 각 분기를 통과, 1 것 1하시기 바랍니다 것 도움?

Answer 1

저는 내장 함수가 있다고 생각하지 않습니다. 당신이 묻는 것을 이해한다면, 이것은 사소한 기능입니다. 어떤 코드도 포함하지 않으므로 가장 기본적인 예제 만 제공합니다. 당신은 이것과 비슷한 것을하고 싶다.

Public Function GetWeekInQuarter(ByVal WeekNumber As Integer) As Integer 
    Const intWeeksInQuarter = 13 
    Dim intResult As Integer 

    intResult = WeekNumber Mod intWeeksInQuarter 
    'if intResult <> intWeeksInQuarter = 0 then this is the 13th week 
    GetWeekInQuarter = IIf(intResult <> intWeeksInQuarter, intResult, intWeeksInQuarter) 

End Function