modpy.bas

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

    Hstr(9) = Hstr(9) & "睑 锏 鹣 裥 笕 翦 趼 踺 鲣 鞯 吉 安 茳 洚 绛 缰 犟 礓 耩 糨 豇 "
    Hstr(9) = Hstr(9) & "僬 艽 茭 挢 噍 峤 徼 湫 姣 敫 皎 鹪 蛟 醮 跤 鲛 偈 讦 诘 拮 喈 "
    Hstr(9) = Hstr(9) & "嗟 婕 孑 桀 碣 疖 颉 蚧 羯 鲒 骱 饥 饿 卺 荩 堇 噤 馑 廑 妗 缙 "
    Hstr(9) = Hstr(9) & "瑾 槿 赆 觐 衿 刭 儆 阱 菁 獍 憬 泾 迳 弪 婧 肼 胫 腈 旌 靓 迥 "
    Hstr(9) = Hstr(9) & "炅 扃 僦 啾 阄 柩 桕 鸠 鹫 赳 鬏 倨 讵 苣 苴 莒 掬 遽 屦 琚 枸 "
    Hstr(9) = Hstr(9) & "椐 榘 榉 橘 犋 飓 钜 锔 窭 裾 趄 醵 踽 龃 雎 瞿 鞫 鄄 狷 涓 桊 "
    Hstr(9) = Hstr(9) & "蠲 锩 镌 隽 厥 劂 谲 矍 蕨 嗟 噘 噱 崛 獗 孓 珏 桷 橛 爝 镢 蹶 "
    Hstr(9) = Hstr(9) & "觖 巨 额 捃 皲 筠 麇 "
    
    Hstr(10) = "佧 咔 胩 剀 垲 蒈 忾 恺 铠 锎 锴 侃 莰 阚 戡 龛 瞰 伉 闶 钪 尻 栲 "
    Hstr(10) = Hstr(10) & "犒 铐 嗑 岢 恪 溘 骒 缂 珂 轲 氪 瞌 钶 锞 稞 疴 窠 颏 蝌 髁 "
    Hstr(10) = Hstr(10) & "裉 铿 倥 崆 箜 芤 蔻 叩 眍 筘 刳 堀 喾 绔 骷 侉 侩 蒯 郐 哙 "
    Hstr(10) = Hstr(10) & "狯 浍 脍 髋 诓 诳 邝 圹 夼 哐 纩 贶 馗 匮 夔 隗 蒉 揆 喹 喟 "
    Hstr(10) = Hstr(10) & "悝 愦 逵 暌 睽 聩 蝰 篑 跬 悃 阃 琨 锟 醌 鲲 髡 栝 蛞 "
    
    Hstr(11) = "剌 邋 旯 砬 瘌 崃 徕 涞 濑 赉 睐 铼 癞 籁 岚 漤 榄 斓 罱 镧 褴 "
    Hstr(11) = Hstr(11) & "莨 蒗 啷 阆 锒 稂 螂 潦 唠 崂 栳 铑 铹 痨 耢 醪 仂 叻 泐 鳓 "
    Hstr(11) = Hstr(11) & "羸 诔 嘞 嫘 缧 檑 耒 酹 塄 愣 鬲 俪 俚 郦 坜 苈 莅 蓠 藜 呖 "
    Hstr(11) = Hstr(11) & "唳 喱 猁 悝 溧 澧 逦 娌 嫠 骊 缡 枥 栎 轹 戾 砺 詈 罹 锂 鹂 "
    Hstr(11) = Hstr(11) & "疠 疬 蛎 蜊 蠡 笠 篥 粝 醴 跞 雳 鲡 鳢 黧 蔹 奁 潋 濂 琏 楝 "
    Hstr(11) = Hstr(11) & "殓 臁 裢 裣 蠊 鲢 立 案 墚 莨 椋 踉 靓 魉 蓼 尥 嘹 獠 寮 缭 "
    Hstr(11) = Hstr(11) & "钌 鹩 冽 埒 捩 咧 洌 趔 躐 鬣 蔺 啉 嶙 廪 懔 遴 檩 辚 膦 瞵 "
    Hstr(11) = Hstr(11) & "粼 躏 酃 苓 呤 囹 泠 绫 柃 棂 瓴 聆 蛉 翎 鲮 浏 遛 骝 绺 旒 "
    Hstr(11) = Hstr(11) & "熘 锍 镏 鹨 鎏 茏 泷 珑 栊 胧 砻 癃 偻 蒌 喽 嵝 镂 瘘 耧 蝼 "
    Hstr(11) = Hstr(11) & "髅 垆 蓼 撸 噜 闾 泸 渌 漉 逯 璐 栌 榈 橹 轳 辂 辘 氇 胪 膂 "
    Hstr(11) = Hstr(11) & "镥 稆 鸬 鹭 褛 簏 舻 鲈 挛 孪 滦 脔 娈 栾 鸾 銮 锊 囵 倮 蠃 "
    Hstr(11) = Hstr(11) & "荦 捋 摞 猡 泺 漯 珞 椤 脶 硌 镙 瘰 雒 "
    
    Hstr(12) = "唛 犸 嬷 杩 蟆 劢 荬 霾 墁 幔 缦 熳 镘 颟 螨 鳗 鞔 邙 漭 硭 蟒 "
    Hstr(12) = Hstr(12) & "袤 茆 峁 泖 瑁 昴 牦 耄 旄 懋 瞀 蟊 髦 麽 莓 嵋 猸 浼 湄 楣 "
    Hstr(12) = Hstr(12) & "镅 鹛 袂 魅 扪 焖 懑 钔 勐 甍 瞢 懵 朦 礞 虻 蜢 蠓 艋 艨 芈 "
    Hstr(12) = Hstr(12) & "谧 蘼 咪 嘧 猕 汨 宓 弭 脒 祢 敉 糸 縻 麋 沔 渑 湎 腼 眄 喵 "
    Hstr(12) = Hstr(12) & "邈 缈 缪 杪 淼 眇 鹋 乜 咩 蠛 篾 苠 岷 闵 泯 缗 玟 珉 愍 黾 "
    Hstr(12) = Hstr(12) & "鳘 冥 茗 溟 暝 瞑 酩 谟 茉 蓦 馍 嫫 殁 镆 秣 瘼 耱 貊 貘 侔 "
    Hstr(12) = Hstr(12) & "哞 缪 眸 蛑 蝥 鍪 仫 坶 苜 沐 毪 钼 "
    
    Hstr(13) = "捺 肭 镎 衲 鼐 艿 萘 柰 喃 囝 囡 楠 腩 蝻 赧 攮 囔 馕 曩 孬 垴 呶 猱 "
    Hstr(13) = Hstr(13) & "瑙 硇 铙 蛲 讷 恁 伲 坭 猊 怩 昵 旎 祢 慝 睨 铌 鲵 廿 埝 辇 "
    Hstr(13) = Hstr(13) & "黏 鲇 鲶 茑 嬲 脲 袅 乜 陧 蘖 嗫 颞 臬 蹑 佞 苎 咛 甯 聍 拗 "
    Hstr(13) = Hstr(13) & "狃 忸 妞 侬 哝 耨 弩 胬 孥 驽 恧 钕 衄 傩 搦 喏 锘 "
    
    Hstr(14) = "讴 怄 瓯 耦 "
    
    Hstr(15) = "葩 杷 钯 筢 俳 蒎 拚 爿 泮 袢 襻 蟠 蹒 彷 滂 逄 螃 匏 狍 庖 脬 疱 辔 "
    Hstr(15) = Hstr(15) & "帔 旆 锫 醅 霈 湓 堋 嘭 怦 蟛 丕 仳 陂 陴 邳 郫 圮 埤 鼙 芘 "
    Hstr(15) = Hstr(15) & "擗 吡 噼 庀 淠 媲 纰 枇 甓 睥 罴 铍 癖 裨 疋 蚍 蜱 貔 谝 骈 "
    Hstr(15) = Hstr(15) & "缏 犏 胼 翩 蹁 剽 莩 嘌 嫖 骠 缥 殍 瞟 螵 苤 氕 姘 嫔 榀 牝 "
    Hstr(15) = Hstr(15) & "颦 俜 娉 鲆 叵 陂 鄱 泺 珀 攴 钋 钷 钹 皤 笸 裒 掊 匍 噗 溥 "
    Hstr(15) = Hstr(15) & "濮 璞 氆 镤 镨 蹼 "
    
    Hstr(16) = "亟 亓 俟 圻 芑 芪 荠 萁 萋 葺 蕲 嘁 屺 岐 岖 汔 淇 骐 绮 琪 琦 杞 桤 "
    Hstr(16) = Hstr(16) & "槭 耆 欹 祺 憩 碛 颀 蛴 蜞 綦 綮 蹊 鳍 麒 葜 袷 髂 倩 佥 阡 "
    Hstr(16) = Hstr(16) & "芊 芡 茜 荨 掮 岍 悭 慊 骞 搴 褰 缱 椠 犍 肷 愆 钤 虔 箬 箝 "
    Hstr(16) = Hstr(16) & "戕 嫱 樯 戗 炝 锖 锵 镪 襁 蜣 羟 跄 劁 诮 谯 荞 峤 愀 憔 缲 "
    Hstr(16) = Hstr(16) & "樵 硗 跷 鞒 郄 惬 慊 妾 挈 锲 箧 芩 揿 吣 嗪 噙 廑 溱 檎 锓 "
    Hstr(16) = Hstr(16) & "矜 覃 螓 衾 苘 圊 檠 磬 蜻 罄 箐 綮 謦 鲭 黥 邛 茕 穹 蛩 筇 "
    Hstr(16) = Hstr(16) & "跫 銎 俅 巯 犰 湫 逑 遒 楸 赇 虬 蚯 蝤 裘 糗 鳅 鼽 诎 劬 苣 "
    Hstr(16) = Hstr(16) & "蕖 蘧 岖 衢 阒 璩 觑 氍 朐 祛 磲 鸲 癯 蛐 蠼 麴 瞿 黢 诠 荃 "
    Hstr(16) = Hstr(16) & "悛 绻 辁 畎 铨 蜷 筌 鬈 阕 阙 悫 逡 "
    
    Hstr(17) = "苒 蚺 髯 禳 穰 荛 娆 桡 仞 荏 葚 饪 轫 嵘 狨 榕 肜 蝾 糅 蹂 鞣 蓐 薷 "
    Hstr(17) = Hstr(17) & "嚅 洳 溽 濡 缛 铷 襦 颥 朊 芮 蕤 枘 睿 蚋 偌 "
    
    Hstr(18) = "卅 仨 挲 脎 飒 噻 馓 毵 糁 磉 颡 埽 缫 缲 臊 瘙 鳋 啬 铯 唼 嗄 挲 歃 "
    Hstr(18) = Hstr(18) & "铩 痧 裟 霎 鲨 剡 讪 鄯 埏 芟 潸 姗 嬗 骟 膻 禅 钐 疝 蟮 舢 "
    Hstr(18) = Hstr(18) & "跚 鳝 垧 绱 殇 熵 觞 劭 苕 潲 杓 蛸 筲 艄 慑 厍 佘 摺 猞 滠 "
    Hstr(18) = Hstr(18) & "歙 畲 麝 诜 谂 莘 葚 哂 渖 椹 胂 矧 蜃 嵊 渑 晟 眚 笙 嗜 噬 "
    Hstr(18) = Hstr(18) & "仕 侍 恃 谥 埘 莳 蓍 弑 轼 贳 炻 铈 螫 舐 筮 酾 豕 鲥 鲺 狩 "
    Hstr(18) = Hstr(18) & "绶 艏 黍 倏 塾 菽 摅 沭 澍 姝 纾 毹 腧 殳 秫 唰 蟀 闩 涮 泷 "
    Hstr(18) = Hstr(18) & "孀 蒴 搠 妁 槊 铄 嗣 伺 巳 厮 俟 兕 厶 咝 汜 泗 澌 姒 驷 缌 "
    Hstr(18) = Hstr(18) & "祀 锶 鸶 耜 蛳 笥 怂 讼 诵 凇 菘 崧 嵩 忪 悚 淞 竦 薮 嗖 嗾 "
    Hstr(18) = Hstr(18) & "馊 溲 飕 瞍 锼 螋 夙 谡 蔌 嗉 愫 涑 簌 觫 稣 蒜 狻 隋 绥 髓 "
    Hstr(18) = Hstr(18) & "遂 隧 祟 谇 荽 濉 邃 燧 眭 睢 荪 狲 飧 榫 隼 蓑 嗍 娑 桫 挲 睃 羧 "
    
    Hstr(19) = "獭 挞 蹋 拓 嗒 闼 溻 漯 遢 榻 沓 铊 趿 鳎 苔 酞 汰 邰 薹 呔 骀 肽 炱 "
    Hstr(19) = Hstr(19) & "钛 跆 鲐 檀 痰 潭 谭 毯 袒 叹 郯 澹 昙 忐 钽 锬 镡 傥 帑 溏 "
    Hstr(19) = Hstr(19) & "瑭 樘 铴 镗 耥 螗 螳 羰 醣 鼗 啕 洮 韬 焘 饕 忒 忑 慝 铽 藤 "
    Hstr(19) = Hstr(19) & "誊 滕 锑 蹄 啼 嚏 涕 剃 屉 倜 荑 悌 逖 绨 缇 鹈 裼 醍 舔 恬 "
    Hstr(19) = Hstr(19) & "腆 掭 忝 阗 殄 畋 佻 苕 祧 窕 蜩 笤 粜 龆 鲦 髫 萜 餮 烃 汀 "
    Hstr(19) = Hstr(19) & "亭 艇 莛 葶 婷 梃 町 铤 蜓 霆 侗 恫 桐 酮 瞳 彤 捅 佟 仝 垌 "
    Hstr(19) = Hstr(19) & "茼 嗵 峒 恸 潼 砼 钭 骰 堍 荼 菟 钍 酴 抟 彖 疃 蜕 忒 煺 饨 "
    Hstr(19) = Hstr(19) & "暾 豚 乇 佗 坨 庹 沱 柝 柁 橐 砣 铊 箨 酡 跎 鼍 "
    
    Hstr(20) = "佤 娲 腽 烷 皖 惋 宛 婉 腕 剜 芄 莞 菀 纨 绾 琬 脘 畹 蜿 罔 尢 惘 辋 "
    Hstr(20) = Hstr(20) & "魍 诿 隈 隗 圩 葳 薇 帏 帷 崴 嵬 猥 猬 闱 沩 洧 涠 逶 娓 玮 "
    Hstr(20) = Hstr(20) & "韪 軎 炜 煨 痿 艉 鲔 紊 刎 阌 汶 璺 雯 蓊 蕹 斡 倭 莴 喔 幄 "
    Hstr(20) = Hstr(20) & "渥 肟 硪 龌 兀 仵 阢 邬 圬 芴 唔 庑 怃 忤 浯 寤 迕 妩 婺 骛 "
    Hstr(20) = Hstr(20) & "杌 牾 焐 鹉 鹜 痦 蜈 鋈 鼯 "
    
    Hstr(21) = "僖 兮 隰 郗 茜 菥 葸 蓰 奚 唏 徙 饩 阋 浠 淅 屣 玺 樨 曦 觋 欷 歙 熹 "
    Hstr(21) = Hstr(21) & "禊 禧 皙 穸 裼 蜥 螅 蟋 舄 舾 羲 粞 翕 醯 蹊 鼷 呷 狎 遐 瑕 "
    Hstr(21) = Hstr(21) & "柙 硖 瘕 罅 黠 冼 苋 莶 藓 岘 猃 暹 娴 氙 燹 祆 鹇 痫 蚬 筅 "
    Hstr(21) = Hstr(21) & "籼 酰 跣 跹 霰 芗 葙 饷 庠 骧 缃 蟓 鲞 飨 哓 崤 潇 逍 骁 绡 "
    Hstr(21) = Hstr(21) & "枭 枵 蛸 筱 箫 魈 偕 亵 勰 燮 薤 撷 獬 廨 渫 瀣 邂 绁 缬 榭 "
    Hstr(21) = Hstr(21) & "榍 颉 躞 忻 衅 囟 馨 昕 歆 镡 鑫 陉 荇 荥 擤 饧 悻 硎 芎 咻 "
    Hstr(21) = Hstr(21) & "岫 馐 庥 溴 鸺 貅 髹 诩 勖 圩 蓿 洫 浒 溆 顼 栩 煦 砉 盱 胥 "
    Hstr(21) = Hstr(21) & "糈 醑 儇 谖 萱 揎 泫 渲 漩 璇 楦 暄 炫 煊 碹 铉 镟 痃 薛 谑 "
    Hstr(21) = Hstr(21) & "噱 泶 踅 鳕 浚 巽 郇 埙 荀 蕈 獯 恂 洵 浔 曛 窨 醺 鲟 "
    
    Hstr(22) = "垭 揠 岈 迓 娅 琊 桠 氩 砑 睚 痖 厣 赝 剡 俨 偃 兖 谳 阽 郾 鄢 芫 菸 "
    Hstr(22) = Hstr(22) & "崦 恹 闫 阏 湮 滟 妍 嫣 琰 檐 晏 胭 腌 焱 罨 筵 酽 魇 餍 鼹 "
    Hstr(22) = Hstr(22) & "疡 炀 烊 恙 蛘 舀 钥 夭 爻 吆 崾 徭 幺 珧 杳 轺 曜 肴 铫 鹞 "
    Hstr(22) = Hstr(22) & "窈 繇 鳐 噎 耶 掖 曳 腋 拽 靥 谒 邺 揶 晔 烨 铘 铱 翌 绎 刈 "
    Hstr(22) = Hstr(22) & "劓 仡 佚 佾 诒 圯 埸 懿 苡 荑 薏 弈 奕 挹 弋 呓 咦 咿 嗌 噫 "
    Hstr(22) = Hstr(22) & "峄 嶷 猗 饴 怿 怡 悒 殪 轶 贻 欹 旖 熠 眙 钇 镒 镱 痍 瘗 癔 "
    Hstr(22) = Hstr(22) & "翊 蜴 舣 羿 翳 酏 黟 胤 鄞 圻 垠 堙 茚 吲 喑 狺 夤 洇 湮 氤 "
    Hstr(22) = Hstr(22) & "铟 瘾 窨 蚓 霪 龈 嬴 郢 茔 荥 莺 萦 蓥 撄 嘤 膺 滢 潆 瀛 瑛 "
    Hstr(22) = Hstr(22) & "璎 楹 媵 鹦 瘿 颍 罂 臃 痈 雍 踊 咏 泳 恿 俑 壅 墉 喁 慵 邕 "
    Hstr(22) = Hstr(22) & "镛 甬 鳙 饔 釉 卣 攸 侑 莠 莜 莸 尢 呦 囿 宥 柚 猷 牖 铕 疣 "
    Hstr(22) = Hstr(22) & "蚰 蚴 蝣 蝤 繇 鱿 黝 鼬 禺 毓 伛 俣 谀 谕 萸 菀 蓣 揄 圄 圉 "
    Hstr(22) = Hstr(22) & "嵛 狳 饫 馀 庾 阈 鬻 妪 妤 纡 瑜 昱 觎 腴 腧 欤 於 煜 熨 燠 "
    Hstr(22) = Hstr(22) & "聿 钰 鹆 鹬 瘐 瘀 窬 窳 蜮 蝓 竽 臾 舁 雩 龉 垸 塬 芫 掾 圜 "
    Hstr(22) = Hstr(22) & "沅 媛 瑗 橼 爰 眢 鸢 螈 箢 鼋 龠 瀹 栎 樾 刖 钺 郧 陨 蕴 酝 "
    Hstr(22) = Hstr(22) & "晕 韵 郓 芸 狁 恽 愠 纭 韫 殒 昀 氲 熨 "
    
    Hstr(23) = "咂 甾 拶 瓒 昝 簪 糌 趱 錾 奘 驵 臧 唣 仄 赜 啧 帻 迮 昃 笮 箦 舴 谮 "
    Hstr(23) = Hstr(23) & "缯 甑 罾 锃 揸 吒 哳 喋 楂 砟 痄 蚱 齄 砦 瘵 谵 搌 旃 瘴 仉 "
    Hstr(23) = Hstr(23) & "鄣 幛 嶂 獐 嫜 璋 蟑 肇 诏 啁 棹 钊 笊 锗 蔗 谪 摺 柘 辄 磔 "
    Hstr(23) = Hstr(23) & "鹧 褶 蜇 赭 甄 砧 臻 贞 侦 枕 疹 圳 蓁 浈 溱 缜 桢 椹 榛 轸 "
    Hstr(23) = Hstr(23) & "赈 胗 朕 祯 畛 稹 鸩 箴 帧 诤 峥 徵 钲 卮 陟 郅 埴 芷 摭 帙 "
    Hstr(23) = Hstr(23) & "徵 忮 彘 咫 骘 栉 枳 栀 桎 轵 轾 贽 胝 膣 祉 祗 黹 雉 鸷 痣 "
    Hstr(23) = Hstr(23) & "蛭 絷 酯 跖 踬 踯 豸 觯 冢 忪 锺 螽 舯 踵 荮 啁 妯 纣 绉 胄 "
    Hstr(23) = Hstr(23) & "碡 籀 繇 酎 伫 侏 邾 茱 洙 渚 潴 杼 槠 橥 炷 铢 疰 瘃 褚 竺 "
    Hstr(23) = Hstr(23) & "箸 舳 翥 躅 麈 挝 曳 拽 篆 啭 馔 沌 颛 僮 奘 骓 缒 倬 诼 擢 "
    Hstr(23) = Hstr(23) & "浞 涿 濯 棹 焯 禚 斫 镯 茈 呲 嵫 姊 孳 缁 梓 辎 赀 恣 眦 锱 "
    Hstr(23) = Hstr(23) & "秭 耔 笫 粢 趑 觜 訾 龇 鲻 髭 偬 枞 腙 粽 诹 陬 鄹 驺 鲰 诅 "
    Hstr(23) = Hstr(23) & "俎 菹 镞 攥 缵 躜 蕞 撙 樽 鳟 柞 阼 唑 嘬 怍 胙 祚 笮 "
    
    j = 1
    i = Len(tmpStr)
    
    Dim IsNotFoundInEr As Boolean
    While (j <= i)
        If InStr(1, CString, Mid(tmpStr, j, 1), vbTextCompare) > 0 Then '如果english
            Py = Py & Mid(tmpStr, j, 1)
            'j = j + 1
        Else 'chinese
            HZ = Mid(tmpStr, j, 1)
            Py1 = GetPy1(HZ)
            If Py1 <> Empty Then 'yi ji han zi
                Py = Py & Py1
            Else 'er ji han zi
                IsNotFoundInEr = True
                For k = 1 To 23
                    If InStr(1, Hstr(k), HZ, vbTextCompare) > 0 Then
                        Py = Py & Zm(k)
                        IsNotFoundInEr = False
                        Exit For
                    End If
                Next
                If IsNotFoundInEr Then Py = Py & "!"
            End If
            'j = j + 1
        End If
        j = j + 1
    Wend
    GetPy2 = Py
End Function