modpy.bas

对用vb做ic卡考勤系统的朋友有帮助

Attribute VB_Name = "modGetPy"
Option Explicit

Public Function GetPy1(hzChar As String) As String
    Dim tmpLng As Long
    Dim RetValue As String
    tmpLng = Asc(hzChar) ') * 2 ^ 8 + AscB(RightB(hzChar, 1))
    Select Case tmpLng
        Case &HB0A1 To &HB0C4
            RetValue = "a"
        Case &HB0C5 To &HB2C0
            RetValue = "b"
        Case &HB2C1 To &HB4ED
            RetValue = "c"
        Case &HB4EE To &HB6E9
            RetValue = "d"
        Case &HB6EA To &HB7A1
            RetValue = "e"
        Case &HB7A2 To &HB8C0
            RetValue = "f"
        Case &HB8C1 To &HB9FD
            RetValue = "g"
        Case &HB9FE To &HBBF6
            RetValue = "h"
        Case &HBBF7 To &HBFA5
            RetValue = "j"
        Case &HBFA6 To &HC0AB
            RetValue = "k"
        Case &HC0AC To &HC2E7
            RetValue = "l"
        Case &HC2E8 To &HC4C2
            RetValue = "m"
        Case &HC4C3 To &HC5B5
            RetValue = "n"
        Case &HC5B6 To &HC5BD
            RetValue = "o"
        Case &HC5BE To &HC6D9
            RetValue = "p"
        Case &HC6DA To &HC8BA
            RetValue = "q"
        Case &HC8BB To &HC8F5
            RetValue = "r"
        Case &HC8F6 To &HCBF9
            RetValue = "s"
        Case &HCBFA To &HCDD9
            RetValue = "t"
        Case &HCDDA To &HCEF3
            RetValue = "w"
        Case &HCEF4 To &HD1B8
            RetValue = "x"
        Case &HD1B9 To &HD4D0
            RetValue = "y"
        Case &HD4D1 To &HD7F9
            RetValue = "z"
        Case Else
            RetValue = Empty
    End Select
    GetPy1 = RetValue
End Function

