|
|
<?
# (c) Hanno Rein 2002
# sonne@hanno-rein.de
$b=0.8464847; #geo.
Breite: Pi*BreiteInGrad/180
$l=9; #geo.
Länge in Grad
$T=strftime("%j"); #Tag
des Jahres
$dekli=0.40954*sin(0.01691*($T-79.34974));
$dif=12*Acos((sin(-0.00145)-sin($b)*sin($dekli))/(cos($b)*cos($dekli)))/Pi();
$dif2=12+$dif;
$dif=12-$dif;
$end=$dif-(-0.1752*sin(0.033430*$T+0.5474)-0.1340*sin(0.018234*$T-0.1939))+(15-$l)*4/60;
$end2=$dif2-(-0.1752*sin(0.033430*$T+0.5474)-0.1340*sin(0.018234*$T-0.1939))+(15-$l)*4/60;
$aufgang=mktime(substr($end,0,1),substr((substr($end,1)*60),0,2));
$untergang=mktime(substr($end2,0,2),substr((substr($end2,2)*60),0,2));
# $aufgang und $untergang als timestamp
?>
 |
Das Skript darf für private Zwecke mit einem Copyright-Hinweis
frei weiterverbreitet werden. |
|
|
|
