ugetal i access

Jeg vil mene at du nettop skal bruge date (), og så beregne ugetallet ud fra den værdi...

Jeg tror du kan lette arbejdet ved at tage værdien omregne den til antal dage, brug TimeSerial for så at regne den om til uge nr. Årstallet har du jo ved at sige Year(dato). 

du er nok nødt til selv at beregne det ud fra dato og år.... for engelsktalende lande kender som vi ikke til fænomenet ugenummer, hvorfor de heller ikke implementerer en sådan variabel i div. applikationer.

/nuno

Du skal lave en funktion som returnere det rigtige ugenr. Her er et eksempel (der virker):

Function find_week(MyDate As Date, FoundWeek As Byte, StartDay As Date)
\' In:  mydate - day for which you need week
\' Out:  foundweek - Week in which mydate is in
\'      Startday - the first day in the week

Dim TheFirst As Date
Dim DayOne As Integer
Dim DayAdd As Integer
Dim TheFirstMonday As Date

TheFirst = \"01-01-\" & Year(MyDate)
DayOne = Weekday(TheFirst)
If DayOne > 2 Then DayAdd = 9 - DayOne
If DayOne <= 2 Then DayAdd = Abs(DayOne - 2)

TheFirstMonday = DayAdd + 1 & \"-01-\" & Year(MyDate)
FoundWeek = Fix(DateDiff(\"d\", TheFirstMonday, MyDate) / 7 + 1)

\' find monday i week
Dim DayValue As Byte
DayValue = Weekday(MyDate)
If DayValue > 2 Then DayAdd = 2 - DayValue
If DayValue = 2 Then DayAdd = 0
If DayValue = 1 Then DayAdd = -6

StartDay = MyDate + DayAdd

End Function

Det kan gøres meget simpel ved at regne forskellen far 1.1 i det år du er i (og det virker også, jeg bruger det selv)
Ugenr = CInt(DateDiff(\"ww\", \"01/01/\" & year(date), date))

Den må jeg lige have forklaret.

D. 1/1 kan ligge i uge 52, 53 og 1. Hvordan kan man så beregne ugenr. ud fra det??

Hvad med 1/1 ?? Den ligger så altid i uge 0 !!

Den korrekte kode i VBA er:

format(date,ww\",vbMonday ,vbFirstFourDays )