24. september 2003 - 16:07Der er
12 kommentarer og 1 løsning
funktion til helligdage
heya
min request er ganske simpel ... næsten da... jeg mangler en funktion som jeg kan give en dato og den så returnerer om det er en helligdag eller ej .. (bare danske helligdage) ... har ik kunnet finde noget indbygget ... så ... er der nogen der har sårn en liggende vil jeg blive taknemmelig
det er jo bare ikke alle datoer der ligger på faste datoer .. f.eks. er der også nogen af dem der f.eks. er sidste torsdag i maj ....og sårn ... der er nogen af dem der flytter dato ..
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
Årh... Nu er det jo efterhånden temmelig længe siden, så jeg tror næsten lige så godt du selv kan prøve at kigge det igennem og forstå det den vej. Har heller ikke så meget tid for tiden. Men ellers opret et nyt spm eller spørg google, den har sikkert svar :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
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.