『百分求助』可以计算生辰八字的JavaScript代码,哪位高手可以帮忙转换成Vbscript或ASP代码.万分感激!

Question

转起来多麻烦。就这样用不行吗？ 况且vbscript 和 javascript也可以互相调用

Answer 1

不用转啦，直接用就行了。
javascript的下面这句
tg=new Array("甲","乙","丙","丁","戊","己","庚","辛","壬","癸");
转成vb
dim tg(9)
tg(0)="甲"
tg(9)=""下面这个过程转成vb
function inq(){   ///sub inq()
 y=nian;          ///y=nian
  gl0=(Date.UTC(y,0,1)-Date.UTC(1901,1,19))/86400000;   ///这句我也不懂，楼下的解释一下
  dy=y-1901;   ///dy=datediff("y",y,"1901")
  i=Math.floor(dy/10);   ///i=fix(dy/10)
  nl0=(i==0)?0:ms[i-1][120];   ///if n10=0 and i=0 then ms[i-1][120];   
  n=i*120;    ///n=i*120
  for (j=0;j<120;j++){  ///for j=0 to 119
   n++;           ///n=n+1
   if (n>dy*12) break;  ///if n>dy*12 then exit sub
   nl0+=ly[ms[i][j]];  ///不懂
  } ///end sub
我不知道ms[i][j]是不是等于ms(i)=j???我不懂ms[i-1][120];  是什么意思。楼下的解释一下？

Answer 2

楼下的回答了我的两个问题：
gl0=(Date.UTC(y,0,1)-Date.UTC(1901,1,19))/86400000;   ///这句我也不懂，楼下的解释一下
   nl0+=ly[ms[i][j]];  ///不懂
我能翻译这段程序