<% Function vmod(a,b) vmod=a-b*Int(a/b) End function %> <% ta=request.form("T1")+0 tb=request.form("T2")+0 tc=request.form("T3")+0 birth= DateSerial( ta, tb, tc ) '?j?u w=weekday(birth) '??}?x from_start=birth+8 n_k=Int(from_start/10) kan=from_start-10*n_k n_s=Int(from_start/12) shi=from_start-12*n_s n_ks=Int(from_start/60) kanshi_no=Cint(from_start-60*n_ks+1) '???????? live=Int(now()-birth) pp=vmod(live,23) ss=vmod(live,28) ii=vmod(live,33) p2=atn(1)*8 p_s=FormatNumber(sin(p2*pp/23),2) s_s=FormatNumber(sin(p2*ss/28),2) i_s=FormatNumber(sin(p2*ii/33),2) %> 通日の計算 小石河さんのページに自動的にジャンプ

<% = FormatDateTime( birth , 1 ) %> (<%=mid("日月火水木金土",w,1)%>)生まれ

干支は <%=mid("甲乙丙丁戊己庚辛壬癸",1+kan,1) & mid("子丑寅卯辰巳午未申酉戌亥",1+shi,1) %>

小石川さんによる解説ページに自動的にジャンプします。

生まれてから <%=live%>日間生きています。バイオリズム 肉体<%=p_S%> 感情<%=s_s%> 知性<%=i_s%> (P=<%=pp%> S=<%=ss%> I=<%=ii%>)