Weeknummer in excel

Discussion:

Weeknummer in excel

(te oud om op te antwoorden)

marian

2006-01-15 15:37:04 UTC

Voor dat ik aan denken ga over de formule vraag ik me af hoe de weeknummers berekend worden.
Ik wil dat automatisch voor een datum van de zondag begin van de week dus het week nummer komt
maar hoe vang je een jaar op met weeknummer 53 want soms is er een jaar met week 53/0 dus na
week 52 is niet de volgende week 1 maar krijg je eerst week 53 of die noemen ze soms week 0

marian

2006-01-15 15:47:44 UTC

Permalink

Post by marian
Voor dat ik aan denken ga over de formule vraag ik me af hoe de weeknummers berekend worden.
Ik wil dat automatisch voor een datum van de zondag begin van de week dus het week nummer komt
maar hoe vang je een jaar op met weeknummer 53 want soms is er een jaar met week 53/0 dus na
week 52 is niet de volgende week 1 maar krijg je eerst week 53 of die noemen ze soms week 0

Ik zal zelf even vertellen wat ik zelf doe zodat het niet lijkt alsof is alles vraag ;-0
De datum is geen probleem want de eerst datum moet ik zelf invoeren en de andere (365) wordt
gewoon steeds met +1 opgehoogd en dat gaat goed met de datum ook als het volgende jaar
begint gaat dat goed.
A1 geef ik b.v. 16-12-5 en er staat dan 16-dec-05
in B1 zet ik +A1+1 en verder dus en dat gaat perfect.

Het weeknummer wil ik ook zelf starten dus ik begin b.v. met week 49 en dan zou ik een formule
kunnen maken dat er steeds 1 bij opgeteld wordt tot dat het weeknummer op 52 staat en dat zou
de teller weer op 1 staan enz.
Dit gaat dus fout als je zo'n week hebt waarbij je een week 53 / 0 hebt en dat krijg ik dus niet voor elkaar.

marian

2006-01-15 16:24:20 UTC

Permalink

Zelf gevonden ;-))

middels Google, ik gebruik de invoegtoepassing "analysis tool pak" en dan is functie =weeknummer beschikbaar

]-[oRus

2006-01-15 17:49:47 UTC

Permalink

On Sun, 15 Jan 2006 16:37:04 +0100, marian

Post by marian
Voor dat ik aan denken ga over de formule vraag ik me af hoe de
weeknummers berekend worden. Ik wil dat automatisch voor een datum
van de zondag begin van de week dus het week nummer komt maar hoe
vang je een jaar op met weeknummer 53 want soms is er een jaar met
week 53/0 dus na week 52 is niet de volgende week 1 maar krijg je
eerst week 53 of die noemen ze soms week 0

Zelf gevonden ;-))
middels Google, ik gebruik de invoegtoepassing "analysis tool pak"
en
dan is functie =weeknummer beschikbaar

Dan heb je wel pech, want die functie nummert de weken opAmerikaanse
wijze en niet volgens ISO. Ik meen dat het b.v. voor afgelopen jaar
niet klopte. Misschien voor 2006 weer wel. In de groep
Microsoft.public.nl.office.excel vindt je de iso-formule wel terug.

--
Vriendelijke groeten,

]-[oRus

marian

2006-01-15 23:26:50 UTC

Permalink

Post by ]-[oRus

On Sun, 15 Jan 2006 16:37:04 +0100, marian

Post by marian
Voor dat ik aan denken ga over de formule vraag ik me af hoe de
weeknummers berekend worden. Ik wil dat automatisch voor een datum
van de zondag begin van de week dus het week nummer komt maar hoe
vang je een jaar op met weeknummer 53 want soms is er een jaar met
week 53/0 dus na week 52 is niet de volgende week 1 maar krijg je
eerst week 53 of die noemen ze soms week 0

Zelf gevonden ;-))
middels Google, ik gebruik de invoegtoepassing "analysis tool pak"
en
dan is functie =weeknummer beschikbaar

Shit, ga ik weer uitzoeken....ik had die formule ook al echter dit was makkelijker uit te voeren en met die
andere manier moet ik weer met een macro gaan klooien.
Het lijkt nu wel te kloppen maar dat kan dus wel alleen voor dit jaar zijn want 1 jan was precies de eerste
zondag van een nieuwe week.

