Första bokstaven i dygnet på svenska

Du kan ju alltid skapa en array med begynnelsebokstäverna för varje veckodag.

<%
Dim arrWeek
arrWeek = Array("M", "T", "O", "T", "F", "L", "S")
Response.Write arrWeek(WeekDay(Now() - 1, vbMonday))
%>

Ragges kod, fast rätt ;)

<%
Dim arrWeek
arrWeek = Array("M", "T", "O", "T", "F", "L", "S")
Response.Write arrWeek(WeekDay(Now(), vbMonday) - 1)
%>

Eller lite enklare med en sträng:

<%
Response.Write Mid("MTOTFLS", WeekDay(Date(), vbMonday), 1)
%>

Hej!

Tack för er hjälp. Men jag skulle behöva utveckla det lite mer, det där skriver ju ut första bokstaven på dagens namn, men jag behöver skriva ut flera veckor oberoende av vilken dag det är idag.

Jag testade själv att byta ut date() mot det datum som just den dagen har men det fungerade inte, fick felmeddelande om felaktigt matrisindex.

Detta testade jag (i "datumet" ligger alltså rätt datum i formatet ÅÅÅÅ-MM-DD):

Dim arrWeek
arrWeek = Array("M", "T", "O", "T", "F", "L", "S")
Response.Write arrWeek(Weekday(datumet, vbMonday), 1)

Mvh Lena

Du har satt ett kommatecken istället för minus:

arrWeek = Array("M", "T", "O", "T", "F", "L", "S")
Response.Write arrWeek(Weekday(datumet, vbMonday) - 1)

Stort tack Guffa :)