http://stavpogoda.ru/Meteo.file/pfun.jfu

1function win_two(url,name,w,h,l,t) {parmi="width="+w+",height="+h+",left="+l+",top="+t;
2		window.open(url,name,parmi);}
3	
4function primet(){window.open("http://www.meteo.stv.ru/cgi/calendar.cgi", "nprm","width=720,height=310,left=40,top=100");}	
5
6
7today = new Date();
8mes=today.getMonth()+1;
9//year=today.getYear();
10year=today.getFullYear();
11
12den=today.getDate();
13  if (mes<10){mes="0"+mes;}
14  if (den<10){den="0"+den;}
15
16//blan_dat='<div style="font-size:11px;color:#FFFFFF" align="center">'+'ñåãîäíÿ '+" "+getD(today.getDay())+" , "+den+" "+getM(mes*1)+" "+year+' ã.'+'</div>';
17blan_dat='ñåãîäíÿ '+" "+getD(today.getDay())+" , "+den+" "+getM(mes*1)+" "+year+' ã.';	
18  
19 function getD(im1)
20{
21switch(im1)
22{
23   case 0:
24   {return im="âîñêðåñåíüå ";}
25   case 1:
26   {return im="ïîíåäåëüíèê ";}
27   case 2:
28   {return im="âòîðíèê ";}
29   case 3:
30   {return im="ñðåäà ";}
31   case 4:
32   {return im="÷åòâåðã ";}
33   case 5:
34   {return im="ïÿòíèöà ";}
35   case 6:
36   {return im="ñóááîòà ";}
37}}
38 function getM(im1)
39{
40switch(im1)
41{
42   case 1:
43   {return im="ÿíâàðÿ ";}
44   case 2:
45   {return im="ôåâðàëÿ ";}
46   case 3:
47   {return im="ìàðòà ";}
48   case 4:
49   {return im="àïðåëÿ ";}
50   case 5:
51   {return im="ìàÿ ";}
52   case 6:
53   {return im="èþíÿ ";}
54   case 7:
55   {return im="èþëÿ ";}
56   case 8:
57   {return im="àâãóñòà ";}
58   case 9:
59   {return im="ñåíòÿáðÿ ";}
60   case 10:
61   {return im="îêòÿáðÿ ";}
62   case 11:
63   {return im="íîÿáðÿ ";}
64   case 12:
65   {return im="äåêàáðÿ ";}
66}}
67
68
69
70
71//astron=sunpos1();
72
73function sunpos1()
74{
75var lg=1.0*42; <!-- äîëãîòà ãðàäóñû->
76var lgmi=1.0*07; <!-- äîëãîòà ìèíóòû->
77var la=1.0*45; <!-- øèðîòà ãðàäóñû->
78var lami=1.0*07; <!-- øèðîòà ìèíóòû->
79var ye=1.0*year;     <!-- ãîä->
80var mo=1.0*mes;    <!-- ìåñÿö->
81var da=1.0*den;      <!-- äåíü->
82var zo=1.0*3;     <!-- çîíà->
83var k=Math.PI/180.0;
84lg=lg+lgmi/60
85la=la+lami/60
86lgo=lg
87lao=la
88aa=180.0
89h1=0
90m=0
91azm1=azimuth(lg,la,ye,mo,da,h1,m,zo)
92s=-0.8333
93// find midday interval
94for (var h=0; h<24; h++){
95h2=h
96azm2=azimuth(lg,la,ye,mo,da,h2,m,zo)
97if ((azm1<=180)&&(azm2>=180)){
98ha1=h1
99ha2=h2
100}
101h1=h2
102azm1=azm2
103}
104// find exact midday time
105mino=1.0;
106for (h=ha1; h<ha2; h++){
107for (m=0; m<60; m++){
108azmo=azimuth(lg,la,ye,mo,da,h,m,zo)
109dfo=Math.abs(aa-azmo)
110if (dfo<=mino) {
111mino=dfo
112hno=h
113mno=m
114}}}
115mday=""
116altnoon=altitude(lg,la,ye,mo,da,hno,mno,zo);
117if (altnoon<s){ mday="nigth" }
118hr="íå ïðîèñõîäÿò"
119mr=""
120hs="íå ïðîèñõîäÿò"
121ms=""
122mintwr=0.1;
123minr=0.1
124for (h=0; h<=hno; h++){
125for (m=0; m<60; m++){
126if (60*h+m< 60*hno+mno){
127altr=altitude(lg,la,ye,mo,da,h,m,zo)
128if (altnoon > s){
129dfr=Math.abs(s-altr)
130if (dfr<=minr) {
131minr=dfr
132hr=h
133mr=m
134}}}}}
135mins=0.1;
136mintws=0.1;
137for (h=hno; h<24; h++){
138for (m=0; m<60; m++){
139if (60*h+m >= 60*hno+mno){
140alts=altitude(lg,la,ye,mo,da,h,m,zo)
141if(altnoon>s){
142dfs=Math.abs(s-alts)
143if (dfs<=mins) {
144mins=dfs
145hs=h
146ms=m
147}}
148}}}
149
150// ïåðåõîä íà ëåòíåå âðåìÿ
151
152if (mes==3) {
153for (i=1;i<=7;i++){
154  np=32-i;
155 dd1=new Date(3+"/"+np+"/"+year);
156   if (dd1.getDay()==0){
157      den1=dd1.getDate();
158      }
159                  }
160              }
161// ïåðåõîä íà çèìíåå âðåìÿ
162if (mes==9) {
163for (i=1;i<=7;i++){
164     np=31-i;
165     dd1=new Date(9+"/"+np+"/"+year);
166       if (dd1.getDay()==0){
167          den2=dd1.getDate();
168                           }
169                  }
170             }
171
172if ((mes==3 && den>=den1)||(mes>=4 && mes<=8)||(mes==9 && den<=den2)){
173hr=hr+1; // hr ÷àñ âîñõîäà mr ìèí.âîñõîäà
174hs=hs+1; // hs ÷àñ çàõîäà  ms ìèí.çàõîäà
175
176
177
178     }
179dr=hs-hr;
180 if (ms-mr<0){dm=60-(mr-ms);dr=dr-1;}
181 if (ms-mr>=0){dm=ms-mr;}
182if (mr<9){mr="0"+mr;}
183if (ms<9){ms="0"+ms;}
184if (dm<9){dm="0"+dm;}
185
186if (hr<9){hr="0"+hr;}
187if (hs<9){hs="0"+hs;}
188if (dr<9){dr="0"+dr;}
189
190cikti='<table border="0" width=105 height=103 background="../../GRAPHIC/gerb.jpg" style="FONT-FAMILY: Helvetica, Arial, sans-serif;FONT-SIZE: 11px; line-height:95%;color:#FFFFFF">'+
191'<tr><td colspan="2" align="center"><img src="../GRAPHIC/call.gif" width="25" height="25" border="0"></td></tr>'+
192'<tr><td>'+"&nbsp;&nbsp;Âîñõîä:<br>&nbsp;&nbsp;Çàõîä:<br>&nbsp;&nbsp;Äîëãîòà<br>&nbsp;&nbsp;äíÿ"+
193'</td><td>'+hr+":"+mr+'<br>'+hs+":"+ms+'<br><br>

193'+dr+":"+dm+'</td></tr></table>'
194
195document.write(cikti);
196
197} 
198function ut(h,m,z)
199{ return (h-z+m/60); }
200function jd(y,m,d,u)
201{ return (367*y)-Math.floor((7/4)*(Math.floor((m+9)/12)+y))+Math.floor(275*m/9)+d-730531.5+(u/24) }
202function azimuth(lg,la,ye,mo,da,ho,mi,zo)
203{ with (Math) {
204var uu=ut(ho,mi,zo);
205var jj=jd(ye,mo,da,uu);
206var T=jj/36525;
207var k=PI/180.0;
208var M=357.5291+35999.0503*T-0.0001559*T*T-0.00000045*T*T*T
209M=M % 360
210var Lo=280.46645+36000.76983*T+0.0003032*T*T
211Lo=Lo % 360
212var DL=(1.9146-0.004817*T-0.000014*T*T)*sin(k*M)+(0.019993-0.000101*T)*sin(k*2*M)+0.00029*sin(k*3*M)
213var L=Lo+DL
214var eps=23.43999-0.013*T
215var delta=(1/k)*asin(sin(L*k)*sin(eps*k))
216var RA=(1/k)*atan2(cos(eps*k)*sin(L*k),cos(L*k))
217RA=(RA+360) % 360
218var GMST=280.46061837+360.98564736629*jj+0.000387933*T*T-T*T*T/38710000
219GMST=(GMST+360) % 360
220var LMST=GMST+lg
221var H=LMST-RA
222var eqt=(Lo-RA)*4
223var azm=(1/k)*atan2(-sin(H*k),cos(la*k)*tan(delta*k)-sin(la*k)*cos(H*k))
224azm=(azm+360) % 360
225return azm
226}}
227function altitude(lg,la,ye,mo,da,ho,mi,zo)
228{with (Math) {
229var uu=ut(ho,mi,zo);
230var jj=jd(ye,mo,da,uu);
231var T=jj/36525;
232var k=PI/180.0;
233var M=357.5291+35999.0503*T-0.0001559*T*T-0.00000045*T*T*T
234M=M % 360
235var Lo=280.46645+36000.76983*T+0.0003032*T*T
236Lo=Lo % 360
237var DL=(1.9146-0.004817*T-0.000014*T*T)*sin(k*M)+(0.019993-0.000101*T)*sin(k*2*M)+0.00029*sin(k*3*M)
238L=Lo+DL
239var eps=23.43999-0.013*T
240var delta=(1/k)*asin(sin(L*k)*sin(eps*k))
241var RA=(1/k)*atan2(cos(eps*k)*sin(L*k),cos(L*k))
242RA=(RA+360) % 360
243var GMST=280.46061837+360.98564736629*jj+0.000387933*T*T-T*T*T/38710000
244GMST=(GMST+360) % 360
245var LMST=GMST+lg
246var H=LMST-RA
247var eqt=(Lo-RA)*4
248var alt=(1/k)*asin(sin(la*k)*sin(delta*k)+cos(la*k)*cos(delta*k)*cos(H*k))
249return alt;
250}}
251
252
253
254