WIS blogg

Merkelig nok så mangler Access VBA Week()

Men løsningen ligger snublende nær:

Week(Now()) = Format(Now(),"ww",vbMonday,vbFirstFourDays)

eller

Week(Now() = Datepart("ww",Now(),2,2)

De siste to parametrene sørger for at vi får uketall etter norsk regnemåte.

Ove B-)