Dato problem

Weekday(Date()) + DatePart("ww", Now(17-5-2002), 2, 2) + Year(Date())

//>Rune

lige en rettelse:
Weekday(Date()) + DatePart("ww", Now(), 2, 2) + Year(Date())

//>Rune

Rune>>Øhh.. det kan godt være at jeg ikke har forklaret mig godt nok!
men hvordan vil du finde en aktuel dato ud fra de data du skriver der.

Jeg skal finde en dato fx. dato'en på mandag i uge 9 år 2002

Blady.

*LOL* fair nok.. well, jeg så bare at du plussede nogle uger og dage og sår'n! ;-)

well, så skal du til at arbejde med CDate() funktionen! - prøv at kig i MSDN efter syntaxen, der vil den stå!

//>Rune

I have! also one to return a date from y and week number only (moday being first day of week):o)

'Return a date from a given year and week
Function yw2Date(y As Integer, w As Integer) As Date
'1 = monday (vbMonday = 2)
    yw2Date = ywd2Date(y, w, 1)

End Function

'Return a date from a given year week and day of week.
Function ywd2Date(y As Integer, w As Integer, d As Integer) As Date
    ywd2Date = DateAdd("d", d - Weekday(DateValue(y & "-01-01"), vbMonday), DateAdd("ww", w - 1, DateValue(y & "-01-01")))

End Function

You got two functions there!
The first returns the date of the 1st day of the week (Monday)in the given year.
The next gives you waht you asked for!

Hej Terry!!
Hvordan bruger jeg denne function??
Hvordan sætter jeg den ind i fx. min form?

Blady.

Mydate = ywd2Date(y , w, d)

where y = year
w = weeknumber
d = day of week (1 = monday, 2 tuesday ...)

Terry!!!!
You are my sweetheart!!!!
Du har fortjent pointene, og tak for hjælpen.

lige en anden ting generalt på eksperten...hvad gør man når man ikke har flere points??


Blady.

Hi Blady
Ref: "You are my sweetheart!!!!" hope you are a b(lady)!

Ref: ikke fler points.
1: Dont place any questions
2: Wait until you have saved enough (5 points a day)
3: Answer questions and earn some

mvh
Terry