求助日期转换问题

zhaoxinli2715

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 __启动窗口_创建完毕
   
5. 
   
6. 调试输出 (日期_日期转立林 (“2020年12月5日”))
   
7. 调试输出 (日期_立林转日期 (“145C”))
   
8. 
   
9. 
   
10. 调试输出 (日期_日期转立林 (“2020年12月15日”))
    
11. 调试输出 (日期_日期转立林 (“2020年12月16日”))
    
12. ' 15FC  20211215
    
13. 
    
14. ' 正常年用十六进制转十就可以 但是日期必须15日之内  超过15日如16就变成 95  然后，日期就开始十六进制转换了  0123456789ABCDEF 正好是一个月  这代码如何补充啊
    
15. 
    
16. ' 950C  20211216
    
17. ' 951C  20211217
    
18. ' 952C  20211218
    
19. ' 953C  20211219
    
20. 
    
21. 
    
22. .子程序 日期_立林转日期, 文本型, 公开
    
23. .参数 立林, 文本型, , 日和月互调
    
24. .局部变量 年, 文本型
    
25. .局部变量 月, 文本型
    
26. .局部变量 日, 文本型
    
27. .局部变量 局_返回, 文本型
    
28. 
    
29. .判断开始 (立林 ≠ “”)
    
30.     年 ＝ 到文本 (进制_十六到十 (取文本左边 (立林, 2))) ＋ “年”
    
31.     日 ＝ 到文本 (进制_十六到十 (取文本中间 (立林, 3, 1))) ＋ “月”
    
32.     月 ＝ 到文本 (进制_十六到十 (取文本右边 (立林, 1))) ＋ “日”
    
33. 
    
34.     局_返回 ＝ “20” ＋ 年 ＋ 月 ＋ 日
    
35. .默认
    
36.     局_返回 ＝ “”
    
37. .判断结束
    
38. 返回 (局_返回)
    
39. 
    
40. 
    
41. .子程序 日期_日期转立林, 文本型, 公开
    
42. .参数 日期, 文本型
    
43. .局部变量 年, 文本型
    
44. .局部变量 月, 文本型
    
45. .局部变量 日, 文本型
    
46. .局部变量 局_返回, 文本型
    
47. 
    
48. .判断开始 (日期 ≠ “”)
    
49.     .判断开始 (取文本左边 (文本_取左边 (日期, “年”, , ), 2) ＝ “20”)
    
50.         月 ＝ 到文本 (进制_十到十六 (到长整数 (文本_取出中间文本 (日期, “年”, “月”, , )), ))
    
51.         日 ＝ 到文本 (进制_十到十六 (到长整数 (文本_取出中间文本 (日期, “月”, “日”, , )), ))
    
52.         年 ＝ 到文本 (进制_十到十六 (到长整数 (取文本右边 (文本_取左边 (日期, “年”, , ), 2)), ))
    
53.         调试输出 (年, 月, 日)
    
54.         局_返回 ＝ 年 ＋ 日 ＋ 月
    
55.     .默认
    
56.         信息框 (“超过2099年，输入错误！！”, 0, , )
    
57.     .判断结束
    
58. 
    
59. .默认
    
60.     局_返回 ＝ “”
    
61. .判断结束
    
62. 返回 (局_返回)
    

复制代码

正常年用十六进制转十就可以 但是日期必须15日之内

超过15日如16就变成 95 然后，


日期就开始十六进制转换了 0123456789ABCDEF 正好是一个月


这代码如何补充啊

铁血勇士

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

调试输出 (日期_日期转立林 (“2020年12月5日”))
调试输出 (日期_立林转日期 (“145C”))


调试输出 (日期_日期转立林 (“2020年12月15日”))
调试输出 (日期_日期转立林 (“2020年12月16日”))
' 15FC  20211215

' 正常年用十六进制转十就可以 但是日期必须15日之内  超过15日如16就变成 95  然后，日期就开始十六进制转换了  0123456789ABCDEF 正好是一个月  这代码如何补充啊

' 950C  20211216
' 951C  20211217
' 952C  20211218
' 953C  20211219

.子程序 日期_立林转日期, 文本型, 公开
.参数 立林, 文本型, , 日和月互调
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型
.局部变量 局_返回, 文本型

.判断开始 (立林 ≠ “”)
    年 ＝ 到文本 (进制_十六到十 (取文本左边 (立林, 2))) ＋ “年”

    日 ＝ 到文本 (进制_十六到十 (取文本中间 (立林, 3, 1))) ＋ “月”
    月 ＝ 到文本 (进制_十六到十 (取文本右边 (立林, 1))) ＋ “日”

    局_返回 ＝ “20” ＋ 年 ＋ 月 ＋ 日
.默认
    局_返回 ＝ “”
.判断结束
返回 (局_返回)

