Finde datoer i uge nummer

er lige med på en lytter

<%
Uge = "30"
Dato = DateAdd("ww", Uge-1, "01-01-" & year(Date))
for i = 1 to 7
dato2 = DateAdd("D", i, Dato)
dag = weekdayname(weekday(dato2),false,vbsunday)
response.write dag & " " & dato2 & "<br>"
next
%>

Hvordan gør jeg sådan at den ikke udskriver årstalet?

hartnet.dk> Du behøver ikke at skrive noget, for at få mails med nye spørgsmål. Du skal bare efterlade tekstfeltet tomt, og klikke på "Send"-knappen.



fun22> Nu kan du selv bestemme hvad der skal udskrives:

Eksempel (fiktive data):

dag_navn: mandag
dag_nummer: 30
dag_maaned: 12
dag_aar: 2006

Kode:

<%
Uge = "30"
Dato = DateAdd("ww", Uge-1, "01-01-" & year(Date))
for i = 1 to 7
dato2 = DateAdd("D", i, Dato)

dag_navn = weekdayname(weekday(dato2),false,vbsunday)
dag_nummer = day(dato2)
dag_maaned = month(dato2)
dag_aar = year(dato2)

response.write dag_navn & " " & dag_nummer & "<br>"
next
%>



mitbrugernavn> Hvad bliver det til i http://www.eksperten.dk/spm/724218 (06/08-2006 11:25:42)?

Det var jo lige det der skulle til...

Ved du hvorfor den skifter uge allerede om søndagen??

Måske fordi man normalt (i programmering/it/computer) betrager søndag som den første dag, hvorimod mennesker betragter mandag som den første dag..

Du kan vist bare erstatte "vbsunday" med det du synes, i linien:

dag_navn = weekdayname(weekday(dato2),false,vbsunday)

De tilgængelige værdier er:
0 = vbUseSystemDayOfWeek - Use National Language Support (NLS) API setting
1 = vbSunday - Sunday (default)
2 = vbMonday - Monday
3 = vbTuesday - Tuesday
4 = vbWednesday - Wednesday
5 = vbThursday - Thursday
6 = vbFriday - Friday
7 = vbSaturday - Saturday

Kilde: http://www.w3schools.com/vbscript/func_weekdayname.asp

thesurfer >> Smider du lige et svar så du også kan få nogen points?

Yeps :-)