TC官方合作论坛

标题: 日历查询的脚本....求大神帮忙指点 [打印本页]

作者: 4661654 时间: 2013-4-16 18:07
标题: 日历查询的脚本....求大神帮忙指点

[attach]8732[/attach]
空间算法
功能年()
变量年,月,总天,当月天数
年=编辑框.获得文本("编辑框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 时间: 2013-4-16 18:44
不然就如哪个图？

作者: zxyc2000 时间: 2013-4-16 18:45
再次查询之前，把所有的控件都清空

作者: 4661654 时间: 2013-4-16 19:11
回复 3楼zxyc2000的帖子

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

作者: zxyc2000 时间: 2013-4-16 19:18
回复 4楼4661654的帖子

就是赋个空值

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

作者: 4661654 时间: 2013-4-16 19:19
回复 5楼zxyc2000的帖子

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

作者: zxyc2000 时间: 2013-4-16 20:20
回复 6楼4661654的帖子

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

作者: 4661654 时间: 2013-4-17 12:20
回复 7楼zxyc2000的帖子

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

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)