Helligdage i lønberegning

Prøv, at se på denne:

http://www.eksperten.dk/spm/366549
Eller
http://www.eksperten.dk/kat/266?searchtype=txt&words=helligdage&method=and&sort=score&catid=266

Måske det kan spare dig for lidt arbjede.

den er på dansk her

Function Påskedag(InputYear As Integer) As Long ' Returnerer datoen for Påskedag
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

Function HelligdagsNavn(lngdate As Long, InclSaturdays As Boolean, _
    InclSundays As Boolean) As String
' Returnerer Sand hvis lngDate er en Dansk HelligdagsNavn/nationaldag
' (valgfri inkludering af lørdag/søndag)
' bruger funktionen Påskedag
Dim InputYear As Integer, PD As Long, OK As Boolean
    If lngdate <= 0 Then lngdate = Date
    InputYear = Year(lngdate)
    PD = Påskedag(InputYear)
      OK = True
    Select Case lngdate ' Tester nedenstående påstande mod datoen
        Case DateSerial(InputYear, 1, 1): HelligdagsNavn = "Nytårsdag"
        Case PD - 3: HelligdagsNavn = "Skærtorsdag"
        Case PD - 2: HelligdagsNavn = "Langfredag"
        Case PD: HelligdagsNavn = "Påskedag"
        Case PD + 1: HelligdagsNavn = "2. Påskedag"
        Case DateSerial(InputYear, 6, 5): HelligdagsNavn = "Grundlovsdag"
        Case PD + 26: HelligdagsNavn = "Store Bededag"
        Case PD + 39: HelligdagsNavn = "Kristi Himmelfartsdag"
        Case PD + 49: HelligdagsNavn = "Pinsedag"
        Case PD + 50: HelligdagsNavn = "2. Pinsedag"
        Case DateSerial(InputYear, 12, 24): HelligdagsNavn = "Julaftensdag"
        Case DateSerial(InputYear, 12, 25): HelligdagsNavn = "1. Juledag"
        Case DateSerial(InputYear, 12, 26): HelligdagsNavn = "2. Juledag"
        Case DateSerial(InputYear, 12, 31): HelligdagsNavn = "Nytårsaftensdag"
        Case Else
          End Select
            OK = False
            If InclSaturdays Then ' Tester lørdage, hvis de skal medtages
                If Weekday(lngdate, vbMonday) = 6 Then
                    HelligdagsNavn = HelligdagsNavn & " Lørdag"
                End If
            End If
            If InclSundays Then ' Tester søndage, hvis de skal medtages
                If Weekday(lngdate, vbMonday) = 7 Then
                HelligdagsNavn = HelligdagsNavn & " Søndag"
                End If
          End If
 
End Function

du skal kun bruge Functionen  HelligdagsNavn, den kalder selv Functionen Påskedag

Godt så... jeg er vist ikke helt på jeres niveau hvad angår funktioner i excel.
Hvis jeg nu skal udfylde et helt kalender år med daglige arbejdstider, og udregne overtid osv. afhængigt af helligdage/weekend/hverdage, hvordan anvender jeg så funktionen?.

Jeg forestillede mig at have datoer i kolonne A,
Aftalt arbejdstid (Fra-Til) i B og C. afhængig af returneringen fra funktionen
Reel arbejdstid (fra-til) i D og E,
Timeantal i F.
Overtimer (sats 1-2-3) i G,H og I.
Diverse andre tillæg i J,K og L.
Beregnet Dagløn i M.
Arbejdsmarkedsbidrag i N
Jeg har nok brug for yderligere "flag" for at tage højde for andre forhold.

Vil det være helt hul i hovedet at gøre det på denne måde?
Hvis det ikke lyder helt skidt, skal jeg bare vide hvordan jeg skal indsætte funktionen. Skal den defineres et eller andet sted og derefter kaldes når "aftalt arbejdstid" skal beregnes, eller skal den indsættes direkte i hver enkelt celle?

Sæt dato i Bkolonnen og brug funktionen i A kolonnen

            12-12-03
Lørdag            13-12-03
Søndag            14-12-03
            15-12-03
            16-12-03
            17-12-03
            18-12-03
            19-12-03
Lørdag            20-12-03
Søndag            21-12-03
            22-12-03
            23-12-03
Julaftensdag    24-12-03
1. Juledag    25-12-03
2. Juledag    26-12-03
Lørdag            27-12-03
Søndag            28-12-03
            29-12-03
            30-12-03
Nytårsaftensdag    31-12-03
Nytårsdag    01-01-04

Jeg har tidligere været igang med arket, men blev ikke færdig da min daværende PC brændte sammen, så jeg er nu startet forfra.

Dengang forsøgte jeg mig med manuelt at sætte "flag" (eller hvad man nu kalder det) til at definere helligdage, tillæg osv. Jeg vil egentlig bare slippe for at skulle gå maylanden igennem for at sætte alle disse flag for helligdage.

kabbak: Jeg er dummie! (men anser dog ikke mig selv for dum) Mit problem er at jeg ikke aner hvordan jeg "bruger" funktionen i kolonne A.
Hvordan refererer den til kolonne B, og hvordan får jeg indsat den i kolonnen?

Klik ind i den celle du vil have første HelligdagsNavn i.

Vælg Indsæt > funktioner >
Funktionskatogori = brugerdefinerede
Funktionsnavn = HelligdagsNavn

Så kommer der en  dialog op

Første felt skal pege på dit datofelt
anden og tredie felt om du vil vise lørdag og søndag, de sættes til 1, så vises de.

du kan også kalde den ved at skrive
=HelligdagsNavn(B2;1;1) i celle A2

Fint nok.. så var jeg ikke helt galt afmarcheret.
Problemet ligger i, at jeg ikke har mulighed for at lave brugerdefinerede funktioner.
Jeg ved ikke om det kan være fordi jeg bruger en student version af Office XP.
Hvis optionen "brugerdefinerede funktioner" skal enables på en eller anden måde kan det måske løses?? Ellers er jeg villig til at give point for dit forsøg Kabbak.

Jeg ved ikke om der er forskel på optionen "brugerdefinerede funktioner" i excel student version , så der kan jeg ikke hjælpe.

ang. point, er det den første der kommer med brugbar henvisning / løsning der skal have dem.

Så point må gå til krasmussen

Javel... jamen så må Krasmussen vel komme med et svar:o)

Pænt af jer begge - MEN min løsning var blot en henvisning og hverken en forklaring eller uddybelse af emnet.

Så point til kabbak!

Suit yourself :o)
hvis vi er derhenne kan min revisor nok overtales til at tilbageføre points til min egen konto *G*

ok så svar da. ;-p

har du prøvet at kalde funktionen således

=HelligdagsNavn(B2;1;1) i celle A2
Hvor B2 er din dato

Har du også husket at sætte funktionen ind  i et modul, og ikke i et ark modul

Jeg har afgivet points til kabbak, men jeg tror nu nok vi startede det forkerte sted. Først og fremmest skal jeg have lagt funktionen ind i et modul... så langt er jeg ikke kommet endnu.
Jeg har gang i et andet spørgsmål desangående, men selve funktionen har jeg da fået ud af det (at jeg så ikke kan anvende den er jo en anden sag).