Hej,

nån som har en funktion som returnerar aktuellt veckonummer?

Jag har alltid kört med

Dim f As Integer
f = Format(Now, "ww", vbMonday, vbFirstFullWeek)
Label1 = f

men den returnerar vecka 3 just nu och vad jag vet är det vecka 4 nu.....

Vecka ett i Sverige är den första veckan med fyra dagar i, tror konstanten
heter vbFirstFourDays, är inte säker dock, men det är ju enkelt att
kolla upp.

så skriv istället:

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

/Emma

Hej
Testa detta
Label1 = Format("2002-01-22", "ww", _
vbUseSystemDayOfWeek, vbUseSystem)

Label1 = Format(Date, "ww", _
vbUseSystemDayOfWeek, vbUseSystem)

Ta hem mitt uppskick
http://www.pellesoft.nu/login/upload/t_view4.asp?tid=38

mvh
Sven

Allt detta är för att ta fram aktuellt veckonummer. Men om jag har ett datum i en textbox t.ex 20021224 och vill ta reda på vilket veckonummer det datumet har. Hur bär jag mig åt då ?

Hej
Svaret står ju på inslaget ovanför din fråga

Label1.Caption = Format("2002-01-22", "ww", _
vbUseSystemDayOfWeek, vbUseSystem)

OBS du måste formater datum enl exemplet ovan

Text1.Text = "2002-12-24"
Label1.Caption = Format(Text1.Text, "ww", _
vbUseSystemDayOfWeek, vbUseSystem)

DS

Så är det när man är gammal som jag (44 år) man börjar se sämre. tack