06. april 2005 - 15:56Der er
2 kommentarer og 2 løsninger
Webkalender helligdage/ Til import
Håber der er nogle der kan hjælpe mig. Jeg har en webkalender lavet i .net som kørere på en MS SQL database - I denne vil jeg gerne have registeret alle danske helligdage ( Gerne også svenske)- Gerne 10 år fremi tiden. Er der nogle der har disse informationer liggende eller ved hvor jeg kan få fat på dem;-)..
gyldental=(aar+1) mod 19 if gyldental=0 then gyldental=19
epakt= ((gyldental-1)*11)mod 30 if aar>1899 and aar<2200 then epakt=epakt-1 if aar>2199 and aar<2300 then epakt=epakt-2 if aar>2299 and aar<2400 then epakt=epakt-3 if aar>2399 and aar<2500 then epakt=epakt-2 if aar>2499 and aar<2600 then epakt=epakt-3 if aar>2599 and aar<2900 then epakt=epakt-4 epakt=epakt mod 30
DagTilFj=80 if gyldental=6 or gyldental=17 then DagTilFj=81 alder=(epakt+DagTilFj) mod 30 if alder<=13 then antaldg=13-alder if alder>13 then antaldg=43-alder
fuldmaane=21+antaldg if fuldmaane<=31 then dato=fuldmaane maaned=3 else dato=fuldmaane-31 maaned=4 end if 'response.write"fuldmåne:" &dato&"/"&maaned&"<br>"
korrektion=(5+aar+aar\4-aar\100+aar\400) mod 7 if aar/4=int(aar/4) and (maaned=1 or maaned=2) then if aar/100<>int(aar/100) then korrektion=korrektion-1 if aar/100 =int(aar/100) then korrektion=korrektion-1 end if u=(dato+m(maaned)+korrektion)mod 7
Paaske=dato+7-u if paaske>31 then paaske=paaske-31 maaned=4 end if 'response.write " Påske " & aar &": "& paaske & "/" & maaned &"<br>" str= paaske & "/" & maaned &"/"& aar
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.