取省份、出生年月、籍贯

qsedu

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

2021-5-20 18:16 上传

点击文件名下载附件

  

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

变量名	类 型	静态	数组	备 注
部_临时文本	文本型
部_文本字符组	文本型		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 /> 返回 (部_临时文本)

ghost12

此处应该有鼓励~

ghost12

共同努力，共同进步

znwg

每隔几年变化一下，这个有点难

菜鸟free

谢谢分享

heyuan1979

我都不会用

anbwscx

好好学习!

zhanlangljg

非常感谢，过来学习一下

苏可欣i

88888888888888888

灵海雪缘

88888888888888888