Mangler Excel til import med alle danske helligdag

Hej Maria.

Kan sende et database-eksempel hvor der er en funktion, som beregner helligdage

Smid din mailadresse

Problemet er jensen at de faktisk skal ind i en SQL database - Backenden herpå..

Men min mail er mariacand@webspeed.dk

any chance of a copy of it too (please) :o)
eksperten@NOSPAMsanthell.dk
remove NOSPAM

Sender et eksempel i Excel

code?

06-02-2005 Fastelavn
20-03-2005 Palmesøndag
24-03-2005 Skærtorsdag
25-03-2005 Langfredag
27-03-2005 Påskedag
28-03-2005 2.Påskedag
22-04-2005 St.Bededag
05-05-2005 Kr.Himmelfartsdag
15-05-2005 Pinsedag
16-05-2005 2.Pinsedag
26-02-2006 Fastelavn
09-04-2006 Palmesøndag
13-04-2006 Skærtorsdag
14-04-2006 Langfredag
16-04-2006 Påskedag
17-04-2006 2.Påskedag
12-05-2006 St.Bededag
25-05-2006 Kr.Himmelfartsdag
04-06-2006 Pinsedag
05-06-2006 2.Pinsedag
18-02-2007 Fastelavn
01-04-2007 Palmesøndag
05-04-2007 Skærtorsdag
06-04-2007 Langfredag
08-04-2007 Påskedag
09-04-2007 2.Påskedag
04-05-2007 St.Bededag
17-05-2007 Kr.Himmelfartsdag
27-05-2007 Pinsedag
28-05-2007 2.Pinsedag
03-02-2008 Fastelavn



Jeg kunne godt bruge en excel hvor det er delt op på denne måde - MEn som i ser her er der ikke alle helligdage med!!

Du kan benytte påskedag() funktionen til at finde de skæve helligdage ... de øvrige giver sig selv

Ja det var hvis bare mig der var lidt dum.. Jeg prøver lige at kigge lidt på det!!

Tilrettet regneark sendt

øhhh jensen:

mugs@mail.dk

Andre steder på Eksperten har andre rodet med noget lignende. Så det er vel blot et spørgsmål om at få det tilpasset til den aktuelle opgave. I det ovenstående har det være ret "hemmeligt" men i må da godt se den kode som jeg har neglet fra http://www.erlandsendata.no/english/index.php?d=enfunctionsdateholidays og forsøgt at tilpasse til danske forhold. Jeg bruger den til ikke at sende regninger, med en sidste rettidig indbetaling i en weekend eller en helligdag.

Function ErHelligdag(testDato As Long, InclLørdage As Boolean, InclSøndage As Boolean) As Boolean
Dim InputYear As Integer, PD As Long, OK As Boolean
    If testDato <= 0 Then testDato = Date
    InputYear = Year(testDato)
    PD = Påskedag(InputYear)
    OK = True
    Select Case testDato
        Case DateSerial(InputYear, 1, 1) ' Nytårsdag
        Case PD - 7    ' Palmesøndag
        Case PD - 3    ' Skærtorsdag
        Case PD - 2    ' Langfredag
        Case PD        ' Påskedag
        Case PD + 1    ' 2. påskedag
        Case PD + 26    ' St. Bededag
        Case PD + 39    ' Kristi Himmelfartsdag
        Case PD + 49    ' Pinsedag
        Case PD + 50    ' 2. Pinsedag
        Case DateSerial(InputYear, 12, 24) ' Juleaftensdag
        Case DateSerial(InputYear, 12, 25) ' Juledag
        Case DateSerial(InputYear, 12, 26) ' 2. Juledag
        Case DateSerial(InputYear, 12, 31) ' Nytårsaftensdag
        Case Else
            OK = False
            If InclLørdage Then
                If WeekDay(testDato, vbMonday) = 6 Then
                    OK = True
                End If
            End If
            If InclSøndage Then
                If WeekDay(testDato, vbMonday) = 7 Then
                    OK = True
                End If
            End If
    End Select
    IsHoliday = OK
End Function

Function Påskedag(InputYear As Integer) As Long
Dim d As Integer
    d = (((255 - 11 * (InputYear Mod 19)) - 21) Mod 30) + 21
    Påskedag = DateSerial(InputYear, 3, 1) + d + (d > 48) + 6 - ((InputYear + InputYear \ 4 + d + (d > 48) + 1) Mod 7)
End Function

Jeg er (dog placeret på arbejde) i besiddelse af et regnearkprogram hvor jeg for et år ad gangen kan genere en kalender indeholdende alle ugens dage med dato, ugedag og evt. helligdag i hver sin kolonne. Så vidt jeg husker er det muligt at generere indtil år 2110 (det er vel nok for de fleste af os!).

Der er også en her

http://erfa.teknologisk.dk/erfaaccess/videnbase/Kodeeksempler/datoer/Helligdage.txt