_14522 发表于 2013-8-2 14:12:16

5800日历

本帖最后由 _14522 于 2013-8-2 14:27 编辑

Cls
12→DimZ
0→Z
"YEAR"?L
"MONTH"?V
31→Z
28→Z
31→Z
30→Z
31→Z
30→Z
31→Z
31→Z
30→Z
31→Z
30→Z
31→Z
For 1→J To V-1
Z+Z→Z
Next
((4Frac(L÷4)=0) And (100Frac(L÷100)≠0)) Or (400Frac(L÷400)=0)》Isz Z //》指的是程序页面第三页第三个字符
Z+365(L-1900)+4Frac((L-1900)÷4→Z
Int(Rnd(7Frac(Z÷7→Z
Z→R
Cls
Locate 1,1,"S M T W T F S"
For 1→W To 7-Z
Locate 2W+2Z-1,2,W
Next
For 8-Z→W To 14-Z
Locate 2W+2Z-15,3,W
Next
For 15-Z→W To 21-Z
Locate 2W+2Z-29,4,W
Next
Locate 15,1,V▲ //SHIFT + 平方符号输入
Cls
Locate 1,1,"S M T W T F S"
For 22-Z→W To 28-Z
Locate 2W+2Z-43,2,W
Next
If 35-Z<R
Then 35-Z→R
IfEnd
For 29-Z→W To R
Locate 2W+2Z-57,3,W
Next
If 35-Z<J
Then For 36-Z→W To J
Locate 2W+2Z-71,4,W
Next
IfEnd
Locate 15,1,V
打了一遍居然没有，再来一次14：30

_14522 发表于 2013-8-2 14:15:28

纳尼，什么都没有！

晓零辛纳 发表于 2013-8-3 01:02:26

楼主是刚入5800吗......
这个系列的计算器已经过时了......

_14522 发表于 2013-8-3 09:08:31

中国好程序 发表于 2013-8-3 01:02 static/image/common/back.gif
楼主是刚入5800吗......
这个系列的计算器已经过时了......

5800早在3年前入手的

zhass33 发表于 2013-9-11 17:28:48

我觉得还好 各有各的用处
页: [1]
查看完整版本: 5800日历