真太阳时在线查询换算修正-真太阳时间排盘

<% if xing<>"" then userbirthday=nian1&"-"&yue1&"-"&ri1 userll=DateDiff("yyyy", userbirthday, date) %> <%end if%>
当前算命者<%=xing&ming%>的信息
姓名:<%=xing&ming%> 性别:<%=xingbie%> <%if xuexing<>"" then%> 血型:<%=xuexing%> 型 <%end if%> 出生:<%=nian1%>年<%=yue1%>月<%=ri1%>日<%=hh1%>时<%=mm1%>分 今年<%=userll%>岁 属相:<%=sx%> 星座:<%=Constellation(nian1&"-"&yue1&"-"&ri1)%> 
四柱八字 | 大六壬起课 | 六爻起卦 | 奇门遁甲起局 | 玄空飞星 | 金口诀立课 | 紫微斗数 | 真太阳时间修正 | 地区经度查询
<% '其他数据 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%>
周易预测中的时辰怎样确定?

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