Hej! du bör ta reda på i vilket intervall de kommer ... långfredagen är ju alltid en speciell fredag efter en viss tid har förflutit tex .. Hoppas du klarade din "dödlinje" och du märkte säkert att det inte var så lätt med det röda dagarna. Hej Kanske är väl sent ute, sorry. Men har ett exempel här på hur man kan lösa det med en tabell med helgdagar. Vilket är mer dynamiskt än att försöka räkna fram dagarna. Kan ju oxå lägga till ett fält för t.ex land och på så sätt få dess heldagar utan att redigera koden. Har "remat" anslutnings koden för databas. Och inkluderat ett testrecordstet. Samt ett testintervall. Om inte du har användning för den finns det kanske någon annan som har användning för den: Hej Alla!!!Panik!
Skall vara klar med ett kalenderprojekt på måndag (ASP + HTML), jag har fått ordning på allt utom hur jag skall lösa problemet med röda dagar. Vanliga fasta röda dagar fixar sig men de rörliga såsom långfredag mm.
Tacksam för all hjälp!Sv: Panik!
Sv: Panik!
Jag har själv gjort en kalender så jag vet.
Vad gäller uträkningen av påsk så har jag lagt upp en sådan under Tips & Trix. Andra dagar kan jag ge dig om du mailar.
Berätta gärna hur det går/gick.Sv: Panik!
Påskdagen inträffar första söndag efter första
fullmåne efter vårdagjämning 22/3.
Långfredag kommer alltså 2 dagar tidigare.
De du blir lite att bita i.
mvh
SvenSv: Panik!
<%@ Language=VBScript %>
<%Option Explicit %>
<%
Function TestRecordset
Const adDate = 7
Const adBoolean = 11
Const adVarWChar = 202
Dim rsTemp
Dim Fields
Set rsTemp = server.CreateObject("ADODB.Recordset")
rsTemp.Fields.Append "Date", adDate
rsTemp.Fields.Append "Holiday",adBoolean
rsTemp.Fields.Append "HolidayName", adVarWChar, 50
rsTemp.Open
Fields = Array("Date", "Holiday", "HolidayName")
rsTemp.AddNew Fields, Array(#2001-12-24#, False, "Julafton")
rsTemp.AddNew Fields, Array(#2001-12-25#, True, "Juldagen")
rsTemp.AddNew Fields, Array(#2001-12-31#, False, "Nyårsafton")
rsTemp.AddNew Fields, Array(#2002-01-1#, True, "Nyårsdagen")
rsTemp.MoveFirst
Set TestRecordset = rsTemp
End Function
%>
<HTML>
<HEAD>
<TITLE>Kalender</TITLE>
</HEAD>
<BODY>
<TABLE>
<TR>
<TD><B>Date</B></TD>
<TD><B>Weekday</B></TD>
</TR>
<%
Dim Conn
Dim rsTemp
Dim fldDate
Dim fldHoliday
Dim fldHolidayName
Dim TempDate
Dim DateFrom
Dim DateTo
Dim WD
Dim WDName
Dim Holiday
Session.LCID = 1053
'*** Set Conn = server.CreateObject("ADODB.Connection")
'*** Conn.Open "<<<Connection String>>>"
'***
'*** Set rsTemp = server.CreateObject("ADODB.Recordset")
'*** rsTemp.open "SELECT * FROM Holidays WHERE Holidays.Date BETWEEN #" & From & "# AND #" & DateTo & "# ORDER BY Holidays.Date"
' ###########################
DateFrom = DateSerial(2001, 12, 1)
DateTo = DateSerial(2001, 12, 31)
Set rsTemp = TestRecordset
' ###########################
Set fldDate = rsTemp("Date")
Set fldHoliday = rsTemp("Holiday")
Set fldHolidayName = rsTemp("HolidayName")
For TempDate = DateFrom To DateTo
WD = Weekday(TempDate, vbUseSystemDayOfWeek )
If WD = 7 Then
Holiday = True
Else
Holiday = False
End if
If rsTemp.EOF Then
WDName = WeekdayName(WD, False, vbUseSystemDayOfWeek)
Else
If TempDate = fldDate Then
WDName = WeekdayName(WD, False, vbUseSystemDayOfWeek) & " (" & fldHolidayName & ")"
If fldHoliday Then
Holiday = True
End if
Else
WDName = WeekdayName(WD, False, vbUseSystemDayOfWeek)
End if
rsTemp.Find "Date > '" & TempDate & "'"
End If
%>
<TR<%If Holiday Then Response.Write " bgColor=red"%>>
<TD><%=TempDate%></TD>
<TD><%=WDName%></TD>
</TR>
<%
Next
rsTemp.Close
Set rsTemp = Nothing
'*** Conn.Close
'*** Set Conn = Nothing
%>
</TABLE>
</BODY>
</HTML>Sv: Panik!
Tack för all hjälp, jag skall testa scriptet jag fick från Andreas Hillqvist. Jag kom tillbaka från semestern idag (ja, jag jobbade såklart under semestern) och fick reda på att den officiella premiären är den 3 september så jag har lite tid på mig. Jag kollade även igenom kravspecen igen och *skäms* helgdagar stod inte med *//skäms* men nu när jag har tid skall jag försöka lägga in det ändå BARA för att impa.
Om ni vill TITTA på förslaget finns det på :
http://www.ajourit.se/it-skolan
Ännu en gång, tack för hjälpen!!!