易语言时间问题

冰易

如何取某年总天数
并且列出该年所有日期 如 2023年01-01   01-02...........0-31    02-01......02-29(28)


以此类推

coolyanc

  

子程序名	返回值类型	公开	备 注
取年所有日期	文本型
参数名	类 型	参考	可空	数组	备 注
年份	整数型

变量名	类 型	静态	数组	备 注
月	整数型
月文本	文本型
日	整数型
年文本	文本型
日文本	文本型
总文本	文本型

年文本 ＝ 到文本 (年份)
计次循环首 (12, 月)
如果 (月 ＜ 10)
月文本 ＝ “0” ＋ 到文本 (月)
月文本 ＝ 到文本 (月)

计次循环首 (31, 日)
如果 (日 ＜ 10)
日文本 ＝ “0” ＋ 到文本 (日)
日文本 ＝ 到文本 (日)

如果真 (日 ＞ 28 且 月 ＝ 2)
如果真 (年份 ％ 4 ＞ 0)
跳出循环 ()
总文本 ＝ 总文本 ＋ “ ” ＋ 年文本 ＋ “年” ＋ 月文本 ＋ “-” ＋ 日文本
跳出循环 ()

如果真 (日 ＞ 30)
判断 (月 ＜ 8 且 月 ％ 2 ＝ 0)
跳出循环 ()
判断 (月 ＞ 7 且 月 ％ 2 ＝ 1)
跳出循环 ()



总文本 ＝ 总文本 ＋ “ ” ＋ 年文本 ＋ “年” ＋ 月文本 ＋ “-” ＋ 日文本
计次循环尾 ()
计次循环尾 ()
返回 (总文本)

.版本 2<br /> <br /> .子程序 取年所有日期, 文本型<br /> .参数 年份, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 月文本, 文本型<br /> .局部变量 日, 整数型<br /> .局部变量 年文本, 文本型<br /> .局部变量 日文本, 文本型<br /> .局部变量 总文本, 文本型<br /> <br /> 年文本 ＝ 到文本 (年份)<br /> <br /> .计次循环首 (12, 月)<br />     .如果 (月 ＜ 10)<br />         月文本 ＝ “0” ＋ 到文本 (月)<br />     .否则<br />         月文本 ＝ 到文本 (月)<br />     .如果结束<br /> <br />     .计次循环首 (31, 日)<br />         .如果 (日 ＜ 10)<br />             日文本 ＝ “0” ＋ 到文本 (日)<br />         .否则<br />             日文本 ＝ 到文本 (日)<br />         .如果结束<br /> <br />         .如果真 (日 ＞ 28 且 月 ＝ 2)<br />             .如果真 (年份 ％ 4 ＞ 0)<br />                 跳出循环 ()<br />             .如果真结束<br />             总文本 ＝ 总文本 ＋ “ ” ＋ 年文本 ＋ “年” ＋ 月文本 ＋ “-” ＋ 日文本<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         .如果真 (日 ＞ 30)<br />             .判断开始 (月 ＜ 8 且 月 ％ 2 ＝ 0)<br />                 跳出循环 ()<br />             .判断 (月 ＞ 7 且 月 ％ 2 ＝ 1)<br />                 跳出循环 ()<br />             .默认<br /> <br />             .判断结束<br /> <br />         .如果真结束<br />         总文本 ＝ 总文本 ＋ “ ” ＋ 年文本 ＋ “年” ＋ 月文本 ＋ “-” ＋ 日文本<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (总文本)

鹏书

瑞年366填 平年365天

乐鱼驴

要么自己预设， 要么读取别人的预设

冰易

乐鱼驴 发表于 2023-5-13 18:24
要么自己预设， 要么读取别人的预设

.版本 2
.支持库 spec

.计次循环首 (12, i)

    日 ＝ 时间_取月总天数 (1998, i)
    调试输出 (i, 日)

    .计次循环首 (日, i1)

        调试输出 (“1998”, i, i1)

    .计次循环尾 ()

.计次循环尾 ()

冰易

鹏书 发表于 2023-5-13 18:17
瑞年366填 平年365天

.版本 2
.支持库 spec

.计次循环首 (12, i)

    日 ＝ 时间_取月总天数 (1998, i)
    调试输出 (i, 日)

    .计次循环首 (日, i1)

        调试输出 (“1998”, i, i1)

    .计次循环尾 ()

.计次循环尾 ()

鹏书

冰易 发表于 2023-5-13 18:36
.版本 2
.支持库 spec

搞这么麻烦？ 年除了2月一个有29天 其他都一样 你直接判断平年 瑞年 然后把年份替换一下就好了啊

冰易

coolyanc 发表于 2023-5-13 18:40

  

子程序名	返回值类型	公开	备 注
取年所有日期	文本型

[/quote]
[e=0].版本 2
a ＝ 2
c ＝ “00”
年 ＝ 1998
计次循环首 (12, i)
总天数 ＝ 时间_取月总天数 (年, i)
调试输出 (i, 总天数)
计次循环首 (总天数, i1)
b ＝ a － 取文本长度 (到文本 (i))
月 ＝ 取文本左边 (c, b) ＋ 到文本 (i)
b ＝ a － 取文本长度 (到文本 (i1))
日 ＝ 取文本左边 (c, b) ＋ 到文本 (i1)
调试输出 (年, 月, 日)
计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> .子程序 取年所有日期, 文本型</blockquote></div><br /> [e=0].版本 2<br /> .支持库 spec<br /> <br /> a ＝ 2<br /> c ＝ “00”<br /> 年 ＝ 1998<br /> .计次循环首 (12, i)<br /> <br />     总天数 ＝ 时间_取月总天数 (年, i)<br />     调试输出 (i, 总天数)<br /> <br />     .计次循环首 (总天数, i1)<br /> <br />         b ＝ a － 取文本长度 (到文本 (i))<br />         月 ＝ 取文本左边 (c, b) ＋ 到文本 (i)<br />         b ＝ a － 取文本长度 (到文本 (i1))<br />         日 ＝ 取文本左边 (c, b) ＋ 到文本 (i1)<br /> <br /> <br />         调试输出 (年, 月, 日)<br /> <br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()

这个不是更简洁吗  你运行试试