-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Formule voor weeknummer
- Onderwerp starter jolly01
- Startdatum
- Status
richard1970
Terugkerende gebruiker
- Lid geworden
- 12 mei 2005
- Berichten
- 2.663
Beste jolly,
De functie weeknummer is een Amerikaanse omdat Excel doro een Amerikaans bedrijf is geproduceerd, terwil wij in Europa anders rekenen. Lees meer op:
http://office.microsoft.com/nl-nl/excel-help/weeknummers-berekenen-in-excel-HA010258100.aspx
Hier zie je ook wat je moet plaatsen in A2 voor het juiste weeknummer:
Groeten,
Richard
De functie weeknummer is een Amerikaanse omdat Excel doro een Amerikaans bedrijf is geproduceerd, terwil wij in Europa anders rekenen. Lees meer op:
http://office.microsoft.com/nl-nl/excel-help/weeknummers-berekenen-in-excel-HA010258100.aspx
Hier zie je ook wat je moet plaatsen in A2 voor het juiste weeknummer:
Code:
=INTEGER((A1-DATUM(JAAR(A1-WEEKDAG(A1-1)+4);1;3)+WEEKDAG(DATUM(JAAR(A1-WEEKDAG(A1-1)+4);1;3))+5)/7)Groeten,
Richard
Via VBA (code ooit gevonden op het www):
Of met de formules in de bijlage (zijn van Ron de Bruin)
Code:
Public Function ISOweeknumNaarDatum(ByVal Jaar As Integer, ByVal Week As Integer) As Date
Dim Maandag As Date, IsoWeek As Integer
Maandag = EersteMaandagJaar(Jaar)
IsoWeek = ISOweeknum(Maandag)
If IsoWeek = 53 Then IsoWeek = 1
ISOweeknumNaarDatum = ((Week - IsoWeek) * 7) + Maandag
End Function
Public Function ISOweeknum(ByVal Datum As Date) As Integer
ISOweeknum = DatePart("ww", Datum, vbMonday, vbFirstFourDays)
End Function
Private Function EersteMaandagJaar(ByVal Jaar As Integer) As Date
Const DONDERDAG = 4
Dim Nieuwjaar As Date, Weekdag As Integer
Nieuwjaar = DateSerial(Jaar, 1, 1)
Weekdag = DatePart("w", Nieuwjaar, vbMonday, vbFirstFourDays) - 1
EersteMaandagJaar = Nieuwjaar - Weekdag
If Weekdag > DONDERDAG Then EersteMaandagJaar = EersteMaandagJaar + 7
End FunctionOf met de formules in de bijlage (zijn van Ron de Bruin)
- Status
