mfp吧 关注:779贴子:4,977
  • 1回复贴,共1
节气计算


IP属地:山西来自Android客户端1楼2016-03-15 21:05回复
    Function jsjq()// function
    variable dianx=[["立春","雨水","惊蛰","春分","清明","谷雨","立夏","小满","芒种","夏至","小暑","大暑","立秋","处暑","白露","秋分","寒露","霜降","立冬","小雪","大雪","冬至","小寒","大寒"],[4.8611,19.6896,5.6125,20.6493,4.8132,20.1104,5.5347,21.0757,5.7069,21.4076,7.134,22.8625,7.5431,23.1583,7.666,23.0604,8.3181,23.4493,7.45,22.3465,7.1507,21.9007,5.6174,20.3444],[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24]],q=0.2422,jg,yue,tian,shi,fen,lin
    variable qx = input("输入年份后两位数:"+"\n")
    for variable n=0 to 23,1
    dianx[2][n]=tostring(dianx[2][n])+dianx[0][n]
    next
    print(dianx[2]+"\n")
    variable qy = input("输入节气序号:"+"\n")
    variable qz=qx
    if qx>0
    dianx[1][0]=dianx[1][0]-1
    dianx[1][1]=dianx[1][1]-1
    endif
    jg=(qx*q+dianx[1][qy-1])-floor(qx/4)
    yue=mod(ceil(qy/2)+1,12)
    tian=floor(jg)
    lin=(jg-tian)*24
    shi=floor(lin)
    fen=round((lin-shi)*60,0)
    if yue==0
    yue=12
    endif
    if yue==1
    qz=qz+1
    endif
    printf("20"+"%02d"+"年"+dianx[0][qy-1]+"时间为:"+"20"+"%02d"+"年"+yue+"月"+tian+"日"+shi+"时"+fen+"分"+"\n",qx,qz)
    return
    endf


    IP属地:山西来自Android客户端2楼2016-03-15 21:06
    回复