取省份、出生年月、籍贯

qsedu

今天需要一个能将出生日期进行转换的方法，例如出生时日20191203转换后为“二〇一九 十二 三”，2021年12月26日  为“二〇二一 十二  二十六”，根据身份证号码再次提取省份与籍贯信息。草草写了一下，感觉效率不是很高，大家提提修改意见，谢谢。
取省份、出生年月、籍贯.e (947.6 KB, 下载次数: 28)

2021-5-20 18:16 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

子程序名	返回值类型	公开	备 注
月日变换	文本型
参数名	类 型	参考	可空	数组	备 注
参数	文本型

变量名	类 型	静态	数组	备 注
部_临时文本	文本型
部_文本字符组	文本型		0
部_循环计次	整数型

部_临时文本 ＝ 参数
部_文本字符组 ＝ { “一”, “二”, “三”, “四”, “五”, “六”, “七”, “八”, “九” }
判断 (到数值 (部_临时文本) ＝ 10)
部_临时文本 ＝ “十”
调试输出 (部_临时文本)
判断 (到数值 (部_临时文本) ＜ 10)
部_临时文本 ＝ 部_文本字符组 [到数值 (部_临时文本) ％ 10]
判断 (到数值 (部_临时文本) ＞ 10 且 到数值 (部_临时文本) ＜ 20)
部_临时文本 ＝ “十” ＋ 部_文本字符组 [到数值 (部_临时文本) ％ 10]
判断 (到数值 (部_临时文本) ＝ 20)
部_临时文本 ＝ “二十”
判断 (到数值 (部_临时文本) ＞ 20 且 到数值 (部_临时文本) ＜ 30)
部_临时文本 ＝ “二十” ＋ 部_文本字符组 [到数值 (部_临时文本) ％ 10]
判断 (到数值 (部_临时文本) ＝ 30)
部_临时文本 ＝ “三十”
判断 (到数值 (部_临时文本) ＞ 30)
部_临时文本 ＝ “三十” ＋ 部_文本字符组 [到数值 (部_临时文本) ％ 10]


返回 (部_临时文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 月日变换, 文本型<br /> .参数 参数, 文本型<br /> .局部变量 部_临时文本, 文本型<br /> .局部变量 部_文本字符组, 文本型, , "0"<br /> .局部变量 部_循环计次, 整数型<br /> <br /> 部_临时文本 ＝ 参数<br /> 部_文本字符组 ＝ { “一”, “二”, “三”, “四”, “五”, “六”, “七”, “八”, “九” }<br /> .判断开始 (到数值 (部_临时文本) ＝ 10)<br />     部_临时文本 ＝ “十”<br />     调试输出 (部_临时文本)<br /> .判断 (到数值 (部_临时文本) ＜ 10)<br />     部_临时文本 ＝ 部_文本字符组 [到数值 (部_临时文本) ％ 10]<br /> .判断 (到数值 (部_临时文本) ＞ 10 且 到数值 (部_临时文本) ＜ 20)<br />     部_临时文本 ＝ “十” ＋ 部_文本字符组 [到数值 (部_临时文本) ％ 10]<br /> .判断 (到数值 (部_临时文本) ＝ 20)<br />     部_临时文本 ＝ “二十”<br /> .判断 (到数值 (部_临时文本) ＞ 20 且 到数值 (部_临时文本) ＜ 30)<br />     部_临时文本 ＝ “二十” ＋ 部_文本字符组 [到数值 (部_临时文本) ％ 10]<br /> .判断 (到数值 (部_临时文本) ＝ 30)<br />     部_临时文本 ＝ “三十”<br /> .判断 (到数值 (部_临时文本) ＞ 30)<br />     部_临时文本 ＝ “三十” ＋ 部_文本字符组 [到数值 (部_临时文本) ％ 10]<br /> .默认<br /> <br /> .判断结束<br /> 返回 (部_临时文本)

喵帕斯和艾希

dfdn

很好学习学习

singlecolor

谢谢分享来看看

sjtkxy

取省份、出生年月、籍贯

不苦小和尚

还能取籍贯吗

qsedu

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 月日变换, 文本型
   
5. .参数 参数, 文本型
   
6. .局部变量 部_临时文本, 文本型
   
7. .局部变量 部_文本字符组, 文本型, , "0"
   
8. .局部变量 部_循环计次, 整数型
   
9. .局部变量 部_文本字符组2, 文本型, , "0"
   
10. 
    
11. 部_临时文本 ＝ 参数
    
12. 部_文本字符组 ＝ { “一”, “二”, “三”, “四”, “五”, “六”, “七”, “八”, “九” }
    
13. 部_文本字符组2 ＝ { “十”, “二十”, “三十” }
    
14. .判断开始 (到数值 (部_临时文本) ＜ 10)
    
15.     部_临时文本 ＝ 部_文本字符组 [到数值 (部_临时文本) ％ 10]
    
16. .默认
    
17.     部_临时文本 ＝ 部_文本字符组2 [取整 (到数值 (部_临时文本) ÷ 10)] ＋ 部_文本字符组 [到数值 (部_临时文本) ％ 10]
    
18. .判断结束
    
19. 
    
20. 返回 (部_临时文本)
    

复制代码

qsedu

不苦小和尚 发表于 2021-5-21 07:30
还能取籍贯吗

取籍贯的方法是更具***号码前六位操作的，这种方法不是很准确的，但是别无他法呀

wjswzj0

谢谢分享来看看

snak2020

谢谢分享，学习