Find dato ud fra ugenr

I think I have a function somewhere Thomas, but at the moment I am not at my own PC. Will get back as soon as possible. I have actually given it as an answer somewhere so oyou could save your 62 points. It will need altering slightly as it returns the monday in the week. It also takes into account weeks which exist twice in the same year.

\"weeks which exist twice in the same year\"??? You mean like weeks with 2 thursdays?

There are some years which have (FOR EXAMPLE) the end of week 53 of the previous year and week 53 of the current year. So in effect the year contains week 53. Now if it was a monday then it is unlikely that two mondays of the \"same\" week are actually in the year but because you are interested in a Friday it is more than likely the case.

Anyway I will get back Thomas, busy (believe it or not) at the moment :o)

Public Function FindDato(År As Integer, Uge As Byte) As Date
  FindDato = DateSerial(År, 1, Uge * 7 + Choose(DatePart(\"w\", DateSerial(År, 1, 1), vbMonday, vbFirstFourDays), -2, -3, -4, -5, -6, 0, 1))
End Function

Hvordan den lige håndterer Terry\'s 2 torsdage ved jeg ikke lige på stående fod...

Terry->Busy?? It\'s time to get a new job then....

Proaccess, det var netop dig, jeg regnede med ville komme med et godt svar :o)
Prøver det lige af.....

Not me Thomas?

Jo, Terry. Jeg var ikke i tvivl om at du ville komme med et svar, men i de 15 minutter, der gik fra du skrev at du ville vende tilbage senere, tænkte jeg, at hvis Proaccess sad derude og fulgte med, så ville han straks udtænke (eller grave det frem fra sine gemmer) en løsning. Denne type opgave er en typisk opgave, som han \'gider\' svare på.
Jeg var ikke i tvivl om at du (og så mange andre) ville kunne løse opgaven også.
Jeg har som sagt selv løst den tidligere, men jeg husker løsningen som væsentlig mere simpel og uden en choose-funktion. Men jeg husker nok forkert eller også var det noget andet, jeg lavede dengang ;o)

ProAccess->Umiddelbart virker det med de stikprøver jeg har foretaget. Hvis det viser sig, at den regner forkert blot én gang, så sender jeg dig bare et erstatningskrav i millionklassen, ikk\'? :o)

Jeg har ALDRIG sagt at jeg er ufejlbarlig...  Men vi håber det bedste, og TAK for de fine ord...

Look at week 52 in 2000!

Du har ret - der er 2 uge 52\'ere i år 2000.

Fredagen går lige fri, men havde det været lørdag eller søndag, vi søgte, så var der opstået et problem.

Det må jeg vist hellere lige vende med kunden....

Hvem har forøvrigt også fundet på at der skulle være 365/366 dage på et år???
Ingen af tallene går jo op i 7. Der burde kun have været 364 dage på et år. Eller kun 5 dage på en uge (og ikke noget skudår).

Er det mon for sent at ændre? Og hvor retter man henvendelse?

:o)

DS/EN 28601.
\' Monday is always the first day of the week.
\' Week 1 is the first week of the year containing at least four days and will always contain
\' the first Thirsday of the year.