2 svar · 292 visningar · startad av Nypan
Hej!
Skulle vilja ha lite hjälp med att hitta datumen för hela veckans datum.
Kan någon skriva en enkel kodsnutt för hur jag gör detta.
Dvs:
Jag har ett datum "dat=2003-04-29". Utifrån det vill jag ha datumen uppstolpade i variablerna:
monday=
tuesday=
wednesday=
thursday=
friday=
saturday=
sunday=
Jag vet alltså inte vilken veckodag dat innehåller.
Please help!
Function getWeek(dteDatum)
Dim arrWeek(7)
intDay = Weekday(dteDatum, 2)
For i = 1 To 7
arrWeek(i-1) = DateAdd("d", i - intDay, dteDatum)
Next
getWeek = arrWeek
End Function
Nu har du en array där första fältet är datumet för måndagen, dvs för dig blir det så här då
Dim arrVecka(7)
arrVecka = getWeek([i]ett datum[/i])
monday = arrVecka(0)
.
.
.
sunday = arrVecka(6)
Tack!