.子程序 文本_取左边, 文本型, 公开, 从文本的左边按 欲寻找的文本 开始寻找
.参数 被查找的文本, 文本型, , 被查找的文本
.参数 欲寻找的文本, 文本型, , 欲寻找的文本
.参数 起始寻找位置, 整数型, 可空, 欲寻找的文本的起始寻找位置
.参数 是否区分大小写, 逻辑型, 可空, 默认为假区分大小写
.局部变量 找到的位置, 整数型
.局部变量 结果文本, 文本型

.如果真 (起始寻找位置 ≤ 0)
    起始寻找位置 ＝ 1
.如果真结束
找到的位置 ＝ 寻找文本 (被查找的文本, 欲寻找的文本, 起始寻找位置, 是否区分大小写)
.如果真 (找到的位置 ＝ -1)
    返回 (“”)
.如果真结束
结果文本 ＝ 取文本左边 (被查找的文本, 找到的位置 － 1)
返回 (结果文本)

.子程序 进制_十六到十, 长整数型, 公开, 将16进制文件转换到10进制数值(返回十进制数)
.参数 文本, 文本型
.局部变量 i, 整数型
.局部变量 t, 文本型
.局部变量 结果, 长整数型
.局部变量 局_文本, 文本型

t ＝ “0123456789ABCDEF”
局_文本 ＝ 到大写 (文本)
.计次循环首 (取文本长度 (文本), i)
    结果 ＝ 结果 × 16 ＋ 寻找文本 (t, 取文本中间 (局_文本, i, 1), , 假) － 1
.计次循环尾 ()
返回 (结果)

.子程序 日期_日期转立林, 文本型, 公开
.参数 日期, 文本型
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型
.局部变量 局_返回, 文本型

.判断开始 (日期 ≠ “”)
    .判断开始 (取文本右边 (文本_取左边 (日期, “年”, , ), 2) ＝ “20”)
        月 ＝ 到文本 (进制_十到十六 (到整数 (文本_取出中间文本 (日期, “年”, “月”, , ))))
        日 ＝ 到文本 (进制_十到十六 (到整数 (文本_取出中间文本 (日期, “月”, “日”, , ))))
        年 ＝ 到文本 (进制_十到十六 (到整数 (取文本右边 (文本_取左边 (日期, “年”, , ), 2))))
        调试输出 (年, 月, 日)
        局_返回 ＝ 年 ＋ 日 ＋ 月
    .默认
        信息框 (“超过2099年，输入错误！！”, 0, , )
    .判断结束

.默认
    局_返回 ＝ “”
.判断结束
返回 (局_返回)

.子程序 进制_十到十六, 文本型, 公开, 进制_十到十六
.参数 十进制数, 长整数型
.局部变量 余数数组, 文本型, , "16"
.局部变量 tempint, 长整数型
.局部变量 str, 文本型
.局部变量 余, 整数型

余数数组 ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }
tempint ＝ 十进制数
.判断循环首 (tempint ≥ 0)  ' 除16取余，结果倒序
    余 ＝ tempint ％ 16
    str ＝ 余数数组 [余 ＋ 1] ＋ str
    tempint ＝ (tempint － 余) ÷ 16  ' zc()
    .如果真 (tempint ≤ 0)  ' 如果为0，则跳出循环。
        跳出循环 ()
    .如果真结束

.判断循环尾 ()
返回 (str)

.子程序 文本_取出中间文本, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”。
.参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345
.参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 起始搜寻位置, 整数型, 可空, 可空。1为首位置，2为第2个位置，如此类推，如果被省略，则“寻找字节集”命令默认从首部开始，“倒找字节集”命令默认从尾部开始。
.参数 是否区分大小写, 逻辑型, 可空, 可空。初始值为“假”。假 = 不区分    真 = 区分大小写。
.局部变量 局_位置, 整数型
.局部变量 局_位置1, 整数型
.局部变量 局_前面文本, 文本型
.局部变量 局_后面文本, 文本型

局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
是否区分大小写 ＝ 取反 (是否区分大小写)
局_位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 ≠ -1)
    局_位置 ＝ 局_位置 ＋ 取文本长度 (局_前面文本)
.如果真结束
局_位置1 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_位置, 是否区分大小写)
.如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1)
    返回 (“”)
.如果真结束
返回 (取文本中间 (欲取全文本, 局_位置, 局_位置1 － 局_位置))


你的代码运行不起来  有几个地方卡住了     进制_十到十六 (到长整数 (取文本右边 (文本_取左边 (日期, “年”, , ), 2)), ))  最后的 “，” 是多的  我对着你的代码改了一下  现在可以运行了  但不知道你想实现什么   你的代码运行不起来的话  可以复制我修改以后的代码试试   月份  只有 2个数字  不需要用  到长整数（） 用到整数 就可以了