Public Function GetPy2(tmpStr As String) As String
    Dim CString As String
    Dim HZ As String
    Dim Py As String
    Dim Py1 As String
    Dim Hstr(23) As String
    Dim Zm(23) As String
    Hstr(0) = Empty
    Zm(0) = Empty
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim RetValue As String
    
    Zm(1) = "a"
    Zm(2) = "b"
    Zm(3) = "c"
    Zm(4) = "d"
    Zm(5) = "e"
    Zm(6) = "f"
    Zm(7) = "g"
    Zm(8) = "h"
    Zm(9) = "j"
    Zm(10) = "k"
    Zm(11) = "l"
    Zm(12) = "m"
    Zm(13) = "n"
    Zm(14) = "o"
    Zm(15) = "p"
    Zm(16) = "q"
    Zm(17) = "r"
    Zm(18) = "s"
    Zm(19) = "t"
    Zm(20) = "w"
    Zm(21) = "x"
    Zm(22) = "y"
    Zm(23) = "z"
    
    CString = "0123456789abcdefghijklmnopqrstuvwxyz"
    CString = CString & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    CString = CString & "!.#$%()*+-,/[\|^~`@{}_"
    
    Hstr(1) = "锕 捱 嗳 嗌 嫒 瑷 暧 砹 锿 霭 谙 埯 揞 犴 庵 桉 铵 鹌 黯 "
    Hstr(1) = Hstr(1) & "嚣 坳 拗 嗷 岙 廒 遨 媪 骜 獒 聱 螯 鏊 鳌 鏖 "

    Hstr(2) = "茇 菝 岜 灞 钯 粑 鲅 魃 捭 掰 阪 坂 钣 瘢 癍 舨 蒡 浜 曝 "
    Hstr(2) = Hstr(2) & "葆 孢 煲 鸨 褓 趵 龅 孛 陂 邶 埤 萆 蓓 呗 悖 碚 鹎 褙 鐾 鞴 夯 "
    Hstr(2) = Hstr(2) & "畚 坌 贲 锛 嘣 甏 匕 俾 埤 芘 荜 荸 萆 薜 吡 哔 狴 庳 愎 滗 濞 "
    Hstr(2) = Hstr(2) & "弼 妣 婢 嬖 璧 贲 睥 畀 铋 秕 裨 筚 箅 篦 舭 襞 跸 髀 匾 弁 苄 "
    Hstr(2) = Hstr(2) & "忭 汴 缏 飚 煸 砭 碥 窆 褊 蝙 笾 鳊 婊 骠 杓 飑 飙 镖 镳 瘭 裱 "
    Hstr(2) = Hstr(2) & "鳔 髟 蹩 傧 豳 缤 玢 槟 殡 膑 镔 髌 鬓 禀 邴 摒 槟 柏 卜 孛 亳 "
    Hstr(2) = Hstr(2) & "啵 饽 檗 掰 擘 礴 钹 鹁 簸 趵 跛 踣 卟 逋 瓿 晡 钚 钸 醭 "
    
    Hstr(3) = "嚓 礤 孱 骖 璨 粲 黪 嘈 漕 螬 艚 恻 岑 涔 刹 喳 嚓 猹 馇 汊 姹 杈 楂 "
    Hstr(3) = Hstr(3) & "槎 檫 锸 镲 衩 侪 钗 瘥 虿 冁 谄 蒇 廛 忏 潺 澶 孱 羼 婵 骣 觇 "
    Hstr(3) = Hstr(3) & "禅 镡 蟾 躔 倘 伥 鬯 苌 菖 徜 怅 惝 阊 娼 嫦 昶 氅 鲳 绰 剿 怊 "
    Hstr(3) = Hstr(3) & "晁 焯 耖 坼 砗 郴 伧 谌 谶 抻 嗔 宸 琛 榇 碜 龀 骋 秤 丞 埕 噌 "
    Hstr(3) = Hstr(3) & "枨 柽 塍 瞠 铖 铛 裎 蛏 酲 傺 坻 墀 茌 叱 哧 啻 嗤 饬 媸 敕 眵 "
    Hstr(3) = Hstr(3) & "鸱 瘛 褫 蚩 螭 笞 篪 豉 踟 魑 茺 忡 憧 铳 舂 艟 俦 帱 惆 瘳 雠 "
    Hstr(3) = Hstr(3) & "畜 亍 刍 怵 憷 绌 杵 楮 樗 褚 蜍 蹰 黜 搋 膪 踹 啜 嘬 舛 遄 巛 "
    Hstr(3) = Hstr(3) & "氚 钏 舡 怆 陲 棰 槌 茈 呲 祠 鹚 糍 楱 辏 腠 蔟 徂 猝 殂 酢 蹙 "
    Hstr(3) = Hstr(3) & "蹴 攒 汆 撺 爨 镩 萃 啐 悴 璀 榱 毳 隹 忖 皴 厝 嵯 脞 锉 矬 痤 "
    Hstr(3) = Hstr(3) & "瘥 鹾 蹉 "
    
    Hstr(4) = "耷 哒 嗒 怛 妲 沓 疸 褡 笪 靼 鞑 埭 甙 呔 岱 迨 骀 绐 玳 黛 "
    Hstr(4) = Hstr(4) & "诞 儋 萏 啖 澹 殚 赕 眈 疸 瘅 聃 箪 谠 凼 菪 宕 砀 裆 叨 帱 忉 "
    Hstr(4) = Hstr(4) & "氘 焘 纛 锝 噔 嶝 戥 磴 镫 簦 氐 籴 诋 谛 邸 坻 荻 嘀 娣 绨 柢 "
    Hstr(4) = Hstr(4) & "棣 觌 砥 碲 睇 镝 羝 骶 嗲 阽 坫 巅 玷 钿 癜 癫 簟 踮 铞 铫 貂 "
    Hstr(4) = Hstr(4) & "鲷 垤 堞 揲 喋 牒 瓞 耋 踮 蹀 鲽 仃 啶 玎 腚 碇 町 铤 疔 耵 酊 "
    Hstr(4) = Hstr(4) & "铥 垌 咚 岽 峒 氡 胨 胴 硐 鸫 蔸 窦 蚪 篼 芏 嘟 渎 椟 牍 蠹 笃 "
    Hstr(4) = Hstr(4) & "髑 黩 椴 煅 簖 怼 憝 碓 沌 炖 砘 礅 盹 镦 趸 驮 咄 哚 沲 缍 柁 "
    Hstr(4) = Hstr(4) & "铎 裰 踱 "
    
    Hstr(5) = "噩 谔 垩 苊 莪 萼 呃 愕 屙 婀 轭 腭 锇 锷 鹗 颚 鳄 诶 蒽 摁 佴 迩 珥 铒 鸸 鲕 "
    
    Hstr(6) = "垡 砝 蕃 蘩 幡 梵 燔 畈 蹯 坊 邡 彷 枋 钫 舫 鲂 芾 狒 悱 淝 妃 绯 榧 腓 "
    Hstr(6) = Hstr(6) & "斐 扉 镄 痱 蜚 篚 翡 霏 鲱 偾 瀵 玢 棼 鲼 鼢 俸 酆 葑 唪 沣 砜 缶 "
    Hstr(6) = Hstr(6) & "匐 凫 郛 芙 芾 苻 茯 莩 菔 拊 呋 幞 怫 滏 艴 孚 驸 绂 绋 桴 赙 "
    Hstr(6) = Hstr(6) & "祓 砩 黻 黼 罘 稃 馥 蚨 蜉 蝠 蝮 麸 趺 跗 鲋 鳆 "
    
    Hstr(7) = "尬 尕 尜 旮 钆 丐 陔 垓 戤 赅 坩 苷 尴 擀 泔 淦 澉 绀 橄 旰 矸 疳 酐 "
    Hstr(7) = Hstr(7) & "戆 罡 筻 睾 诰 郜 藁 缟 槔 槁 杲 锆 咯 屹 鬲 仡 哿 圪 塥 嗝 纥 "
    Hstr(7) = Hstr(7) & "搿 膈 硌 镉 袼 颌 虼 舸 骼 亘 茛 哏 艮 哽 赓 绠 鲠 珙 肱 蚣 觥 "
    Hstr(7) = Hstr(7) & "佝 诟 岣 遘 媾 缑 枸 觏 彀 笱 篝 鞲 嘏 诂 菰 呱 崮 汩 梏 轱 牯 "
    Hstr(7) = Hstr(7) & "牿 臌 毂 瞽 罟 钴 锢 鸪 鹄 痼 蛄 酤 觚 鲴 鹘 卦 诖 呱 栝 胍 鸹 "
    Hstr(7) = Hstr(7) & "纶 倌 莞 掼 涫 盥 鹳 矜 鳏 咣 犷 桄 胱 傀 炔 匦 刿 庋 宄 妫 桧 "
    Hstr(7) = Hstr(7) & "炅 晷 皈 簋 鲑 鳜 衮 绲 磙 鲧 涡 馘 埚 掴 呙 帼 崞 猓 椁 虢 聒 蜾 蝈 "
    
    Hstr(8) = "蛤 虾 铪 嘿 咳 嗨 胲 醢 邗 菡 撖 阚 瀚 晗 焓 顸 颔 蚶 鼾 沆 绗 珩 颃 镐 "
    Hstr(8) = Hstr(8) & "貉 蒿 薅 嗥 嚆 濠 灏 昊 皓 颢 蚝 诃 劾 壑 嗬 阖 纥 曷 盍 颌 蚵 翮 "
    Hstr(8) = Hstr(8) & "蘅 珩 桁 黉 訇 讧 荭 蕻 薨 闳 泓 堠 後 逅 瘊 篌 糇 鲎 骺 冱 唿 囫 "
    Hstr(8) = Hstr(8) & "岵 猢 怙 惚 浒 滹 琥 槲 轷 觳 烀 煳 戽 扈 祜 瓠 鹄 鹕 鹱 笏 醐 斛 "
    Hstr(8) = Hstr(8) & "骅 桦 砉 铧 踝 郇 奂 萑 擐 圜 獾 洹 浣 漶 寰 逭 缳 锾 鲩 鬟 隍 徨 "
    Hstr(8) = Hstr(8) & "湟 潢 遑 璜 肓 癀 蟥 篁 鳇 茴 荟 蕙 咴 哕 喙 隳 洄 浍 彗 缋 珲 桧 "
    Hstr(8) = Hstr(8) & "晖 恚 虺 蟪 麾 诨 馄 阍 溷 劐 藿 攉 嚯 夥 钬 锪 镬 耠 蠖 "
    
    Hstr(9) = "丌 亟 乩 剞 佶 偈 诘 墼 芨 芰 荠 蒺 蕺 掎 叽 咭 哜 唧 岌 嵴 洎 屐 骥 畿 "
    Hstr(9) = Hstr(9) & "玑 楫 殛 戟 戢 赍 觊 犄 齑 矶 羁 嵇 稷 瘠 虮 笈 笄 暨 跻 跽 霁 鲚 "
    Hstr(9) = Hstr(9) & "鲫 髻 麂 嘏 伽 郏 葭 岬 浃 迦 珈 戛 胛 恝 铗 镓 痂 瘕 袷 蛱 笳 "
    Hstr(9) = Hstr(9) & "袈 跏 僭 谏 谫 菅 蒹 搛 囝 湔 蹇 謇 缣 枧 楗 戋 戬 牮 犍 毽 腱 "