fel vecka

4 svar · 169 visningar · startad av doggelito 21 aug. 2002

doggelitoMedlem sedan juni 20003 076 inlägg

Frågan21 aug. 2002 11:28#1

What? :q
Den visar nu veckorna: 52, 53, 1, 2
Varför visar den v. 53?

Private Function get_Week(Byval Current_date, Byval Mathvalue)
Dim Current_week
    If Len(Current_date) = 0 Or Not isDate(Current_date) Then
    Current_date = Date()
    Else
    Current_date = CDate(Current_date)
    End If
    Current_date = Dateadd("WW", Mathvalue, Current_date)
    Current_week = Cint(DatePart("WW", Current_date, 2))
get_Week = Current_week
End Function

For i = 0 To 3
Response.Write get_Week("2000-12-21",+i)
Next

i-orMedlem sedan nov. 2001294 inlägg

21 aug. 2002 12:03#2

Inte för att jag förstår tråden, men 53 är en vecka (iaf vissa år) såväl som 52 och 1. Kolla i en almanacka så får du se!

Nu vet jag iofs inte om det var det som du tyckte var konstigt eller inte...

doggelitoMedlem sedan juni 20003 076 inlägg

21 aug. 2002 12:34#3

Jo, 53 finns men inte år 2000.
Det måste vara nått fel nånstans, struntar man i loopen och bara skriver ut: get_Week("2000-12-21",0) så skriver den 52. (ska vara 51)

doggelitoMedlem sedan juni 20003 076 inlägg

21 aug. 2002 12:43#4

öööhhh, vad är det som händer?????
denna skriver ju också 52: Datepart("WW", "2000-12-21", 2)

har jag fått hjärnsläpp, eller är det outlook´s kalender (min referens) som fintas med mig :q

doggelitoMedlem sedan juni 20003 076 inlägg

21 aug. 2002 12:55#5

Ok, lite hjärnsläpp var det!
Lär ju bestämma startdag så klart :)
Datepart("WW", "2000-12-21", 2, 2)