---
title: "villkor"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/83430-villkor"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "plelkes"
published: "2003-08-04T11:44:21.000Z"
updated: "2003-08-07T18:44:10.000Z"
replies: 30
views: 793
page: 1
pages: 2
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/83430-villkor"
---
# villkor
_Sida 1 av 2._
## #1 — plelkes, 2003-08-04T11:44Z
Nu när jag har lyckats få ”ordning” på de svenska helgdagarna, tänkte jag vidareutveckla min almanacka. Det jag tänkte är att då en röd dag inträffar skall detta stå i min almanacka.
På min almanacka- sida har jag dels en textruta för året och en dropdown-lista för val av månad.
Om jag nu tex har nedanstående möjligheter:
Tex:
Om månad = 1 OCH dag = 1 skriv nyårsdagen
Om månad = 1 OCH dag = 6 skriv trettondag
Om månad = 6 OCH dag = 20 skriv midsommarafton
Om månad = 6 OCH dag = 21 skriv midsommardagen
Och om inte nåt av fallen är uppfyllda skriv dag
1. Bör If - Else-then konstuktion användas här?
2. Om ja, kan jag få ett litet exempel på konstuktionen?
3. Eller bör i detta fal "Case" användas?
4. Och hur skulle ni konstruera detta?
Permalänk: https://www.webforum.nu/p/83430
## #2 — Gladh, 2003-08-04T13:03Z
I det fallet hade jag nog använt mig av Case:
```
switch(month){
case 1:
switch(day){
case 1:
break;
case 2:
break;
break;
}
```
Ursäkta C# koden, men kommer inte ihåg hur man skriver i VBScript :(
Nu har du värre problem än så eftersom visa helgdagar inte går på datum, utan vilken veckodag det är, som exempel viss midsommar, det är inte ett speciellt datum, utan alltid en fredag, medans julafton alltid är den 24 oberoende av vilken veckodag det är.
Så det är alltså inte så enkelt att man bara kan ha en massa IF-satser och kolla emot. Så jag hade nog lagt alla helgdagar i en databas, vilken hade haft ett batchjob kopplat till sig den 1/1 varje år, som hade räknat fram vilka dagar som är helgdagar just detta år.
Sedan hade jag plockat fram dessa dagar i en array och på något smart sätt kollat om dag är en helgdag eller ej.
Antagligen hade jag gjort min array 2 dimensionell, så man hade kollat om en dag är helgdag så här.
```
if(_CheckDays[_iMont][_iDay] == true)
//-- dagen är en helgdag
else
//-- dagen är inte en helgdag
```
Så man fyller helt enkelt sin array med true/false beroende på om \[MÅNAD\]\[DAG\] är en helgdag eller ej.
\- M
Permalänk: https://www.webforum.nu/p/1129396
## #3 — plelkes, 2003-08-04T13:12Z
Tack Magnus för ditt svar,,,
MEN
> Nu har du värre problem än så eftersom visa helgdagar inte går på datum, utan vilken veckodag det är, som exempel viss midsommar, det är inte ett speciellt datum, utan alltid en fredag, medans julafton alltid är den 24 oberoende av vilken veckodag det är.
Men om jag tar fallet med julafton, varför kan jag inte hellt "enkelt" kolla om
1. om det rör sig om december?
2. om svaret på fråga 1 är ett ja, så kolla om dag = 24
3. om svar på fråga 2 är ett ja, så Response.Write "julafton"
Permalänk: https://www.webforum.nu/p/1129400
## #4 — solbulle, 2003-08-04T13:18Z
Jag tror nog att du är medveten om problemet med att inte alla helger är på fasta datum, med tanke på dina tidigare trådar.
Av precis samma anledningen måste det ju vara väldigt svårt att lägga in det hela i en färdig db.
Dessa "enkla" helger som har fasta datum är ju lätta att ta rätt på, vare sig man använder If-satser, Case-satser eller databas.
Jag hade löst detta med If-satser eftersom att det förefaller enklast för mig. :)
```
skriv = "dag"
If manad = 1 then
If dag = 1 then
skriv = "nyårsdagen"
Elseif dag = 6 then
skriv = "trettondag"
End if
End if
If manad = 6 then
If dag = 20 then
skriv = "midsommarafton"
Elseif dag = 21 then
skriv = "midsommardagen"
End if
End if
response.write skriv
```
Permalänk: https://www.webforum.nu/p/1129404
## #5 — plelkes, 2003-08-06T08:01Z
Nu har jag förskt med att "det" skall skriva ut alla helgonadagen oom det är rätt månad och rätt dag. Men med nedanstående kod blir det[bara kajko](http://www31.brinkster.com/plelkesprojekt/min_almanacka.asp)
```
<%@LANGUAGE="VBSCRIPT" %>
vägg kalender
<%
Session.LCID = 1053
ar = Request.Form("Year")
manad = Request.Form("month")
If len(ar)= 0 Then
ar = Year(Now())
Else
ar = Request.Form("Year")
End IF
If len(manad)= 0 Then
manad = Month(Now())
Else
manad = Request.Form("month")
End IF
'allhelgonadagen
function GeAllhelgon(ar)
dteDate = ar & "-10" & "-31"
dteDate = CDate(dteDate)
intWeekday = WeekDay(dteDate, vbSunday)
newdate = dateAdd("d", 7-intWeekDay, dteDate)
GeAllhelgon = newdate
end function
strDate = ar & "-" & manad & "-01"
dteDate = CDate(strDate)
intFirstDayIndex = WeekDay(dteDate, 2) - 1
iDayMonth = DatePart("d", DateSerial(Year(dteDate), Month(dteDate)+1, 0))
intLastDayIndex = intFirstDayIndex + iDayMonth - 1
iDag = 1
For i = intFirstDayIndex to intLastDayIndex
aKalender(i) = iDag
iDag = iDag + 1
Next
Response.Write "
"
For i = 0 to 41
If i mod 7 = 0 Then Response.Write "
"
If aKalender(i) < 1 Then
Response.Write "
"
Response.Write " _" & "
"
End IF
If manad = Month(GeAllhelgon(ar)) then
If aKalender(i) = Day(GeAllhelgon(ar)) then
Response.Write "
"
Response.Write aKalender(i) & "all helgonadag "
Response.Write "
"
Else
Response.Write "
"
Response.Write aKalender(i)
Response.Write "
"
End If
End If
Next
If i mod 6 = 0 And i <> 0 Then
Response.Write "
"
End If
Response.Write "
"
%>
```
Som vanligt är jag tacksam ifall ni ger även förklaring till mina fel
Utan ändringen [fungerar allt som tänkt](http://www31.brinkster.com/plelkesprojekt/test_list.asp)
Även
även
```
function GeAllhelgon(dteDate)
dteDate = ar & "-10" & "-31"
dteDate = CDate(dteDate)
intWeekday = WeekDay(dteDate, vbSunday)
newdate = dateAdd("d", 7-intWeekDay, dteDate)
GeAllhelgon = newdate
end function
manad = Month(GeAllhelgon(ar))
dagen = Day(GeAllhelgon(ar))
Response.Write manad
Response.Write " "
Response.Write dagen
'
```
fungerar för sig självt
Permalänk: https://www.webforum.nu/p/1130351
## #6 — plelkes, 2003-08-06T11:02Z
Ngn som hittar felet månne?
Permalänk: https://www.webforum.nu/p/1130495
## #7 — solbulle, 2003-08-06T11:17Z
Jag får inte den där koden att fungera över huvud taget..
Permalänk: https://www.webforum.nu/p/1130505
## #8 — solbulle, 2003-08-06T11:20Z
Fast så här borde din koll se ut tycker jag:
```
If manad = Month(GeAllhelgon(ar)) then
If aKalender(i) = Day(GeAllhelgon(ar)) then
Response.Write "
"
Response.Write aKalender(i) & "all helgonadag "
Response.Write "
"
End If
Else
Response.Write "
"
Response.Write aKalender(i)
Response.Write "
"
End If
```
Permalänk: https://www.webforum.nu/p/1130510
## #9 — solbulle, 2003-08-06T11:32Z
```
For i = 0 to 41
If i mod 7 = 0 Then Response.Write "
"
If aKalender(i) < 1 Then
Response.Write "
"
Response.Write " _" & "
"
Else
If manad = Month(GeAllhelgon(ar)) then
If aKalender(i) = Day(GeAllhelgon(ar)) then
Response.Write "
"
Response.Write aKalender(i) & "all helgonadag "
Response.Write "
"
End If
Else
Response.Write "
"
Response.Write aKalender(i)
Response.Write "
"
End If
End IF
Next
If i mod 6 = 0 And i <> 0 Then
Response.Write "