Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Ugenummer i Excel 2000 / Win XP

12 views
Skip to first unread message

Lars E. P.

unread,
Oct 5, 2009, 3:32:42 AM10/5/09
to

Hvis jeg i en celle indtaster flg.

UGE.NR(DATO(2010,1,1):2)

f�r jeg v�rdien 1. Men jeg burde f� v�rdien 53, idet der er 53 uger i
�r 2009.

Det samme gentager sig for 2011, her f�r man v�rdien 1 selvom det
rigtige ugenummer er 52

Er der nogen der har en ide om hvordan man f�r returneret det rigtige
ugenummer?


Hilsen Lars

Hans Terkelsen

unread,
Oct 5, 2009, 4:27:29 AM10/5/09
to

"Lars E. P." <gru...@SLETkal2000.dk> wrote in message news:du6jc5pim5ckqf5df...@4ax.com...

Hej Lars!

Ja, UGE.NR er et gammelt problem.
Funktionsnavnet er oversat til dansk fra WEEKNUM, men matematikken giver stadig det amerikanske WEEKNUM.
Du kan pr�ve =UGE.NR("31/12/2012";2).
Det giver uge 54, en lille amerikansk 1-dags uge sidst i �ret.
UGE.NR har passet nogenlunde med det europ�iske ugenummer i nogle �r, men nu kommer der en stribe �r hvor det ikke passer.
L�sningen er at bruge sin egen formel eller funktion.

Til hverdagsbrug er der f.eks denne formel,
den g�lder 1/3/1900-28/12/2104
=HELTAL(REST(HELTAL((A1+2924)/7)*28;1461)/28+1)
hvor A1 har datoen

Der findes ogs� l�ngere versioner der passer overalt.
Og brugerdefinerede funktioner.

Hilsen Hans.


Joergen Bondesen

unread,
Oct 5, 2009, 10:12:31 AM10/5/09
to
Hej Lars

'Harald (ok)
Function WEEKNR(ByVal Dato As Date) As Long
Dato = Dato + 4 - Weekday(Dato, vbMonday)
WEEKNR = DatePart("ww", Dato, 2, 2)
End Function


--
Med venlig hilsen
J�rgen Bondesen


"Hans Terkelsen" <dk> skrev i en meddelelse
news:4ac9ae07$0$291$1472...@news.sunsite.dk...

0 new messages