日历查询的脚本....求大神帮忙指点

4661654

空间 算法
功能 年()
变量 年,月,总天,当月天数
年=编辑框.获得文本("编辑框0")  
月=编辑框.获得文本("编辑框1")  
for(i=1900; i<年; i++)
    if(i%4==0&&i%100!=0||i%400==0)
        总天+=366
    else
        总天+=365
    endif
endfor
for (i=1;i<月;i++)
if(i==2)
  if(年%4==0&&年%100!=00||年%400==0)
            总天+=29
        else
            总天+=28
        endif
    else
            if(i==4||i==6||i==9||i==11)
                总天+=30
            else
                总天+=31
            
        endif
    endif  
endfor
总天+=1
标签.设置文本("标签0",年&"年"&月&"月")  
标签.设置文本("标签431","日")
标签.设置文本("标签441","一")
标签.设置文本("标签451","二")
标签.设置文本("标签461","三")
标签.设置文本("标签471","四")
标签.设置文本("标签481","五")
标签.设置文本("标签491","六")

if(月==2)
    if(年%4==0&&年%100!=0||年%400==0)
        当月天数+=29
    else
        当月天数+=28
    endif
else
    if(月==4||月==6||月==9||月==11)
        当月天数+=30
    else
        当月天数+=31
    endif
endif
for(i=1;i<=当月天数;i++)
标签.设置文本("标签"&(i+(总天%7)),i)
endfor
功能结束


空间结束


上面是代码，运行程序只查询一次不会出错，关闭程序再开再查也不会错！就是不能在程序运行时多次查询，不然就如图

zxyc2000

回复 6楼4661654的帖子

点击查询按钮后，那些控件应该变化，就清空哪个

zxyc2000

不然就如哪个图？

zxyc2000

再次查询之前，把所有的控件都清空

4661654

回复 3楼zxyc2000的帖子

控件清空怎么清的呢。。。。

zxyc2000

回复 4楼4661654的帖子

就是赋个空值

标签.设置文本("标签"," ")

4661654

回复 5楼zxyc2000的帖子

所有控件输出的控件都要清空么？

4661654

回复 7楼zxyc2000的帖子

谢谢提点，已经不会出错了。。。不过脚本还有待完善