[转载]罗斯文数据库中提供的一段代码
来源:互联网 发布:苹果平板办公软件 编辑:程序博客网 时间:2024/04/29 08:21
[ 此文章内容主要转于Microsoft Access 所提供的示例Northwind数据库]
Public Function PinYin(Tstr As String) As Long
Dim I As Long
I = Asc(Tstr)
If I >= Asc("啊") And I < Asc("芭") Then PinYin = 1
If I >= Asc("芭") And I < Asc("擦") Then PinYin = 2
If I >= Asc("擦") And I < Asc("搭") Then PinYin = 3
If I >= Asc("搭") And I < Asc("蛾") Then PinYin = 4
If I >= Asc("蛾") And I < Asc("发") Then PinYin = 5
If I >= Asc("发") And I < Asc("噶") Then PinYin = 6
If I >= Asc("噶") And I < Asc("哈") Then PinYin = 7
If I >= Asc("哈") And I < Asc("击") Then PinYin = 8
If I >= Asc("击") And I < Asc("喀") Then PinYin = 9
If I >= Asc("喀") And I < Asc("垃") Then PinYin = 10
If I >= Asc("垃") And I < Asc("妈") Then PinYin = 11
If I >= Asc("妈") And I < Asc("拿") Then PinYin = 12
If I >= Asc("拿") And I < Asc("哦") Then PinYin = 13
If I >= Asc("哦") And I < Asc("啪") Then PinYin = 14
If I >= Asc("啪") And I < Asc("欺") Then PinYin = 15
If I >= Asc("欺") And I < Asc("然") Then PinYin = 16
If I >= Asc("然") And I < Asc("撒") Then PinYin = 17
If I >= Asc("撒") And I < Asc("塌") Then PinYin = 18
If I >= Asc("塌") And I < Asc("挖") Then PinYin = 19
If I >= Asc("挖") And I < Asc("昔") Then PinYin = 20
If I >= Asc("昔") And I < Asc("压") Then PinYin = 21
If I >= Asc("压") And I < Asc("匝") Then PinYin = 22
If I >= Asc("匝") And I <= Asc("座") Then PinYin = 23
End Function
- [转载]罗斯文数据库中提供的一段代码
- 一段导出数据库的代码
- 往access数据库中写入数据的一段代码
- asp连接access数据库的一段代码
- 一段绕过JDBC的数据库交互代码
- 附上一段操作数据库的代码片
- 分享一段ios中使用数据库的代码(创建,升级,增删改查)
- 一段python从mysql数据库中取数据并且求平均值的代码
- 【转载】一段有趣的Javascript代码及分析
- msdn中一段打印的代码
- strus中上传文件的一段代码
- strstr中一段精巧的代码
- log4j 中 很搞笑的一段代码
- Qt中计算一段代码的执行时间
- 转载的一段话
- 一段换汤不换药的代码-Excel和数据库中数据匹配并根据条件刷新数据相关数据的代码
- 刚写的数据库分页的一段代码
- .NET 把数据库数据放入数组的一段代码
- 对session的一些介绍(下)
- 最近有点迷茫
- MVC的含义
- do{}while(FALSE)知多少
- 链表就地倒转
- [转载]罗斯文数据库中提供的一段代码
- The lonely hug shirt
- Simple Description for C Language
- 汇编语言概述
- PHP和MVC的结合思想
- Google搜索指令大全
- 如何开始研究内核技术
- 浅析BSD起源、差异、系统架构
- 精妙的SQL语句