jeg lavede i 2004 noget asp-kode/kalender, der beregnede alle helligdage i et år - det kan du bruge som udgangspunkt til din kode, søndage fremgår også.
----- god arbejdslyst --------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html><head>
<title></title>
<LINK REL="stylesheet" type="text/css" href="inkl/main.css">
<script src='inkl/header.js' language='JavaScript1.2' type='text/javascript'></script>
</head><body onLoad="showall();">
<!-- menu -->
<span id='xawmMenuPathImg-menu' style='position:absolute;top:-50px'><img name='awmMenuPathImg-menu' id='awmMenuPathImg-menu' src='inkl/awmmenupath.gif' alt=''></span><script type='text/javascript'>var MenuLinkedBy='AllWebMenus [2]', awmBN='526'; awmAltUrl='';</script><script src='inkl/menu.js' language='JavaScript1.2' type='text/javascript'></script><script type='text/javascript'>awmBuildMenu();</script>
<!-- sidelayout -->
<table width="100%" cellspacing="0" cellpadding="0" border="0"><tr><td align="center"><br>
<!-- toptekst -->
<table width="720" cellspacing="0" cellpadding="0" border="5"><tr><td>
<table width="100%" cellspacing="0" cellpadding="2" border="0">
<tr>
<td width="100" align="left" valign="middle" id="toplogo"> </td>
<td width="100%" align="center" valign="middle"><img src="images/it-works.jpg" width="463" height="96" alt="" border="0" align=""></td>
<td width="100" align="center" valign="bottom" id="toptid"> </td>
</tr>
</table>
</td></tr></table>
<!-- Menulinie -->
<table width="720" cellspacing="0" cellpadding="2" border="1"><tr>
<td height="22" valign="middle" align="left"><span id="awmAnchor-menu" class="awmAnchor"> </span></td>
</tr></table>
<!-- Her er siden -->
<table width="720" cellspacing="0" cellpadding="2" border="1"><tr><td class="lilletxt" align="center"><br><br>
<%
sidenavn = LCase(Request.Servervariables("SCRIPT_NAME"))
Session.LCID = "1030"
Function getdaysinmonth(strmonth,stryear)
datoen=cdate("01-" & strmonth & "-" & stryear)
datoen=dateadd("m",1,datoen)
datoen=dateadd("d",-1,datoen)
getDaysInMonth=datepart("d",datoen)
End Function
Function SkrivStortBogstav(tekst)
SkrivStortBogstav=ucase(left(tekst,1)) & lcase(mid(tekst,2,len(tekst)))
End Function
Function Helligdage(strdato)
aar=CInt(datepart("yyyy",strdato)) 'skal være mellem 1901 & 2199
m= array(0,1,4,4,0,2,5,0,3,6,1,4,6)
gyldental=(aar+1) mod 19
if gyldental=0 then gyldental=19
epakt= ((gyldental-1)*11)mod 30
if aar>1899 and aar<2200 then epakt=epakt-1
epakt=epakt mod 30
DagTilFj=80
if gyldental=6 or gyldental=17 then DagTilFj=81
alder=(epakt+DagTilFj) mod 30
if alder<=13 then antaldg=13-alder
if alder>13 then antaldg=43-alder
fuldmaane=21+antaldg
if fuldmaane<=31 then
dato=fuldmaane
maaned=3
else
dato=fuldmaane-31
maaned=4
end if
korrektion=(5+aar+aar\4-aar\100+aar\400) mod 7
if aar/4=int(aar/4) and (maaned=1 or maaned=2) then
if aar/100<>int(aar/100) then korrektion=korrektion-1
if aar/100 =int(aar/100) then korrektion=korrektion-1
end if
u=(dato+m(maaned)+korrektion)mod 7
paaske=dato+7-u
if paaske>31 then
paaske=paaske-31
maaned=4
end if
str = paaske & "-" & maaned &"-"& aar
datoto = cdate("24-12-" & datepart("yyyy",strdato))
juldag = weekday(datoto, vbMonday)
soendag = dateadd("d",0-juldag,datoto)
Hellig=""
if strdato = cdate(str)-49 then Hellig = Hellig & ", Fastelavn"
if strdato = cdate(str)-7 then Hellig = Hellig & ", Palmesøndag"
if strdato = cdate(str)-3 then Hellig = Hellig & ", Skærtorsdag"
if strdato = cdate(str)-2 then Hellig = Hellig & ", Langfredag"
if strdato = cdate(str) then Hellig = Hellig & ", Påskedag"
if strdato = cdate(str)+1 then Hellig = Hellig & ", 2. Påskedag"
if strdato = cdate(str)+26 then Hellig = Hellig & ", St. Bededag"
if strdato = cdate(str)+39 then Hellig = Hellig & ", Kr. Himmelfartsdag"
if strdato = cdate(str)+49 then Hellig = Hellig & ", Pinsedag"
if strdato = cdate(str)+50 then Hellig = Hellig & ", 2. Pinsedag"
if strdato = cdate("1-1-" & datepart("yyyy",strdato)) then Hellig = Hellig & ", Nytårsdag"
if strdato = cdate("5-6-" & datepart("yyyy",strdato)) then Hellig = Hellig & ", Grundlovsdag, Fars dag"
if strdato = cdate("24-12-" & datepart("yyyy",strdato)) then Hellig = Hellig & ", Juleaften"
if strdato = cdate("25-12-" & datepart("yyyy",strdato)) then Hellig = Hellig & ", Juledag"
if strdato = cdate("26-12-" & datepart("yyyy",strdato)) then Hellig = Hellig & ", 2. Juledag"
if strdato = cdate("31-12-" & datepart("yyyy",strdato)) then Hellig = Hellig & ", Nytårsaften"
if strdato = soendag then Hellig = Hellig & ", 4. søndag i Advent"
if strdato = dateadd("ww",-1,soendag) then Hellig = Hellig & ", 3. søndag i Advent"
if strdato = dateadd("ww",-2,soendag) then Hellig = Hellig & ", 2. søndag i Advent"
if strdato = dateadd("ww",-3,soendag) then Hellig = Hellig & ", 1. søndag i Advent"
if left(Hellig,1) = "," then Hellig = mid(Hellig,2,len(Hellig))
if len(Hellig) > 0 then Hellig = trim(Hellig)
Helligdage = Hellig
End Function
strtoday = Date()
stryear = Year(strtoday)
strmonth = Month(strtoday)
If Request("month") <> "" Then strmonth = request("month")
If Request("year") <> "" Then stryear = request("year")
strdaysinmonth = getdaysinmonth(strmonth,stryear)
%>
<table border="0" bgcolor="#C0C0C0" width="490" height="145" style="border: 1px solid #000000;">
<tr>
<td class="lilletxt">
Kalender for <Select class="lilletxt" size="1"
id="months"
name="months"
onchange="if (browserID=='n'){months = document.getElementById('months'); years = document.getElementById('years');};location.href ='<%=sidenavn%>?month='+months.value+'&year='+years.value">
<%
For i = 1 To 12
Response.Write "<option value=" & i
If CInt(strmonth) = i Then Response.Write " SELECTED"
Response.Write "> " & SkrivStortBogstav(MonthName(i,false))
Response.Write " </option>" & vbCrLf
Next
%>
</Select>
<Select class="lilletxt" size="1"
name="years"
id="years"
onchange="if (browserID=='n'){months = document.getElementById('months'); years = document.getElementById('years');};location.href ='<%=sidenavn%>?month='+months.value+'&year='+years.value">
<%
for i = CInt(stryear)-10 to CInt(stryear)+10
Response.Write "<option value=" & i
If CInt(stryear) = i Then Response.Write " SELECTED"
Response.Write ">" & i & "</option>" & vbCrLf
next
%>
</Select>
</td><td align="right" class="lilletxt">
<a href="<%=sidenavn%>?month=<%=datepart("m",strtoday)%>&year=<%=datepart("yyyy",strtoday)%>"
title="Vis aktuel måneds kalender"
onMouseOver="window.status=''; return true"
onMouseOut="window.status=''"> DD </a>
</td>
</tr>
<tr>
<td width="280" align="left" valign="top">
<table cellpadding="0" cellspacing="0" border="0" bgcolor="#FFFFFF" width="100%" height="100%" style="border: 1px solid #000000;">
<tr bgcolor="#CFCFCF">
<%
for i=1 to 7
response.write "<td align=""center"" width=""40"" class=""lilletxt""><b>"
if i=7 then response.write "<font color=""#FF0000"">"
response.write SkrivStortBogstav(left(weekdayname(i,false,vbMonday),3))
if i=7 then response.write "</font>"
response.write "</b></td>"
next
%>
</tr>
<tr bgcolor="#CFCFCF"><td colspan="7"><hr></td></tr>
<!-- Kalender laves her -->
<%
datoen = CDate("01-" & strmonth & "-" & stryear)
firstday = Weekday(datoen, vbMonday)
aktday = 0
if (CInt(strmonth)=CInt(Month(strtoday))) and (CInt(stryear)=CInt(Year(strtoday))) then aktday = CInt(datepart("d",date))
tomme=firstday-1
if tomme>0 then
response.write "<tr>" & vbCrLf
lastmonth=cint(strmonth)-1
lastyear=cint(stryear)
if lastmonth=0 then
lastmonth=12
lastyear=lastyear-1
end if
for i=1 to tomme
response.write "<td align=""center"" bgcolor=""#C0C0C0"" class=""lilletxt"" "
response.write "onclick=""location.href ='" & sidenavn & "?month=" & lastmonth & "&year=" & lastyear & "'"""
response.write "><font color=""#808080"">"
response.write datepart("d",dateadd("d",i-(tomme+1),datoen))
response.write "</font></td>" & vbCrLf
next
end if
mddag=9-firstday
for i=1 to strdaysinmonth
if i=aktday then
strItToday = "<td class=""lilletxt"" align=""center"" style=""border: 1px solid #000000;""><font color=""#000000"">"
else
strItToday = "<td class=""lilletxt"" align=""center""><font color=""#000000"">"
end if
if (7+i-mddag) MOD 7 =6 then
if i=aktday then
strItToday = "<td class=""lilletxt"" align=""center"" bgcolor=""#FF8080"" style=""border: 1px solid #000000;""><font color=""#000000"">"
else
strItToday = "<td class=""lilletxt"" align=""center"" bgcolor=""#FF8080""><font color=""#000000"">"
end if
end if
datoen = CDate(i & "-" & strmonth & "-" & stryear)
strtxt = Helligdage(datoen)
if CInt(strmonth)=5 and i>7 and i<15 and (7+i-mddag) MOD 7 = 6 then
if strtxt="" then
strtxt = "Mors dag"
else
strtxt = strtxt & ", Mors dag"
end if
end if
if len(strtxt) > 0 then
if i=aktday then
strItToday = "<td class=""lilletxt"" align=""center"" bgcolor=""#FF8080""style=""border: 1px solid #000000;"" onmouseover=""if (browserID=='n'){texter = document.getElementById('texter');}; texter.innerHTML='" & strtxt & "';"" onmouseout=""if (browserID=='n'){texter = document.getElementById('texter');}; texter.innerHTML='';""><font color=""#000000"">"
else
strItToday = "<td class=""lilletxt"" align=""center"" bgcolor=""#FF8080"" onmouseover=""if (browserID=='n'){texter = document.getElementById('texter');}; texter.innerHTML='" & strtxt & "';"" onmouseout=""if (browserID=='n'){texter = document.getElementById('texter');}; texter.innerHTML='';""><font color=""#000000"">"
end if
end if
if (i-mddag) MOD 7 = 0 then response.write "<tr>" & vbCrLf
response.write strItToday & i & "</td>" & vbCrLf
if (i-mddag) MOD 7 = 6 then response.write "</tr>" & vbCrLf
next
if (firstday+strdaysinmonth-1) MOD 7 > 0 then
nextmonth=cint(strmonth)+1
nextyear=cint(stryear)
if nextmonth=13 then
nextmonth=1
nextyear=nextyear+1
end if
for i=1 to 7-((firstday+strdaysinmonth-1) MOD 7)
response.write "<td class=""lilletxt"" align=""center"" bgcolor=""#C0C0C0"""
response.write "onclick=""location.href ='" & sidenavn & "?month=" & nextmonth & "&year=" & nextyear & "'"""
response.write "><font color=""#808080"">" & i & "</font></td>" & vbCrLf
next
response.write "</tr>"
end if
%>
<!-- Kalender slut her -->
</table>
</td>
<td valign="top" width="190">
<table cellpadding="0" cellspacing="0" border="0" bgcolor="#FFFFFF" style="border: 1px solid #000000;" height="100%" width="100%">
<tr bgcolor="#CFCFCF">
<td class="lilletxt"><b>Dagens note:</b></td>
</tr>
<tr bgcolor="#CFCFCF"><td><hr></td></tr>
<tr>
<td height="100%" valign="top" class="lilletxt"><div class="lilletxt" id="texter" style="width:99%; height:99%;"></div></td>
</tr>
</table>
</td>
</tr>
</table>
<br><br>
Bare en simpel kalender med helligdage (beregnes korrekt i perioden 1900 til 2199).<br>
Den samlede kildekode til<a href="dl/kalender.zip" onMouseOver="window.status=''; return true" onMouseOut="window.status=''"> denne side </a>er her.
</td></tr></table>
<!-- bundtekst -->
<table width="720" cellspacing="0" cellpadding="0" border="5"><tr><td>
<table border="0" cellspacing="0" cellpadding="2" width="100%"><tr>
<td width="150" id="webmaster" class="lilletxt">
<a href="kontakt.asp?who=webmaster" title="kontakt Webmaster"
onMouseover="window.status='kontakt Webmaster';return true"
onMouseout="window.status=''"> Webmaster </a>
</td>
<td width="100%" align="center" class="lilletxt">© IT-works 2004</td>
<td width="150" align="right" id="ajour" class="lilletxt"> </td>
</tr></table>
</td></tr></table>
<!-- sidelayout -->
</td></tr></table>
</body></html>
