datum bij dag in weeknummer

[vliet1001]

Hoi,

In een sheet wil ik bij de dagen van de week ook automatisch de datum plaatsen.
Hier kom ik echter niet uit. Hulp gevraagd dus. :thumb:
Hoe bereken ik de datum van de maandag van week 37 - 2009 en plaats deze als ik het een weeknumer ingeef ?

Groet,
Jan

 

[Rene67]

Hoi,

In een sheet wil ik bij de dagen van de week ook automatisch de datum plaatsen.
Hier kom ik echter niet uit. Hulp gevraagd dus. :thumb:
Hoe bereken ik de datum van de maandag van week 37 - 2009 en plaats deze als ik het een weeknumer ingeef ?

Groet,
Jan

Heb je een voorbeeldje?
Groet Rene

 

[ReneDirks]

Toevallig vorige maand een stukje code voor geschreven:

Public Function GetDateFromWeekNr(iWeekNr As Integer, Optional iYear) As Date
    'find the 1st monday
    Dim dCheckDate As Date
    Dim iWeekStart As Integer
    If IsMissing(iYear) Then iYear = Year(Date)
    
    dCheckDate = CDate("1-1-" & iYear)
    'get the weeknr
    iWeekStart = GetWeekNr(dCheckDate)
    If iWeekStart = 53 Then iWeekStart = 0
    dCheckDate = DateAdd("ww", iWeekNr - iWeekStart, dCheckDate)
    'now find the 1st monday
    While Weekday(dCheckDate) <> vbMonday
        dCheckDate = dCheckDate - 1
    Wend
    GetDateFromWeekNr = dCheckDate
End Function

Public Function GetWeekNr(dDate As Date) As Integer
Dim t As Long
t = DateSerial(Year(dDate + (8 - Weekday(dDate)) Mod 7 - 3), 1, 1)
GetWeekNr = ((dDate - t - 3 + (Weekday(t) + 1) Mod 7)) \ 7 + 1
End Function

 

[bandito bob]

volgende formule geeft de maandag van die week:

=DATUM(jaar;1;2)-WEEKDAG(DATUM(jaar;1;1);2)+7*(week-ALS(WEEKDAG(DATUM(jaar;1;1);2)<5;1;0))

week >> cel met het week nummer.
jaar >> cel met het jaar nummer.
voor de dinsdag doe je de gevonden maandag +1 enz...

 

[henryvanbeek]

Bedankt

Ik gebruik dit forum regelmatig als ik problemen heb. Deze vraag was dan ook zeer waardevol voor mij. Bedankt.

Met vriendelijke groet,

Henry van Beek