number of week (1-52)

[Jan Eikeland]

hello,
Im using Access97.

Need to assign number of week in a etikette or text box.

Read in help-file about this := Format(Now(); "ww")

But this does not pop up weeknumber, only ww

Can somebody help me with this ?

thank You
jan

 

[Jan Eikeland]

ive found this VBA function,
Function WEEKNR(InputDate As Long) As Integer
Dim A As Integer, B As Integer, C As Long, D As Integer
WEEKNR = 0
If InputDate < 1 Then Exit Function
A = Weekday(InputDate, vbSunday)
B = Year(InputDate + ((8 - A) Mod 7) - 3)
C = DateSerial(B, 1, 1)
D = (Weekday(C, vbSunday) + 1) Mod 7
WEEKNR = Int((InputDate - C - 3 + D) / 7) + 1
End Function
Could somebody tell me how to implement it in Access?
I havent any VBA programming tool.

tks jan

thank You

 

[Randy Harris]

Use Format(Now(), "ww")

You have a ; in place of a ,

 

[Jan Eikeland]

That doesnt work
Have I misunderstood?
Thought function would return present weeknumber'
reg jan


[email protected]...

 

[Van T. Dinh]

Assuming semicolon ';' is the normal separator for your
local settings, you expression should work.

Try also:

= Format(Date(); "ww")

You may have some Reference Errors in your database. Check
Douglas J. Steele's Reference Errors:

<http://members.rogers.com/douglas.j.steele/AccessReference
Errors.html>

HTH
Van T. Dinh
MVP (Access)

 

[Jan Eikeland]

thank You for answer.
Im a newbie, as u may have noticed

First : Is this expression supposed to return the value of weeknumber in
,lets say a textbox?
The link under doesnt work.
thank You
reg Jan

 

[Jan Eikeland]

I followed the link.
Date and Now function works seperately.
As I try to set expression into controlsource field of textboks, application
changes it by adding 2 pcs of semicolons at each side of ww

thank You.