Datum till veckodagar

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!