精易论坛

标题: 取省份、出生年月、籍贯 [打印本页]

作者: qsedu    时间: 2021-5-20 18:17
标题: 取省份、出生年月、籍贯
今天需要一个能将出生日期进行转换的方法,例如出生时日20191203转换后为“二〇一九 十二 三”,2021年12月26日  为“二〇二一 十二  二十六”,根据身份证号码再次提取省份与籍贯信息。草草写了一下,感觉效率不是很高,大家提提修改意见,谢谢。
取省份、出生年月、籍贯.e (947.6 KB, 下载次数: 28)
  
子程序名返回值类型公开备 注
月日变换文本型 
参数名类 型参考可空数组备 注
参数文本型
变量名类 型静态数组备 注
部_临时文本文本型 
部_文本字符组文本型0
部_循环计次整数型 
部_临时文本 = 参数
部_文本字符组 = { “一”, “二”, “三”, “四”, “五”, “六”, “七”, “八”, “九” }
判断 (到数值 (部_临时文本) = 10)
部_临时文本 = “十”
调试输出 (部_临时文本)
判断 (到数值 (部_临时文本) < 10)
部_临时文本 = 部_文本字符组 [到数值 (部_临时文本) % 10]
判断 (到数值 (部_临时文本) > 10 到数值 (部_临时文本) < 20)
部_临时文本 = “十” + 部_文本字符组 [到数值 (部_临时文本) % 10]
判断 (到数值 (部_临时文本) = 20)
部_临时文本 = “二十”
判断 (到数值 (部_临时文本) > 20 到数值 (部_临时文本) < 30)
部_临时文本 = “二十” + 部_文本字符组 [到数值 (部_临时文本) % 10]
判断 (到数值 (部_临时文本) = 30)
部_临时文本 = “三十”
判断 (到数值 (部_临时文本) > 30)
部_临时文本 = “三十” + 部_文本字符组 [到数值 (部_临时文本) % 10]


返回 (部_临时文本)


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



作者: 喵帕斯和艾希    时间: 2021-5-20 20:56

作者: dfdn    时间: 2021-5-20 22:30
很好学习学习
作者: singlecolor    时间: 2021-5-21 01:18
谢谢分享来看看
作者: sjtkxy    时间: 2021-5-21 04:46
取省份、出生年月、籍贯
作者: 不苦小和尚    时间: 2021-5-21 07:30
还能取籍贯吗
作者: qsedu    时间: 2021-5-21 08:17
  1. .版本 2
  2. .支持库 spec

  3. .子程序 月日变换, 文本型
  4. .参数 参数, 文本型
  5. .局部变量 部_临时文本, 文本型
  6. .局部变量 部_文本字符组, 文本型, , "0"
  7. .局部变量 部_循环计次, 整数型
  8. .局部变量 部_文本字符组2, 文本型, , "0"

  9. 部_临时文本 = 参数
  10. 部_文本字符组 = { “一”, “二”, “三”, “四”, “五”, “六”, “七”, “八”, “九” }
  11. 部_文本字符组2 = { “十”, “二十”, “三十” }
  12. .判断开始 (到数值 (部_临时文本) < 10)
  13.     部_临时文本 = 部_文本字符组 [到数值 (部_临时文本) % 10]
  14. .默认
  15.     部_临时文本 = 部_文本字符组2 [取整 (到数值 (部_临时文本) ÷ 10)] + 部_文本字符组 [到数值 (部_临时文本) % 10]
  16. .判断结束

  17. 返回 (部_临时文本)
复制代码

作者: qsedu    时间: 2021-5-21 08:19
不苦小和尚 发表于 2021-5-21 07:30
还能取籍贯吗

取籍贯的方法是更具***号码前六位操作的,这种方法不是很准确的,但是别无他法呀
作者: wjswzj0    时间: 2021-5-21 09:02
谢谢分享来看看

作者: snak2020    时间: 2021-5-21 09:24
谢谢分享,学习
作者: lgbc    时间: 2021-5-21 09:53
支持一下
作者: 外星星人    时间: 2021-5-21 11:08
看看,支持一下
作者: xtavoxing    时间: 2021-5-21 12:40
支持一五下下下..
作者: 天鬼1    时间: 2021-5-21 18:46
66666666666666666666
作者: china599    时间: 2021-5-21 20:43
感谢分享,很给力!~
作者: 灵海雪缘    时间: 2021-5-22 12:59
88888888888888888
作者: 苏可欣i    时间: 2021-5-24 12:12
88888888888888888
作者: zhanlangljg    时间: 2021-5-24 16:25
非常感谢,过来学习一下
作者: anbwscx    时间: 2021-5-26 14:07
好好学习!
作者: heyuan1979    时间: 2021-5-28 11:49
我都不会用
作者: 菜鸟free    时间: 2021-5-31 15:50
谢谢分享
作者: znwg    时间: 2021-6-2 20:45
每隔几年变化一下,这个有点难
作者: ghost12    时间: 2022-2-1 15:00
共同努力,共同进步
作者: ghost12    时间: 2022-4-9 13:01
此处应该有鼓励~




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4