week N's

[Excelvbas01]

In het voorbeeld bestandje heb ik twee comboboxen en twee textboxen.
Ik zou graag textboxen vullen met datum van de gekozen week no.
Dit is afhankelijke van het gekozen jaar.
Ik kom zelf er niet uit hoe ik dit moet doen. Hopelijk heeft iemand een idee.

voorbeeld: 2025 weeknummer 40
in de eerste textbox komt dan te staan: 29 september 2025
in de tweede textbox komt de 5 oktober 2025
De week loopt namelijk van ma 29/9 t/m zo 5/10

 

[popipipo]

Waarom speciaal met texboxen
Kan ook gewoon in een cel.

 

[HSV]

Bv.

Private Sub ComboBox2_change()
  bgdatum = Format(Evaluate("7*(" & ComboBox2 & "-1)+date(" & ComboBox1 & ",1,4)- weekdaAy(date(" & ComboBox1 & ",1,4),2)+1"), "dd-mm-yyyy")
  endatum = Format(CDate(bgdatum) + 6, "dd-mm-yyyy")
End Sub

Misschien zijn in de loop der jaren al betere formules gemaakt om de dag te bepalen.

 

[popipipo]

in de loop der jaren al betere formules

Zou kunnen, dit is er nog eentje uit de oude doos.

 

[HSV]

@popipipo, haha, die van mij ook.

 

[popipipo]

Als iemand een nieuwere versie heeft horen we het graag

 

[AlexCEL]

Alternatieve formule voor het voorbeeld in #2:

=DATUM(B9;1;7*B10-WEEKDAG(DATUM(B9;1;4);2)-2)

 

[peter59]

Of misschien zoiets?
LET OP: er is geen rekening gehouden met een eventueel weeknr 53.

PS: nieuw bestandje toegevoegd. De formule was niet goed.

 

[snb]

Vond ik toevallig hier: https://snb-vba.eu/VBA_ISO_weeknummer.html

in A1 het jaar
in A2 het weeknummer

maandag
=7*(A2-1)+AFRONDEN.BENEDEN( DATUM(A1;1;4);7)+1
zondag
=7*A2+AFRONDEN.BENEDEN( DATUM(A1;1;4);7)

 

[HSV]

@snb,

Je loopt met die formule 1 en 2 week voorop.

 

[snb]

Daggutnie.

 

[popipipo]

wie van de 5?