<% '其他数据 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%>
周易预测中的时辰怎样确定?

时辰究竟应该按照什么标准确定呢?是按北京时间确定?还是按当地时间确定?其实唯一的标准就是太阳相对于地球的视角,即天文学上所谓的真太阳时。即:真太阳时=平太阳时+真平太阳时差。凡定生时,必须按照其出生地点,推算出当地的平太阳时,再根据平太阳时推算出真太阳时为准,不能简单地沿用北京时间,下面列出中国各主要城市之平太阳时与北京时间对照表,供定时辰之参考。