Die nieuwsgroep heb ik niet op mijn standaard textserver (wanadoo tekst) dus ik zal eens kijken op mijn
andere 2 news-servers (casema en eweka)

Dit zou de macro moeten zijn volgens de site waar ik de info vond http://members.home.nl/go4it/index.htm
en dan even zoeken op weeknummer.

Function MWeek(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
MWeek = ((d - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

]-[oRus

2006-01-15 23:43:07 UTC

Permalink

Post by marian

Post by ]-[oRus

On Sun, 15 Jan 2006 16:37:04 +0100, marian

Post by marian
Voor dat ik aan denken ga over de formule vraag ik me af hoe de
weeknummers berekend worden. Ik wil dat automatisch voor een datum
van de zondag begin van de week dus het week nummer komt maar hoe
vang je een jaar op met weeknummer 53 want soms is er een jaar met
week 53/0 dus na week 52 is niet de volgende week 1 maar krijg je
eerst week 53 of die noemen ze soms week 0

Zelf gevonden ;-))
middels Google, ik gebruik de invoegtoepassing "analysis tool pak"
en
dan is functie =weeknummer beschikbaar

Dan heb je wel pech, want die functie nummert de weken
opAmerikaanse
wijze en niet volgens ISO. Ik meen dat het b.v. voor afgelopen jaar
niet klopte. Misschien voor 2006 weer wel. In de groep
Microsoft.public.nl.office.excel vindt je de iso-formule wel terug.

Shit, ga ik weer uitzoeken....ik had die formule ook al echter dit
was makkelijker uit te voeren en met die andere manier moet ik weer
met een macro gaan klooien.
Het lijkt nu wel te kloppen maar dat kan dus wel alleen voor dit
jaar
zijn want 1 jan was precies de eerste zondag van een nieuwe week.
Die nieuwsgroep heb ik niet op mijn standaard textserver (wanadoo
tekst) dus ik zal eens kijken op mijn andere 2 news-servers (casema
en eweka)
Dit zou de macro moeten zijn volgens de site waar ik de info vond
http://members.home.nl/go4it/index.htm en dan even zoeken op
weeknummer.
Function MWeek(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
MWeek = ((d - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

Ik heb deze:

Function WeekNr(dBron As Date)

WeekNr = 1 + Int((dBron - DateSerial(Year(dBron + 4 - Weekday(dBron +
6)), 1, 5) + Weekday(DateSerial(Year(dBron + 4 - Weekday(dBron + 6)),
1, 3))) / 7)

End Function

Zal wel op hetzelfde neerkomen.
Het is overigens geen macro, maar een functie.
Als je deze functie opneemt in een Persnlk.xls en die werkmap verbergt
en opslaat in de map XLStart, heb je die functie altijd beschikbaar.
Dit geldt ook voor een hele hoop andere dingen (opmaakprofielen bv.).

In een cel voor het weeknummer zet je dan =WeekNr([cel met datum]).

De Microsoft groepen kan je altijd bereiken op de openbare newsserver
news.microsoft.com.
daar vind je (drukbezochte) nieuwsgroepen van zowat alle microsoft
programma's.

--
Vriendelijke groeten,

]-[oRus

marian

2006-01-16 17:49:42 UTC

On Sun, 15 Jan 2006 16:37:04 +0100, marian

Post by marian
Voor dat ik aan denken ga over de formule vraag ik me af hoe de
weeknummers berekend worden. Ik wil dat automatisch voor een datum
van de zondag begin van de week dus het week nummer komt maar hoe
vang je een jaar op met weeknummer 53 want soms is er een jaar met
week 53/0 dus na week 52 is niet de volgende week 1 maar krijg je
eerst week 53 of die noemen ze soms week 0

Zelf gevonden ;-))
middels Google, ik gebruik de invoegtoepassing "analysis tool pak"
en
dan is functie =weeknummer beschikbaar

Dan heb je wel pech, want die functie nummert de weken
opAmerikaanse
wijze en niet volgens ISO. Ik meen dat het b.v. voor afgelopen jaar
niet klopte. Misschien voor 2006 weer wel. In de groep
Microsoft.public.nl.office.excel vindt je de iso-formule wel terug.

Shit, ga ik weer uitzoeken....ik had die formule ook al echter dit
was makkelijker uit te voeren en met die andere manier moet ik weer
met een macro gaan klooien.
Het lijkt nu wel te kloppen maar dat kan dus wel alleen voor dit
jaar
zijn want 1 jan was precies de eerste zondag van een nieuwe week.
Die nieuwsgroep heb ik niet op mijn standaard textserver (wanadoo
tekst) dus ik zal eens kijken op mijn andere 2 news-servers (casema
en eweka)
Dit zou de macro moeten zijn volgens de site waar ik de info vond
http://members.home.nl/go4it/index.htm en dan even zoeken op
weeknummer.
Function MWeek(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
MWeek = ((d - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

Function WeekNr(dBron As Date)
WeekNr = 1 + Int((dBron - DateSerial(Year(dBron + 4 - Weekday(dBron +
6)), 1, 5) + Weekday(DateSerial(Year(dBron + 4 - Weekday(dBron + 6)),
1, 3))) / 7)
End Function
Zal wel op hetzelfde neerkomen.
Het is overigens geen macro, maar een functie.
Als je deze functie opneemt in een Persnlk.xls en die werkmap verbergt
en opslaat in de map XLStart, heb je die functie altijd beschikbaar.
Dit geldt ook voor een hele hoop andere dingen (opmaakprofielen bv.).
In een cel voor het weeknummer zet je dan =WeekNr([cel met datum]).
De Microsoft groepen kan je altijd bereiken op de openbare newsserver
news.microsoft.com.
daar vind je (drukbezochte) nieuwsgroepen van zowat alle microsoft
programma's.

Deze formule doet het toch ook ?

1+INTEGER((A1-DATUM(JAAR(A1+4-WEEKDAG(A1+6));1;5)+WEEKDAG(DATUM(JAAR(A1+4-WEEKDAG(A1+6));1;3)))/7)

hoef ik helemaal niet te klooien met functie's of macro's

marian

2006-01-16 18:03:36 UTC

On Sun, 15 Jan 2006 16:37:04 +0100, marian

Post by marian
Voor dat ik aan denken ga over de formule vraag ik me af hoe de
weeknummers berekend worden. Ik wil dat automatisch voor een datum
van de zondag begin van de week dus het week nummer komt maar hoe
vang je een jaar op met weeknummer 53 want soms is er een jaar met
week 53/0 dus na week 52 is niet de volgende week 1 maar krijg je
eerst week 53 of die noemen ze soms week 0

Zelf gevonden ;-))
middels Google, ik gebruik de invoegtoepassing "analysis tool pak"
en
dan is functie =weeknummer beschikbaar

Dan heb je wel pech, want die functie nummert de weken
opAmerikaanse
wijze en niet volgens ISO. Ik meen dat het b.v. voor afgelopen jaar
niet klopte. Misschien voor 2006 weer wel. In de groep
Microsoft.public.nl.office.excel vindt je de iso-formule wel terug.

Shit, ga ik weer uitzoeken....ik had die formule ook al echter dit
was makkelijker uit te voeren en met die andere manier moet ik weer
met een macro gaan klooien.
Het lijkt nu wel te kloppen maar dat kan dus wel alleen voor dit
jaar
zijn want 1 jan was precies de eerste zondag van een nieuwe week.
Die nieuwsgroep heb ik niet op mijn standaard textserver (wanadoo
tekst) dus ik zal eens kijken op mijn andere 2 news-servers (casema
en eweka)
Dit zou de macro moeten zijn volgens de site waar ik de info vond
http://members.home.nl/go4it/index.htm en dan even zoeken op
weeknummer.
Function MWeek(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
MWeek = ((d - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

Deze formule doet het toch ook ?

1+INTEGER((A1-DATUM(JAAR(A1+4-WEEKDAG(A1+6));1;5)+WEEKDAG(DATUM(JAAR(A1+4-WEEKDAG(A1+6));1;3)))/7)

hoef ik helemaal niet te klooien met functie's of macro's

Aanvulling, met deze formule heb ik inderdaad in 1999 ook 53 weken i.p.v. 52 meet de standaard excel weeknummer
en is ook 4-april-2005 in week 14 i.p.v. dat excel zegt dat het week 15 is.

marian

2006-01-16 19:06:45 UTC

On Sun, 15 Jan 2006 16:37:04 +0100, marian

Post by marian
Voor dat ik aan denken ga over de formule vraag ik me af hoe de
weeknummers berekend worden. Ik wil dat automatisch voor een datum
van de zondag begin van de week dus het week nummer komt maar hoe
vang je een jaar op met weeknummer 53 want soms is er een jaar met
week 53/0 dus na week 52 is niet de volgende week 1 maar krijg je
eerst week 53 of die noemen ze soms week 0

Zelf gevonden ;-))
middels Google, ik gebruik de invoegtoepassing "analysis tool pak"
en
dan is functie =weeknummer beschikbaar

Dan heb je wel pech, want die functie nummert de weken
opAmerikaanse
wijze en niet volgens ISO. Ik meen dat het b.v. voor afgelopen jaar
niet klopte. Misschien voor 2006 weer wel. In de groep
Microsoft.public.nl.office.excel vindt je de iso-formule wel terug.

Shit, ga ik weer uitzoeken....ik had die formule ook al echter dit
was makkelijker uit te voeren en met die andere manier moet ik weer
met een macro gaan klooien.
Het lijkt nu wel te kloppen maar dat kan dus wel alleen voor dit
jaar
zijn want 1 jan was precies de eerste zondag van een nieuwe week.
Die nieuwsgroep heb ik niet op mijn standaard textserver (wanadoo
tekst) dus ik zal eens kijken op mijn andere 2 news-servers (casema
en eweka)
Dit zou de macro moeten zijn volgens de site waar ik de info vond
http://members.home.nl/go4it/index.htm en dan even zoeken op
weeknummer.
Function MWeek(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
MWeek = ((d - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

]-[oRus

2006-01-16 18:51:49 UTC

On Sun, 15 Jan 2006 16:37:04 +0100, marian

Post by marian
Voor dat ik aan denken ga over de formule vraag ik me af hoe de
weeknummers berekend worden. Ik wil dat automatisch voor een datum
van de zondag begin van de week dus het week nummer komt maar hoe
vang je een jaar op met weeknummer 53 want soms is er een jaar met
week 53/0 dus na week 52 is niet de volgende week 1 maar krijg je
eerst week 53 of die noemen ze soms week 0

Zelf gevonden ;-))
middels Google, ik gebruik de invoegtoepassing "analysis tool pak"
en
dan is functie =weeknummer beschikbaar

Dan heb je wel pech, want die functie nummert de weken
opAmerikaanse
wijze en niet volgens ISO. Ik meen dat het b.v. voor afgelopen jaar
niet klopte. Misschien voor 2006 weer wel. In de groep
Microsoft.public.nl.office.excel vindt je de iso-formule wel terug.

Shit, ga ik weer uitzoeken....ik had die formule ook al echter dit
was makkelijker uit te voeren en met die andere manier moet ik weer
met een macro gaan klooien.
Het lijkt nu wel te kloppen maar dat kan dus wel alleen voor dit
jaar
zijn want 1 jan was precies de eerste zondag van een nieuwe week.
Die nieuwsgroep heb ik niet op mijn standaard textserver (wanadoo
tekst) dus ik zal eens kijken op mijn andere 2 news-servers
(casema
en eweka)
Dit zou de macro moeten zijn volgens de site waar ik de info vond
http://members.home.nl/go4it/index.htm en dan even zoeken op
weeknummer.
Function MWeek(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
MWeek = ((d - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

Function WeekNr(dBron As Date)
WeekNr = 1 + Int((dBron - DateSerial(Year(dBron + 4 - Weekday(dBron +
6)), 1, 5) + Weekday(DateSerial(Year(dBron + 4 - Weekday(dBron + 6)),
1, 3))) / 7)
End Function
Zal wel op hetzelfde neerkomen.
Het is overigens geen macro, maar een functie.
Als je deze functie opneemt in een Persnlk.xls en die werkmap
verbergt en opslaat in de map XLStart, heb je die functie altijd
beschikbaar. Dit geldt ook voor een hele hoop andere dingen
(opmaakprofielen bv.).
In een cel voor het weeknummer zet je dan =WeekNr([cel met datum]).
De Microsoft groepen kan je altijd bereiken op de openbare
newsserver
news.microsoft.com.
daar vind je (drukbezochte) nieuwsgroepen van zowat alle microsoft
programma's.

Deze formule doet het toch ook ?
1+INTEGER((A1-DATUM(JAAR(A1+4-WEEKDAG(A1+6));1;5)+WEEKDAG(DATUM(JAAR(A1+4-WEEKDAG(A1+6));1;3)))/7)
hoef ik helemaal niet te klooien met functie's of macro's

En dan ga je in elke cel waarin je (met) een weeknummer moet rekenen
die formule gebruiken? Leuk als je er een geneste IF omheen moet
zetten (max 255 tekens!).

Als je eenmaal die functie hebt gemaakt, heb je alleen maar
"=WeekNr([cel met datum])"

Maar goed: as you like....

--
Vriendelijke groeten,

]-[oRus

marian

2006-01-16 19:10:39 UTC

On Sun, 15 Jan 2006 16:37:04 +0100, marian

Post by marian
Voor dat ik aan denken ga over de formule vraag ik me af hoe de
weeknummers berekend worden. Ik wil dat automatisch voor een datum
van de zondag begin van de week dus het week nummer komt maar hoe
vang je een jaar op met weeknummer 53 want soms is er een jaar met
week 53/0 dus na week 52 is niet de volgende week 1 maar krijg je
eerst week 53 of die noemen ze soms week 0

Zelf gevonden ;-))
middels Google, ik gebruik de invoegtoepassing "analysis tool pak"
en
dan is functie =weeknummer beschikbaar

Dan heb je wel pech, want die functie nummert de weken
opAmerikaanse
wijze en niet volgens ISO. Ik meen dat het b.v. voor afgelopen jaar
niet klopte. Misschien voor 2006 weer wel. In de groep
Microsoft.public.nl.office.excel vindt je de iso-formule wel terug.

Shit, ga ik weer uitzoeken....ik had die formule ook al echter dit
was makkelijker uit te voeren en met die andere manier moet ik weer
met een macro gaan klooien.
Het lijkt nu wel te kloppen maar dat kan dus wel alleen voor dit
jaar
zijn want 1 jan was precies de eerste zondag van een nieuwe week.
Die nieuwsgroep heb ik niet op mijn standaard textserver (wanadoo
tekst) dus ik zal eens kijken op mijn andere 2 news-servers
(casema
en eweka)
Dit zou de macro moeten zijn volgens de site waar ik de info vond
http://members.home.nl/go4it/index.htm en dan even zoeken op
weeknummer.
Function MWeek(d As Date)
Dim t As Long
t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1)
MWeek = ((d - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

Function WeekNr(dBron As Date)
WeekNr = 1 + Int((dBron - DateSerial(Year(dBron + 4 - Weekday(dBron +
6)), 1, 5) + Weekday(DateSerial(Year(dBron + 4 - Weekday(dBron + 6)),
1, 3))) / 7)
End Function
Zal wel op hetzelfde neerkomen.
Het is overigens geen macro, maar een functie.
Als je deze functie opneemt in een Persnlk.xls en die werkmap
verbergt en opslaat in de map XLStart, heb je die functie altijd
beschikbaar. Dit geldt ook voor een hele hoop andere dingen
(opmaakprofielen bv.).
In een cel voor het weeknummer zet je dan =WeekNr([cel met datum]).
De Microsoft groepen kan je altijd bereiken op de openbare
newsserver
news.microsoft.com.
daar vind je (drukbezochte) nieuwsgroepen van zowat alle microsoft
programma's.

Deze formule doet het toch ook ?
1+INTEGER((A1-DATUM(JAAR(A1+4-WEEKDAG(A1+6));1;5)+WEEKDAG(DATUM(JAAR(A1+4-WEEKDAG(A1+6));1;3)))/7)
hoef ik helemaal niet te klooien met functie's of macro's

En dan ga je in elke cel waarin je (met) een weeknummer moet rekenen
die formule gebruiken? Leuk als je er een geneste IF omheen moet
zetten (max 255 tekens!).
Als je eenmaal die functie hebt gemaakt, heb je alleen maar
"=WeekNr([cel met datum])"
Maar goed: as you like....

Ach het werkt....nog niet helemaal want bij mijn moet de wek beginnen op zondag en niet op maandag zoals
deze formulle uitrekend dus ik moet ergens 1 vanaf....