---
title: "nyårsafton fås på fel veckodag"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/83091-nyårsafton-fås-på-fel-veckodag"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "plelkes"
published: "2003-07-30T18:59:48.000Z"
updated: "2003-07-30T20:28:27.000Z"
replies: 4
views: 206
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/83091-nyårsafton-fås-på-fel-veckodag"
---

# nyårsafton fås på fel veckodag

## #1 — plelkes, 2003-07-30T18:59Z

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](http://www31.brinkster.com/plelkesprojekt/december.asp)  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

Permalänk: https://www.webforum.nu/p/83091

## #2 — solbulle, 2003-07-30T20:08Z

Jag ser ingen nyårsdag alls?

Permalänk: https://www.webforum.nu/p/1123965

## #3 — plelkes, 2003-07-30T20:23Z

Menar naturligtvis nyårsafton (=NewYearaftn)

Permalänk: https://www.webforum.nu/p/1123979

## #4 — Sebbe, 2003-07-30T20:24Z

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! ;))

Permalänk: https://www.webforum.nu/p/1123980

## #5 — plelkes, 2003-07-30T20:28Z

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

Permalänk: https://www.webforum.nu/p/1123982

---

Tråden på webben: https://www.webforum.nu/amne/asp/83091-nyårsafton-fås-på-fel-veckodag