vecka till datum

4 svar · 364 visningar · startad av doggelito 22 maj 2002

doggelitoMedlem sedan juni 20003 076 inlägg

Trådstart22 maj 2002 12:38#1

halåjs!
vore tacksam om någon ville snickra ihop en funktion åt mig som
konverterar en vecka till denne veckas första dags datum, typ:

week = "21"

week = convert(week)
response.write week 'ska då bli 2002-05-20

function convert
????????
end function

alltså, jag matar in en vecka och får ut måndagens datum
hur kan funktionen se ut?

JAreMANNENMedlem sedan aug. 20002 272 inlägg

22 maj 2002 12:42#2

testa...

vecka = datepart("ww",date,vbMonday,vbFirstFourDays)
ar=Year(Date)
	
Datum= ar &"-01-01"
      Do Until DatePart("ww", Datum, 2, 2) = vecka
      Datum = DateAdd("d", 1, Datum)
Loop
Response.Write "vecka "& vecka &" börjar med: "&Datum

doggelitoMedlem sedan juni 20003 076 inlägg

22 maj 2002 13:42#3

kanoon!
ett problem till bara, den buggar.

jag har veckan i sql-databasen och kolumnen är en Int.
när jag sedan kör "konverteringskoden" så blir det en
evighetsloop, förmodligen därför att veckan är talformat, eller?

myWeek = myArray(Week,0) 'ex 21
myday= Year(Date) &"-01-01"
    Do Until DatePart("ww", myday, 2, 2) = myWeek
    myday = DateAdd("d", 1, myday)
Loop

@ndersMedlem sedan juni 200032 967 inlägg

22 maj 2002 14:02#4

Använd Cint() på värdet från databasen då.

doggelitoMedlem sedan juni 20003 076 inlägg

22 maj 2002 14:32#5

Det var bara för att vissa poster är utan vecka.
Jag slängde dit en isNumeric så ordnade allt sig.

Muchas gracias!