nyårsafton fås på fel veckodag

plelkesMedlem sedan mars 2002823 inlägg

Frågan30 juli 2003 18:59#1

Jag har nedanstående kod

<%@LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<TITLE>ny&aring;rshelgerna</TITLE>

<BODY>

<FORM ACTION="" METHOD="post">
  <TABLE WIDTH="172" HEIGHT="63" BORDER="1" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="1">
    <TR> 
      <TD WIDTH="119" HEIGHT="30"><CENTER>
          V&auml;lj &Aring;r (&Aring;&Aring;&Aring;&Aring;)</CENTER></TD>
      <TD WIDTH="50" HEIGHT="30"> <DIV ALIGN="LEFT">
          <INPUT NAME="Year" TYPE="text" SIZE="10" MAXLENGTH="4">
        </DIV></TD>
    </TR>
    <TR> 
      <TD COLSPAN="2" HEIGHT="30"> <DIV ALIGN="RIGHT">
          <INPUT TYPE="submit" NAME="Submit" VALUE="Visa &Aring;rets Helgdagar">
        </DIV></TD>
    </TR>
  </TABLE>
</FORM>

<P>
  <%

Session.LCID = 1053

ar = Request.Form("Year")
if ar <> "" then 
y = ar
else
    y = Year(Now())
end if
Response.write "</TD>"

Response.Write "</TABLE>"

function julafton(y)
  dteDate = y & "-12" & "-24"
  julafton = CDate(dteDate)
End function
iWeekDay = DatePart("w", julafton(y), 2)
Response.Write "julafton infaller " & DatePart("d", julafton(y)) & "e "
Response.Write MonthName(Month(julafton(y))) 
Response.Write " (" & WeekDayName(iWeekDay, ,vbMonday) & ")"

juldag = DateAdd("d", 1, julafton(y))
annanjul =  DateAdd("d", 2, julafton(y))
NewYearaftn = DateAdd("d",7, julafton(y))
Response.Write "<BR>" & "Juldagen infaller " & DatePart("d", juldag) &"e  "
Response.Write MonthName(Month(juldag)) &" ("& WeekDayName(DatePart("w", juldag, 2), ,vbMonday) &")"
Response.Write "<BR>" & "AnnandagJul infaller " & DatePart("d", annanjul) &"e  "
Response.Write MonthName(Month(annanjul)) &" ("& WeekDayName(DatePart("w", annanjul, 2), ,vbMonday) &")"
Response.Write "<BR>" & "Nyårsafton infaller " & DatePart("d", NewYearaftn) &"a  "
Response.Write MonthName(Month(NewYearaftn)) &" ("& WeekDayName(DatePart("w", NewYearaftn, 2), ,vbMonday) &")"
%>

Som Ni ser stämmer allt förutom att veckodagen för nyårsdagen blir fel.
Skulle behöva er hjälp varför det är så?
Är förbryllad eftersom datumet stämmer och jag har samma konstruktion i de andra veckodagsnamnen

solbulleMedlem sedan mars 20015 287 inlägg

30 juli 2003 20:08#2

Jag ser ingen nyårsdag alls?

plelkesMedlem sedan mars 2002823 inlägg

30 juli 2003 20:23#3

Menar naturligtvis nyårsafton (=NewYearaftn)

SebbeMedlem sedan jan. 20032 285 inlägg

30 juli 2003 20:24#4

Jag kan inte se något fel över huvud taget, inte på nyårsafton heller. (Om det nu inte är jag som ser helt fel! ;))

plelkesMedlem sedan mars 2002823 inlägg

30 juli 2003 20:28#5

Tack för hjälpen, ja gmåste ha sett fel