---

Hej

Det har vist været oppe før men jeg har ikke lige kunne finde det. Beregning
af helligdage i Danmark?

Mvh
HK

---

Alt er relativt til påske søndag, denne beregnes på følgende måde:

Function GetEaster(AYear : Integer) : TDateTime;
var
a,b,c,e,f,g,
h,i,k,l,o,q : integer;
begin
a:=(AYear mod 19);
b:=(AYear div 100);
c:=(AYear mod 100);
o:=(b div 4);
e:=(b mod 4);
f:=((b+8) div 25);
g:=((b-f+1) div 3);
h:=((19*a+b-o-g+15) mod 30);
i:=(c div 4);
k:=(c mod 4);
l:=((32+2*e+2*i-h-k) mod 7);
q:=((a+11*h+22*1) div 451);
Result:=EncodeDate(AYear,((h+l-7*q+114) div 31),(((h+l-7*q+114) mod
31)+1));
end;

Carsten

"Harald" <news@kroning.dk> skrev i en meddelelse
news:3ef5fa84$0$97157$edfadb0f@dread12.news.tele.dk...
> Hej
>
> Det har vist været oppe før men jeg har ikke lige kunne finde det.
Beregning
> af helligdage i Danmark?
>
> Mvh
> HK
>
>

---

"Carsten" <zzr1100@nospam.dkfritidmotorcykel.dk> skrev i en meddelelse
news:3f0b2b1d$0$97159$edfadb0f@dread12.news.tele.dk...
> Alt er relativt til påske søndag, denne beregnes på følgende måde:
>
> Function GetEaster(AYear : Integer) : TDateTime;
> var
> a,b,c,e,f,g,
> h,i,k,l,o,q : integer;
> begin
> a:=(AYear mod 19);
> b:=(AYear div 100);
> c:=(AYear mod 100);
> o:=(b div 4);
> e:=(b mod 4);
> f:=((b+8) div 25);
> g:=((b-f+1) div 3);
> h:=((19*a+b-o-g+15) mod 30);
> i:=(c div 4);
> k:=(c mod 4);
> l:=((32+2*e+2*i-h-k) mod 7);
> q:=((a+11*h+22*1) div 451);
> Result:=EncodeDate(AYear,((h+l-7*q+114) div 31),(((h+l-7*q+114) mod
> 31)+1));
> end;

Tak for det.

/HK