Find bestemte uger mellem 2 datoer

Jeg forestiler mig en løsning, hvor man først får et array ud med "ugenumrene på hver tredje uge" i perioden også bagefter kan man tjekke om den aktuelle uge er i arrayet.

Jeg ved bare ikke helt hvordan... og hvordan holder man styr på gentagende ugenumre i arrayet, hvis nu perioden er over flere år fx 5 år kan et ugenummer jo godt være i arrayet flere gange...

Jeg er kommet lidt videre jeg har fået udfyldt 2 array med uger og år:
**************
xuge = CInt(xuge)
tempStartdato = startdatofor_aktuelt_arrangement
Dim arUge()
Redim arUge(1)
Dim arAar()
Redim arAar(1)
arTaeller = 0
                   
arUge(arTaeller) = DatePart("ww", tempStartdato, vbMonday, vbFirstFourDays)
arAar(arTaeller) = Year(tempStartdato)
naesteUgeTilArray = DatePart("ww", tempStartdato+(xuge*7), vbMonday, vbFirstFourDays)
Do until CDate(tempStartdato) > CDate(slutdatofor_aktuelt_arrangement)
  tempStartdato = CDate(tempStartdato)+7
  tempUge = DatePart("ww", tempStartdato, vbMonday, vbFirstFourDays)
  tempAar = Year(tempStartdato)
  if tempUge = naesteUgeTilArray then
      arTaeller = arTaeller + 1
      Redim Preserve arUge(arTaeller)
      Redim Preserve arAar(arTaeller)
      arUge(arTaeller) = DatePart("ww", tempStartdato, vbMonday, vbFirstFourDays)
      arAar(arTaeller) = Year(tempStartdato)
      naesteUgeTilArray = DatePart("ww", tempStartdato+(xuge*7), vbMonday, vbFirstFourDays)
  end if
Loop
************************
Nu skal jeg så bare finde ud af at bruge dem :-)

Jobs done :-)
***********************
xuge = CInt(xuge)
tempStartdato = startdatofor_aktuelt_arrangement
Dim arUge()
Redim arUge(1)
'Dim arAar()
'Redim arAar(1)
arTaeller = 0
                   
arUge(arTaeller) = DatePart("ww", tempStartdato, vbMonday, vbFirstFourDays)
'arAar(arTaeller) = Year(tempStartdato)
naesteUgeTilArray = DatePart("ww", tempStartdato+(xuge*7), vbMonday, vbFirstFourDays)
Do until CDate(tempStartdato) > CDate(slutdatofor_aktuelt_arrangement)
  tempStartdato = CDate(tempStartdato)+7
  tempUge = DatePart("ww", tempStartdato, vbMonday, vbFirstFourDays)
  tempAar = Year(tempStartdato)
  if tempUge = naesteUgeTilArray then
      arTaeller = arTaeller + 1
      Redim Preserve arUge(arTaeller)
      Redim Preserve arAar(arTaeller)
      arUge(arTaeller) = DatePart("ww", tempStartdato, vbMonday, vbFirstFourDays)&"_"& Year(tempStartdato)
      'arAar(arTaeller) = Year(tempStartdato)
      naesteUgeTilArray = DatePart("ww", tempStartdato+(xuge*7), vbMonday, vbFirstFourDays)
  end if
Loop

aktuelUGEforgennemloeb = DatePart("ww", dtmCurDate, vbMonday, vbFirstFourDays)
aktuelAARforgennemloeb = Year(dtmCurDate)
kikefter = aktuelUGEforgennemloeb &"_"&aktuelAARforgennemloeb
udskriv = false

For j = UBound(arUge) to 0 Step - 1
  if arUge(j) = kikefter then
    udskriv = true
    exit for
  end if
Next
***********************

Hvis der er nogle der kan se en bedre og hurtigere måde er jeg lydhør, men ovenstående virker :-)

Mere effekttivt.. Drop arrays....
******************
xuge = CInt(xuge)
tempStartdato = startdatofor_aktuelt_arrangement

naesteUgeTilArray = DatePart("ww", tempStartdato+(xuge*7), vbMonday, vbFirstFourDays)
                           
aktuelUGEforgennemloeb = DatePart("ww", dtmCurDate, vbMonday, vbFirstFourDays)
aktuelAARforgennemloeb = Year(dtmCurDate)
kikefter = aktuelUGEforgennemloeb &"_"&aktuelAARforgennemloeb
udskriv = false
                           
Do until CDate(tempStartdato) > CDate(slutdatofor_aktuelt_arrangement)
  tempUge = DatePart("ww", tempStartdato, vbMonday, vbFirstFourDays)
  tempAar = Year(tempStartdato)
  tempKikefter = tempUge&"_"&tempAar                       
  if tempUge = naesteUgeTilArray then
    vaerdi_til_array = DatePart("ww", tempStartdato, vbMonday, vbFirstFourDays) &"_"&Year(tempStartdato)
    if vaerdi_til_array = kikefter then
      udskriv = true
      exit do
    else
      naesteUgeTilArray = DatePart("ww", tempStartdato+(xuge*7), vbMonday, vbFirstFourDays)
    end if
    end if
    tempStartdato = CDate(tempStartdato)+7   
Loop
******************

Håber andre måske nyde godt af ovenstående - jeg fik jo selv opgaven :-)