取省份、出生年月、籍贯

china599

感谢分享，很给力！~

天鬼1

66666666666666666666

xtavoxing

支持一五下下下..

外星星人

看看，支持一下

lgbc

支持一下

snak2020

谢谢分享，学习

wjswzj0

谢谢分享来看看

qsedu

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

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

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. 返回 (部_临时文本)
    

复制代码

不苦小和尚

还能取籍贯吗