回复 2楼554354854的帖子
晕,上边那个发错了- 空间 简单程序
- 功能 逻辑型 开始_点击()
- 返回 真
- 功能结束
- 功能 逻辑型 退出_点击()
- 辅助.退出()
- 返回 真
- 功能结束
- 功能 逻辑型 当前时间_点击()
- 辅助.消息框(system.getsystime(0))
- 返回 真
- 功能结束
- 功能 逻辑型 按钮0_点击()
- //辅助.写入剪切板("")
- //读取起始日期
- 辅助.写入剪切板(日期框.获得文本("起始日期"))
- 字符型 内容1=辅助.读取剪切板()
- //转换年,得到y1
- 辅助.写入剪切板(字符串.截取(内容1,0,4))
- 字符型 起始年1=辅助.读取剪切板()
- 字符型 字符串y1值=起始年1
- 整型 y1=转换.字符型转整型(字符串y1值,0)
- //转换月,得到m1
- 辅助.写入剪切板(字符串.截取(内容1,5,7))
- 字符型 起始月1=辅助.读取剪切板()
- 字符型 字符串m1值=起始月1
- 整型 m1=转换.字符型转整型(字符串m1值,0)
- //转换日,得到d1
- 辅助.写入剪切板(字符串.截取(内容1,8,10))
- 字符型 起始日1=辅助.读取剪切板()
- 字符型 字符串d1值=起始日1
- 整型 d1=转换.字符型转整型(字符串d1值,0)
- //读取终止日期
- 辅助.写入剪切板(日期框.获得文本("终止日期"))
- 字符型 内容2=辅助.读取剪切板()
- //转换年,得到y2
- 辅助.写入剪切板(字符串.截取(内容2,0,4))
- 字符型 起始年2=辅助.读取剪切板()
- 字符型 字符串y2值=起始年2
- 整型 y2=转换.字符型转整型(字符串y2值,0)
- //转换月,得到m2
- 辅助.写入剪切板(字符串.截取(内容2,5,7))
- 字符型 起始月2=辅助.读取剪切板()
- 字符型 字符串m2值=起始月2
- 整型 m2=转换.字符型转整型(字符串m2值,0)
- //转换日,得到d2
- 辅助.写入剪切板(字符串.截取(内容2,8,10))
- 字符型 起始日2=辅助.读取剪切板()
- 字符型 字符串d2值=起始日2
- 整型 d2=转换.字符型转整型(字符串d2值,0)
- int s1=0
- int s3=0
- int s5=0
- int s6=0
- int s起始年份=0
- int s终止年份=0
- int 总天数=0
- //起始年份整月的天数
- 如果 (y1 % 4 == 0 && y1 % 100 != 0 || y1 % 400 == 0)
- 如果 (m1==1)
- s1=0
- 否则
- 如果 (m1==2)
- s1=31
- 否则
- 如果 (m1==3)
- s1=31+29
- 否则
- 如果 (m1==4)
- s1=31+29+31
- 否则
- 如果 (m1==5)
- s1=31+29+31+30
- 否则
- 如果 (m1==6)
- s1=31+29+31+30+31
- 否则
- 如果 (m1==7)
- s1=31+29+31+30+31+30
- 否则
- 如果 (m1==8)
- s1=31+29+31+30+31+30+31
- 否则
- 如果 (m1==9)
- s1=31+29+31+30+31+30+31+31
- 否则
- 如果 (m1==10)
- s1=31+29+31+30+31+30+31+31+30
- 否则
- 如果 (m1==11)
- s1=31+29+31+30+31+30+31+31+30+31
- 否则
- 如果 (m1==12)
- s1=31+29+31+30+31+30+31+31+30+31+30
- 否则
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 否则
- 如果 (m1==1)
- s1=0
- 否则
- 如果 (m1==2)
- s1=31
- 否则
- 如果 (m1==3)
- s1=31+28
- 否则
- 如果 (m1==4)
- s1=31+28+31
- 否则
- 如果 (m1==5)
- s1=31+28+31+30
- 否则
- 如果 (m1==6)
- s1=31+28+31+30+31
- 否则
- 如果 (m1==7)
- s1=31+28+31+30+31+30
- 否则
- 如果 (m1==8)
- s1=31+28+31+30+31+30+31
- 否则
- 如果 (m1==9)
- s1=31+28+31+30+31+30+31+31
- 否则
- 如果 (m1==10)
- s1=31+28+31+30+31+30+31+31+30
- 否则
- 如果 (m1==11)
- s1=31+28+31+30+31+30+31+31+30+31
- 否则
- 如果 (m1==12)
- s1=31+28+31+30+31+30+31+31+30+31+30
- 否则
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- //起始年份最后一月的天数为d1
- //起始年份总共的天数
- 如果 (y1 % 4 == 0 && y1 % 100 != 0 || y1 % 400 == 0)
- s起始年份=366-s1-d1
- 否则
- s起始年份=365-s1-d1
- 如果结束
- //终止年份整月的天数
- 如果 (y2 % 4 == 0 && y2 % 100 != 0 || y2 % 400 == 0)
- 如果 (m2==1)
- s3=0
- 否则
- 如果 (m2==2)
- s3=31
- 否则
- 如果 (m2==3)
- s3=31+29
- 否则
- 如果 (m2==4)
- s3=31+29+31
- 否则
- 如果 (m2==5)
- s3=31+29+31+30
- 否则
- 如果 (m2==6)
- s3=31+29+31+30+31
- 否则
- 如果 (m2==7)
- s3=31+29+31+30+31+30
- 否则
- 如果 (m2==8)
- s3=31+29+31+30+31+30+31
- 否则
- 如果 (m2==9)
- s3=31+29+31+30+31+30+31+31
- 否则
- 如果 (m2==10)
- s3=31+29+31+30+31+30+31+31+30
- 否则
- 如果 (m2==11)
- s3=31+29+31+30+31+30+31+31+30+31
- 否则
- 如果 (m2==12)
- s3=31+29+31+30+31+30+31+31+30+31+30
- 否则
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 否则
- 如果 (m2==1)
- s3=0
- 否则
- 如果 (m2==2)
- s3=31
- 否则
- 如果 (m2==3)
- s3=31+28
- 否则
- 如果 (m2==4)
- s3=31+28+31
- 否则
- 如果 (m2==5)
- s3=31+28+31+30
- 否则
- 如果 (m2==6)
- s3=31+28+31+30+31
- 否则
- 如果 (m2==7)
- s3=31+28+31+30+31+30
- 否则
- 如果 (m2==8)
- s3=31+28+31+30+31+30+31
- 否则
- 如果 (m2==9)
- s3=31+28+31+30+31+30+31+31
- 否则
- 如果 (m2==10)
- s3=31+28+31+30+31+30+31+31+30
- 否则
- 如果 (m2==11)
- s3=31+28+31+30+31+30+31+31+30+31
- 否则
- 如果 (m2==12)
- s3=31+28+31+30+31+30+31+31+30+31+30
- 否则
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- 如果结束
- //终止年份最后一月的天数为d2
- //终止份总共的天数
- s终止年份=s3+d2
- //中间的正年的天数
- 遍历(整型 i=1;i<(y2-y1);i++)
- 如果 ((y2-i) % 4 == 0 && (y2-i) % 100 != 0 || (y2-i) % 400 == 0)
- s5=366
- 否则
- s5=365
- 如果结束
- s6=s6+s5
- 遍历结束
- 如果(y1==y2 && m1==m2 && d1==d2)
- 总天数=0
- 否则
- 如果(y1==y2 && m1==m2 && d1!=d2)
- 总天数=d2-d1
- 否则
- 如果(y1==y2 && m1!=m2 && d1!=d2)
- 总天数=s终止年份
- 否则
- 总天数=s起始年份+s终止年份+s6
- 如果结束
- 如果结束
- 如果结束
- 整型 整型数=总天数
- 字符型 字符串=转换.整型转字符型(总天数)
- 辅助.消息框(字符串)
- 返回 真
- 功能结束
- 空间结束
复制代码 |