<% '其他數據 nx=trim(request("nx")) xx=trim(request("xx")) sex=trim(request("sex")) riqi=trim(request("y"))&"-"&trim(request("m"))&"-"&trim(request("d")) if len(riqi)<6 then riqi=trim(request("riqi")) if riqi="" then riqi=year(now())&"-"&month(now())&"-"&day(now()) else riqi=FormatDateTime(riqi, 1) '轉換成時間格式 end if nian=year(riqi) yue=month(riqi) ri=day(riqi) hh=trim(request("hh")) fen=trim(request("fen")) if nian="" then nian=year(now()) if yue="" then yue=month(now()) if ri="" then ri=day(now()) if hh="" then hh=hour(now()) if fen="" then fen=minute(now()) hh1=hh province1=trim(request("province1")) city1=trim(request("city1")) jingdu=trim(request("jingdu")) if not isnumeric(jingdu) then jingdu=0 on error resume next db1="laisuanmingjingdu.asp" Set conn1 = Server.CreateObject("ADODB.Connection") connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db1) conn1.Open connstr1 if province1<>"" and city1<>"" then set rs=server.createobject("ADODB.recordset") strsql="select * from jd where sheng='"&province1&"' and xian='"&city1&"'" rs.open strsql,conn1,1,1 if not rs.eof then id=rs("id") jingdu=rs("jingdu") shi=rs("shi") cxsjk="yes" end if else shi=4*(jingdu-120)/60 end if if cxsjk="" then province1="" city1="" end if if cxsjk="" and jingdu<>0 then set rs=server.createobject("ADODB.recordset") strsql="select * from jd where jingdu="&jingdu&" order by jingdu" rs.open strsql,conn1,1,1 if not rs.eof then do while not rs.eof id2=rs("id") sheng2=rs("sheng") xian2=rs("xian") jingdu2=rs("jingdu") dilimess=dilimess&""&sheng2&"-"&xian2&" " rs.movenext loop dilimess="
該經度所處的地點可能是在 "&dilimess else set rs=server.createobject("ADODB.recordset") strsql="select * from jd where jingdu>="&jingdu&" order by jingdu" rs.open strsql,conn1,1,1 if not rs.eof then id2=rs("id") sheng2=rs("sheng") xian2=rs("xian") jingdu2=rs("jingdu") dilimess="
最靠近該經度的地點可能是在 "&sheng2&"-"&xian2&"(經度為"&jingdu2&") " end if set rs=server.createobject("ADODB.recordset") strsql="select * from jd where jingdu<="&jingdu&" order by jingdu desc" rs.open strsql,conn1,1,1 if not rs.eof then id2=rs("id") sheng2=rs("sheng") xian2=rs("xian") jingdu2=rs("jingdu") dilimess=dilimess&"和 "&sheng2&"-"&xian2&"(經度為"&jingdu2&") 。" end if end if end if miao=0 sj1=nian&"年"&yue&"月"&ri&"日 "&hh1&":"&fen&":"&miao&"" sj11=nian&"-"&yue&"-"&ri&" "&hh1&":"&fen&":"&miao&"" sj11=FormatDateTime(sj11, 0) '轉換成時間格式 sj00=sj11 xialing=trim(request("xialing")) if xialing="yes" then sj11=DateAdd("s", -3600, sj11) '夏令時間處理 sj22=DateAdd("s", shi*3600, sj11) '加上平太陽時間差值 set rs=server.createobject("ADODB.recordset") strsql="select * from yr where yue="&yue&" and ri="&ri&"" rs.open strsql,conn1,1,1 if not rs.eof then id=rs("id") shi=rs("shi") end if conn1.close set conn1=nothing sj33=DateAdd("s", shi*3600, sj22) '加上平太陽時間差值 nian3=year(sj33) yue3=month(sj33) ri3=day(sj33) hh3=hour(sj33) fen3=minute(sj33) miao3=second(sj33) %>
真太陽時間修正
出生日期:(*北京標準時間)
出生時間:(*24小時制,00:00~23:59。) checked<%end if%>> 夏令時間
出生地點:  若不在上面的選擇中,請填寫出生地經度:度<%=dilimess%>
<%if request("act")="ok" then%>
真太陽時間顯示

 
  原始時間:<%=sj00%>

北京標準時間:<%=sj11%>

 平太陽時間:<%=sj22%>

 真太陽時間:<%=sj33%>

  進入華盛算命免費詳批八字>>>

<%end if%>
周易預測中的時辰怎樣確定?

時辰究竟應該按照什么標準確定呢?是按北京時間確定?還是按當地時間確定?其實唯一的標準就是太陽相對于地球的視角,即天文學上所謂的真太陽時。即:真太陽時=平太陽時+真平太陽時差。凡定生時,必須按照其出生地點,推算出當地的平太陽時,再根據平太陽時推算出真太陽時為準,不能簡單地沿用北京時間,下面列出中國各主要城市之平太陽時與北京時間對照表,供定時辰之參考。

 

浙江6+1开奖时间几点