excel165个vba自定义函数大全

Excel-165个VBA自定义函数大全VBA自定义函数大全目录1函数作用返回Column英文字52函数作用查询某一值第num次出现的值53函数作用返回当个人工资薪金所得为2000元起征点为850元时的应纳个人所得税税额64函数作用从形如"123545ABCDE"的字符串中取出数字75函数作用从形如"ABCD12455EDF"的字符串中取出数字76函数作用按SplitType取得RangeName串值中的起始位置87函数作用将金额数字转成中文大写98函数作用计算某种税金149函数作用人民币大小写转换1410函数作用查汉字区位码1611函数作用把公元年转为农历1712函数作用返回指定列数的列标3813函数作用用指定字符替换某字符3914函数作用从右边开始查找指定字符在字符串中的位置3915函数作用从右边开始查找指定字符在字符串中的位置4016函数作用计算工龄4017函数作用计算日期差除去星期六星期日4118函数作用将英文字反转的自定函数4219函数作用计算个人所得税4220函数作用一个能计算是否有重复单元的函数4321数字金额转中文大写4422函数作用将数字转成英文4523函数作用人民币大小写转换4824函数作用获取区域颜色值4925函数作用获取活动工作表名4926函数作用获取最后一行行数4927函数作用判断是否连接在线5028函数作用币种转换5029函数作用检验工作表是否有可打印内容5130函数作用查找一字符串withinstr在另一字符串中findstr1中某一次startnum出现时的位置返回零表示没找到5331函数作用增加文件路径最后的\符号5432函数作用计算所得税5433函数作用从工作表第一行的标题文字以数字形式返回所在列号5434函数作用在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和5535函数作用返回Column英文字5636函数作用查找指定列名的列数5637函数作用文字格式的时间分秒转化为数字格式秒5738函数作用将"hhmmss"格式的时分秒数转换成秒数5739函数作用金额中文大写转数字5840函数作用把角度转为度秒分弧度等显示5941函数作用身份证号码侦测6042函数作用显示公式6143函数作用方便财务人员理帐查找6244函数作用数值转换为字符地址6445函数作用字符地址转换为数值6546函数作用等待时间以秒计算6547函数作用得到字符串实际的长度以单字节记6648函数作用18位身份证最后一位有效性验证6649函数作用计算符合maturitycondition的拆解金额6750函数作用对多个用同一分隔符分隔的待查找元素逐一在表区域首列内搜索将返回选定单元格的值相加6851函数作用根据个人所得税工资反算工资数6952函数作用判断表是否存在7053函数作用角度转弧7054函数作用比较相同的字符串7155函数作用对选定的数组进行排序7156函数作用取得指定月份天数7357函数作用排序工作表活页薄7358函数作用统计数组中非重复数据个数7459函数作用摘取子字符串7460函数作用计算20000余个汉字的笔画7561函数作用删除当前工作表中的全部超连接7662函数作用取得相近数据7663函数作用提取定串中汉字7764函数作用搜索重复数据选定范围7765函数作用字符型转数字型7866函数作用小写人民币转大写人民币7867函数作用取得指定月份人星期天个数7968函数作用侦测档案是否包含宏8069函数作用获取循环参照单元格8170函数作用创建桌面快捷方式8171函数作用自动建立多级目录8272函数作用统计经筛选后符合条件的记录条数8373函数作用复制单元格列高与栏宽8374函数作用取消隐藏工作表包括vbaProject工程保护的8475函数作用删除单元格自定义名称8476函数作用从文件路径中取得文件名8477函数作用取得一个文件的扩展名8578函数作用取得一个文件的路径8579函数作用十进制转二进制8680函数作用检查一个数组是否为空8681函数作用字母栏名转数字栏名8782函数作用数字栏名转文字栏名8783函数作用判断一件活页夹中是否还有子目录8784函数作用判断一个文件是否在使用中8885函数作用列出档案详细摘要信息8886函数作用获取菜单ID编号及名称列表8987函数作用状态列动态显示文字9088函数作用取得一个文件的路径29089函数作用取得一个文件的路径39090函数作用取得Activecell的栏名9191函数作用取得单元格中指定字符前的字符9192函数作用前单元格指定字符前的字符颜色改成红色9193函数作用根据数字返回对应的字母列号9294函数作用取工作表名字9295函数作用取消所有隐藏的宏表9296函数作用导出VBAProject代码9397函数作用导入VBAProject代码9398函数作用取得汉字拼音的第一个字母9399函数作用获取两栏中相同的数据96100函数作用选取当前工作表中公式出错的单元格，关返回出错个数97101函数作用将工作表中最后一列作为页脚打印在每一面页尾97102函数作用获取vbproject引用项目98103函数作用移除Excel工作表中的外部数据连接98104函数作用将选择定单元格作成镜像图片99105函数作用反选择单元格中的数101106函数作用在Excel中加入一个量度尺以厘米为单位102107函数作用在Excel中加入一个量度尺以寸为单位104108函数作用取得一个短文件名的长文件名107109函数作用取得临时文件名107110函数作用等用Shell调用的程序执行完成后再执行其它程序108111函数作用将Mouse显示成动画109112函数作用限制Mouse移动范围109113函数作用取得当前激活窗品句柄及标题110114函数作用取得屏幕分辨率110115函数作用自动建立多级目录111116函数作用将文件长度置零111117函数作用读取WIN9XMe共享文件夹密码112118函数作用取得预设的打印机及设置预设的打印机115119函数作用获得当前操作系统的打印机个数及检测打印是否存在115120函数作用枚举打印机名称清单116121函数作用读取网络服务器当前时间117122函数作用下载文件到指定目录119123函数作用自动映射网络驱动器120124函数作用自动断开网络驱动器120125函数作用连接选定单元格中的内容121126函数作用获取一个单元格中有指定字体颜色部份数据121127函数作用对指定文件加XLS加密122128函数作用选择指定范围内使用了填充颜色的单元格122129函数作用在特定的区域内查找文本返回值是包含查找文本的单元格123130函数作用返回特定区域中最大值的地址124131函数作用删除表格中使用范围内的所有空白单元格124132函数作用返回数组中有多少个指定的字符串125133函数作用返回当前工作表中引用了指定的单元的地址126134函数作用获取Excel中字型列表126135函数作用获取一个字符串中有多少个数字字符127136函数作用在Excel中对多列进行填充127137函数作用对选定的范围进行数据填充忽略单元格格式127138函数作用VBAProject加密及解密128139函数作用列出收藏夹中的网址129140函数作用计算两个日期之间相隔的年份比如年龄工龄等可计算从1000年01月01日起的日期130141函数作用从字符串提取纯数字131142函数作用将一个数组按升序排列132143函数作用将一个数组按降序排列132144函数作用删除空白列133145函数作用判断工作表是否为空白133146函数作用将数据按类分到不同工作薄134147函数作用单元格内数据排序134148函数作用对多栏排序135149函数作用返回计算公式的值[值的计算公式]136150函数作用把第一列某个值对应的第二列的内容连在一起并用隔开137151函数作用取得系统使用模式137152函数作用计算机注销关机重启138153函数作用更改计算机名称138154函数作用从n位开始取出字符串中的汉字英文字母数字139155函数作用在指定列中寻找含有指定字符串的单元格并将符合条件的单元格标为红色并将对应的下一列单元格赋值为1140156函数作用清除字符串中的空格140157函数作用查找合并单元格位置141158函数作用阴阳历转换和阴阳历生日141159函数作用利用数组和Substitute来替换某字符145160函数作用一键创建斜线表头145161函数作用自动获取指定月的工作日146正文1函数作用返回Column英文字FunctionColLetterColNumberAsIntegerAsStringOnErrorGoToErrorhandlerColLetterLeftCells1ColNumberAddress001-ColNumber26ExitFunctionErrorhandlerMsgBox"Errorencounteredpleasere-enter"EndFunction2函数作用查询某一值第num次出现的值参数说明Value1查询引用的数值Range1查询区域num指定查询第几次出现Col返回值相对引用区域相对引用列的右数第Col列FunctionMyFindValue1ByValRange1AsRangeByValnumAsIntegerByValColAsIntegerIfValue1""ThenExitFunctionIfRacomt1ThenExitFunctionForEachDInRange1IfDValueValue1Thencc1IfcnumThenv1D1ColExitForEndIfElseIfIsEmptyDThenExitForEndIfNextIfv1""Thenv1"not"MyFindv1EndFunction3函数作用返回当个人工资薪金所得为2000元起征点为850元时的应纳个人所得税税额语法Grsdsbscmysala参数说明bsc必选项为起征点包括税法规定的工资基数800元加上允许税前扣除的合理费用mysala必选项为人个工资薪金所得示例Grsds85020000FunctionGrsdsbscAsDoublemysalaAsDoubleAsDoublebsc为起征点加上允许税前扣除的合理费用mysala为工资薪金所得OnErrorGoToGrsds_errSelectCasemysalaCaseIsbscGrsds0CaseIsbsc500GrsdsApplicationWorksheetFunctionRoundmysala-bsc0052CaseIsbsc2000GrsdsApplicationWorksheetFunctionRoundmysala-bsc01-252CaseIsbsc5000GrsdsApplicationWorksheetFunctionRoundmysala-bsc015-1252CaseIsbsc20000GrsdsApplicationWorksheetFunctionRoundmysala-bsc02-3752CaseIsbsc40000GrsdsApplicationWorksheetFunctionRoundmysala-bsc025-13752CaseIsbsc60000GrsdsApplicationWorksheetFunctionRoundmysala-bsc03-33752CaseIsbsc80000GrsdsApplicationWorksheetFunctionRoundmysala-bsc035-63752CaseIsbsc100000GrsdsApplicationWorksheetFunctionRoundmysala-bsc04-103752CaseElseGrsdsApplicationWorksheetFunctionRoundmysala-bsc045-153752EndSelectGrsds_ExitExitFunctionGrsds_errMsgBoxErrNumber""ErrDescriptionResumeGrsds_ExitEndFunction4函数作用从形如"123545ABCDE"的字符串中取出数字FunctionmyvaluemystringAsStringAsDoublemyvalueValmystringEndFunction5函数作用从形如"ABCD12455EDF"的字符串中取出数字FunctionmydatamystringAsStringAsDoubleDimiAsIntegeri1DoUntilValMidmystringi10ii1LoopmydataValMidmystringiLenmystring-i1EndFunction6函数作用按SplitType取得RangeName串值中的起始位置1单元格2行号3列号4范围PublicConstSINGLE_CELL1PublicConstROW_NUM2PublicConstCOL_NUM3PublicConstRANGE_ALL4PublicFunctionSplitRangeNameRangeNameAsStringSplitTypeAsIntegerAsStringIfVBALenRangeName3ThenExitFunctionElseRangeNameVBARightRangeNameVBALenRangeName-VBAInStr1RangeName""-1IfVBAInStr1RangeName""0ThenRangeNameVBALeftRangeNameVBAInStr1RangeName""-1SelectCaseSplitTypeCaseSINGLE_CELLIfVBAInStr1RangeName""0ThenSplitRangeName""VBALeftRangeNameVBAInStr1RangeName""-1ElseSplitRangeName""RangeNameEndIfCaseROW_NUMSplitRangeNameVBAIIfVBAInStr1RangeName""0VBARightRangeNameVBALenRangeName-VBAInStr1RangeName""RangeNameIfNotIsNumericSplitRangeNameThenSplitRangeName""MsgBox""vbInformation""EndIfCaseCOL_NUMIfVBAInStr1RangeName""0ThenSplitRangeNameVBALeftRangeNameVBAInStr1RangeName""-1ElseSplitRangeNameRangeNameEndIfIfIsNumericSplitRangeNameThenSplitRangeName""MsgBox""vbInformation""EndIfCaseRANGE_ALLSplitRangeName""RangeNameEndSelectEndIfEndFunction7函数作用将金额数字转成中文大写FunctionMoneyNumberAsCurrencyDimijkmlengAsInteger计数器DimZeroAsInteger连续零标识DimTnumberAsString储存数字字符串计算数组长度DimNumAsString定义数组DimNum13AsString存储万元以下数字DimNum21AsString储存拆分后的数字DimCha8Cha19Cha24AsString储存转化后的汉字DimZchaAsString连接后的字符串DimFlagFlag1AsBoolean正负标志FlagTrueFlag1FalseZero0如果大于一亿则不处理IfNumber99999999OrNumber-99999999ThenMsgBox"Sorry数据超过一亿暂不处理"MsgBox"顺便问一下你真有那么多钱吗"Money"Sorry"ElseIfNumber0ThenMoney"零元整"Else将负数数字转化正数并更改标识IfNumber0ThenNumberNumber-1FlagFalseEndIf小数点后超过两位则截断IfNumber-IntNumber100-IntNumber-IntNumber1000ThenTnumberCStrIntNumber100100ElseTnumberCStrNumberEndIf处理四舍五入IfNumber-IntNumber100-IntNumber-IntNumber10005ThenTnumberCStrCCurTnumber001EndIfNumberCCurTnumber重新分配数组空间ReDimNumLenTnumber-1AsString将字符串分开存储至数组中Fori0ToLenTnumber-1NumiMidTnumberi11Nexti定义所需字符DimM1M2M1Array"零""壹""贰""叁""肆""伍""陆""柒""捌""玖"M2Array"""拾""佰""仟""万""亿"处理小于一元金额小数点后一位则IfNumber-IntNumber0AndNumber100-IntNumber100Mod100Thenii-1Num20NumiNumi""ii-1Numi""ii-1Cha20M1CByteNum20Cha21"角"Cha22"整"Else小数点后两位则IfNumber-IntNumber0Thenii-1Num21NumiNum20Numi-1Numi""ii-1Numi""ii-1Numi""ii-1Cha20M1CByteNum20Cha21"角"Cha22M1CByteNum21Cha23"分"EndIfEndIf分解大于一万的整数部分IfIntNumber9999ThenIfCha20""Thenii1EndIfForj3To0Step-1Num1jNumi-1Numi-1""ii-1NextjElseIfCha20""Thenii1EndIfForj0Toi-1Num1jNumjNumj""NextjEndIf转换万元以上数字IfNum0""Thenlengij0Fork0Toleng-1IfNumk"0"ThenZeroZero1Form1To5IfChaj-1M2mThenFlag1TrueEndIfNextmIfZero1AndFlag1FalseThenChajM1CByteNumkEndIfIfZero1Thenjj1EndIfElseIfNumk""ThenIfZero0ThenChaj-1"零"EndIfChajM1CByteNumkEndIfjj1EndIfIfNumk"0"Thenii-1ElseChajM2i-1jj1ii-1Zero0EndIfNextkChaj-1"万"Zero0EndIf转换万元以下数字IfNum10""Thenj0Flag1Falseleng3WhileNum1leng""lengleng-1Wendileng1Fork0TolengIfNum1k""ThenIfNum1k"0"ThenZeroZero1Form1To5Ifj0ThenIfCha1j-1M2mThenFlag1TrueEndIfEndIfNextmIfZero1AndFlag1FalseThenCha1jM1CByteNum1kEndIfIfZero1Thenjj1EndIfElseIfNum1k""ThenIfZero0ThenCha1j-1"零"EndIfCha1jM1CByteNum1kEndIfjj1EndIfIfNum1k"0"Thenii-1ElseCha1jM2i-1jj1ii-1Zero0EndIfEndIfNextkCha1j-1"元"IfCha20""ThenCha1j"整"EndIfEndIf连接字符串j0WhileChaj""ZchaZchaChajjj1Wendj0WhileCha1j""ZchaZchaCha1jjj1Wendj0WhileCha2j""ZchaZchaCha2jjj1Wend最终显示IfFlagThenMoneyZchaElseMoney"负"ZchaEndIfEndIfEndIfEndFunction8函数作用计算某种税金PublicFunction税faDimxIffa-8000Andfa-800500Thenxfa-800005税xElseIffa-800500Andfa-8002000Thenxfa-80001-25税xElseIffa-8002000Andfa-8005000Thenxfa-800015-125税xElseIffa-8005000Andfa-80020000Thenxfa-80002-375税xElseIffa-80020000Andfa-80040000Thenxfa-800025-1375税xElseIffa-80040000Andfa-80060000Thenxfa-80003-3375税xElseIffa-80060000Andfa-80080000Thenxfa-800035-6375税xElseIffa-80080000Andfa-800100000Thenxfa-80004-10375税xElseIffa-800100000Thenxfa-800045-15375税xElseEndIfEndFunction9函数作用人民币大小写转换Function小写kApplicationScreenUpdatingFalsem1ApplicationWorksheetFunctionRoundk1000n1Intm1100n2Intm110-n110n3m1-n1100-n210eApplicationWorksheetFunctionTextn1"[DBNum1]"fApplicationWorksheetFunctionTextn2"[DBNum1]"gApplicationWorksheetFunctionTextn3"[DBNum1]"Ifn30Then小写"人民币大写"e"元""整"EndIfIfn30Andn20Then小写"人民币大写"e"元"f"角"g"分"Ifn10Then小写"人民币大写"f"角"g"分"EndIfEndIfIfn30Andn20Then小写"人民币大写"e"元"f"角""整"Ifn10Then小写"人民币大写"f"角""整"EndIfEndIfIfn30Andn20Then小写"人民币大写"e"元"g"分"Ifn10Then小写"人民币大写"g"分"EndIfEndIfIfk0Ork""Thenk""EndIfApplicationScreenUpdatingTrueEndFunctionFunction大写kApplicationScreenUpdatingFalsem1ApplicationWorksheetFunctionRoundk1000n1Intm1100n2Intm110-n110n3m1-n1100-n210eApplicationWorksheetFunctionTextn1"[dbnum2]"fApplicationWorksheetFunctionTextn2"[dbnum2]"gApplicationWorksheetFunctionTextn3"[dbnum2]"Ifn30Then大写"人民币大写"e"元""整"EndIfIfn30Andn20Then大写"人民币大写"e"元"f"角"g"分"Ifn10Then大写"人民币大写"f"角"g"分"EndIfEndIfIfn30Andn20Then大写"人民币大写"e"元"f"角""整"Ifn10Then大写"人民币大写"f"角""整"EndIfEndIfIfn30Andn20Then大写"人民币大写"e"元"fg"分"Ifn10Then大写"人民币大写"g"分"EndIfEndIfIfk0Ork""Then大写""EndIfApplicationScreenUpdatingTrueEndFunction10函数作用查汉字区位码PublicFunction区faAsStringOnErrorResumeNextDimL1R1LRabcdecLenfaFori1TocdMidfai1aHexAscdL1CInt"H"Mida12-160R1CInt"H"Mida32-160IfLenL11ThenL"0"L1ElseLL1EndIfIfLenR11ThenR"0"R1ElseRR1EndIfbd""LR""eebNexti区eEndFunction11函数作用把公元年转为农历函数说明本函数利用阵列处理以方便日后组合排列IntToSimDay__0天干地支年IntToSimDay__1十二生肖年IntToSimDay__2农历月IntToSimDay__3农历日IntToSimDay__424节气目前可使用至2010年FunctionChineCalenderiDateOptionalnumAsInteger0num08都可用不输入num预设值为0分别介绍08的用法假设A120021222ChineCalenderA1壬午年[马]十一月十九冬至ChineCalenderA10壬午年[马]十一月十九冬至ChineCalenderA11[马]十一月十九冬至ChineCalenderA12十一月十九冬至ChineCalenderA13十一月十九ChineCalenderA14壬午年ChineCalenderA15[马]年ChineCalenderA16十一月ChineCalenderA17十九日ChineCalenderA18冬至DimIntToSimDay__314PublicrgstrMonthName11AsStringPublicrgstrDayName6AsStringPublicrgiDaysInMonth11AsStringDimB__1__11DimB__2__220DimB__3__410DimB__4__30DimB__5__12DimB__6__12DimB__7__23DimiYearDimiMonthDimiDayIntToSimDay__0天干地支年IntToSimDay__1十二生肖年IntToSimDay__2农历月IntToSimDay__3农历日IntToSimDay__424节气FunctionChineCalenderiDateOptionalnumAsInteger0DimiYearAsIntegeriMonthAsIntegeriDayAsIntegerIfIsDateiDateTheniYearYeariDateiMonthMonthiDateiDayDayiDateCallIniLunarStrGetLunarDaysiYeariMonthIntyear"民国"ApplicationWorksheetFunctionTextiYear-1911"[DBNum1]""年"SelectCasenumCase0ChineCalenderIntToSimDay__iDay-10IntToSimDay__iDay-11IntToSimDay__iDay-12_IntToSimDay__iDay-13IntToSimDay__iDay4Case1ChineCalenderIntToSimDay__iDay-11IntToSimDay__iDay-12_IntToSimDay__iDay-13IntToSimDay__iDay4Case2ChineCalenderIntToSimDay__iDay-12IntToSimDay__iDay-13IntToSimDay__iDay4Case3ChineCalenderIntToSimDay__iDay-12IntToSimDay__iDay-13Case4ChineCalenderIntToSimDay__iDay-10Case5ChineCalenderIntToSimDay__iDay-11"年"Case6ChineCalenderIntToSimDay__iDay-12Case7ChineCalenderIntToSimDay__iDay-13"日"Case8ChineCalenderIntToSimDay__iDay4CaseElseChineCalender""EndSelectElseChineCalender""EndIfEndFunctionPrivateSubIniLunarStrDimirgstrMonthName0"一月"rgstrMonthName1"二月"rgstrMonthName2"三月"rgstrMonthName3"四月"rgstrMonthName4"五月"rgstrMonthName5"六月"rgstrMonthName6"七月"rgstrMonthName7"八月"rgstrMonthName8"九月"rgstrMonthName9"十月"rgstrMonthName10"十一月"rgstrMonthName11"十二月"B__2__03011B__2__129121994农历月份最后一天B__2__2301B__2__3302B__2__4303B__2__5294B__2__6305B__2__7296B__2__8307B__2__9298B__2__10299B__2__113010B__2__122911B__2__1330121995B__2__14291B__2__15302B__2__16303B__2__17294B__2__18305B__2__19296B__2__20307B__2__21308B__2__2239r8B__2__23299B__2__243010B__2__252911B__2__2630121996B__2__27291B__2__28302B__2__29293B__2__30304B__2__31305B__2__32296B__2__33307B__2__34298B__2__35309B__2__363010B__2__372911B__2__3829121997B__2__39301B__2__40292B__2__41303B__2__42294B__2__43305B__2__44296B__2__45307B__2__46308B__2__47299B__2__483010B__2__493011B__2__5029121998B__2__51301B__2__52292B__2__53293B__2__54304B__2__55295B__2__5639r5B__2__57306B__2__58307B__2__59298B__2__60309B__2__613010B__2__622911B__2__6330121999B__2__64301B__2__65292B__2__66293B__2__67304B__2__68295B__2__69296B__2__70307B__2__71298B__2__72309B__2__733010B__2__743011B__2__7529122000B__2__76301B__2__77302B__2__78293B__2__79294B__2__80305B__2__81296B__2__82297B__2__83308B__2__84299B__2__853010B__2__863011B__2__8729122001B__2__88301B__2__89302B__2__90293B__2__91304B__2__9239r4B__2__93305B__2__94296B__2__95297B__2__96308B__2__97299B__2__983010B__2__992911B__2__10030122002B__2__101301B__2__102302B__2__103293B__2__104304B__2__105295B__2__106306B__2__107297B__2__108298B__2__109309B__2__1102910B__2__1113011B__2__11229122003B__2__113301B__2__114302B__2__115293B__2__116304B__2__117305B__2__118296B__2__119307B__2__120298B__2__121299B__2__1223010B__2__1232911B__2__12430122004B__2__125291B__2__126302B__2__12739r2B__2__128303B__2__129304B__2__130295B__2__131306B__2__132297B__2__133308B__2__134299B__2__1353010B__2__1362911B__2__13730122005B__2__1382912005B__2__1393022005B__2__1402932005B__2__1413042005B__2__1422952005B__2__1433062005B__2__1443072005B__2__1452982005B__2__1463092005B__2__14729102005B__2__14830112005B__2__14929122006B__2__1503012006B__2__1512922006B__2__1523032006B__2__1532942006B__2__1543052006B__2__1552962006B__2__1563072006B__2__1573972006r2B__2__1583082006B__2__1593092006B__2__16029102006B__2__16130112006B__2__16230122006B__2__1632912007B__2__1642922007B__2__1653032007B__2__1662942007B__2__1672952007B__2__1683062007B__2__1692972007B__2__1703082007B__2__1713092007B__2__17230102007B__2__17329112007B__2__17430122007B__2__1753012008B__2__1762922008B__2__1772932008B__2__1783042008B__2__1792952008B__2__1802962008B__2__1813072008B__2__1822982008B__2__1833092008B__2__18430102008B__2__18529112008B__2__18630122008B__2__1873012009B__2__1883022009B__2__1892932009B__2__1902942009B__2__1913052009B__2__19239r52009B__2__1932962009B__2__1943072009B__2__1952982009B__2__1963092009B__2__19729102009B__2__19830112009B__2__19930122009B__2__2003012010B__2__2012922010B__2__2023032010B__2__2032942010B__2__2043052010B__2__2052962010B__2__2062972010B__2__2073082010B__2__2082992010B__2__20929102010B__2__21030112010B__2__21130122010B__3__051994B__3__120B__3__24B__3__319B__3__46B__3__521B__3__65B__3__720B__3__86B__3__921B__3__106B__3__1121B__3__127B__3__1323B__3__148B__3__1523B__3__168B__3__1723B__3__188B__3__1923B__3__207B__3__2122B__3__227B__3__2322B__3__2461995B__3__2520B__3__264B__3__2719B__3__286B__3__2921B__3__305B__3__3120B__3__326B__3__3321B__3__346B__3__3522B__3__367B__3__3723B__3__388B__3__3923B__3__408B__3__4123B__3__429B__3__4324B__3__448B__3__4523B__3__467B__3__4722B__3__4861996B__3__4920B__3__504B__3__5119B__3__526B__3__5321B__3__545B__3__5520B__3__566B__3__5721B__3__586B__3__5922B__3__607B__3__6122B__3__627B__3__6323B__3__647B__3__6523B__3__668B__3__6723B__3__687B__3__6922B__3__707B__3__7121B__3__7251997B__3__7320B__3__744B__3__7518B__3__765B__3__7720B__3__785B__3__7920B__3__805B__3__8121B__3__825B__3__8321B__3__847B__3__8523B__3__867B__3__8723B__3__887B__3__8923B__3__908B__3__9123B__3__927B__3__9322B__3__947B__3__9522B__3__9651998B__3__9720B__3__984B__3__9919B__3__1006B__3__10121B__3__1025B__3__10320B__3__1046B__3__10521B__3__1066B__3__10721B__3__1087B__3__10923B__3__1108B__3__11123B__3__1128B__3__11323B__3__1148B__3__11523B__3__1167B__3__11722B__3__1187B__3__11922B__3__12061999B__3__12120B__3__1224B__3__12319B__3__1246B__3__12521B__3__1265B__3__12720B__3__1286B__3__12921B__3__1306B__3__13122B__3__1327B__3__13323B__3__1348B__3__13523B__3__1368B__3__13723B__3__1389B__3__13924B__3__1408B__3__14123B__3__1427B__3__14322B__3__14462000B__3__14521B__3__1464B__3__14719B__3__1485B__3__14920B__3__1504B__3__15120B__3__1525B__3__15321B__3__1545B__3__15521B__3__1567B__3__15722B__3__1587B__3__15923B__3__1607B__3__16123B__3__1628B__3__16323B__3__1647B__3__16522B__3__1667B__3__16721B__3__16862001B__3__16920B__3__1704B__3__17118B__3__1725B__3__17320B__3__1745B__3__17520B__3__1765B__3__17721B__3__1785B__3__17921B__3__1807B__3__18123B__3__1827B__3__18323B__3__1847B__3__18523B__3__1868B__3__18723B__3__1887B__3__18922B__3__1907B__3__19122B__3__19252002B__3__19320B__3__1944B__3__19519B__3__1966B__3__19721B__3__1985B__3__19920B__3__2006B__3__20121B__3__2026B__3__20321B__3__2047B__3__20523B__3__2068B__3__20723B__3__2088B__3__20923B__3__2108B__3__21123B__3__2127B__3__21322B__3__2147B__3__21522B__3__21662003B__3__21720B__3__2184B__3__21919B__3__2206B__3__22121B__3__2225B__3__22320B__3__2246B__3__22521B__3__2266B__3__22722B__3__2287B__3__22923B__3__2308B__3__23123B__3__2328B__3__23323B__3__2349B__3__23524B__3__2368B__3__23723B__3__2387B__3__23922B__3__24062004B__3__24121B__3__2424B__3__24319B__3__2445B__3__24520B__3__2464B__3__24720B__3__2486B__3__24921B__3__2505B__3__25121B__3__2527B__3__25322B__3__2547B__3__25523B__3__2567B__3__25723B__3__2588B__3__25923B__3__2607B__3__26122B__3__2627B__3__26321B__3__264520051B__3__2652020052B__3__266420053B__3__2671820054B__3__268520055B__3__2692020056B__3__270520057B__3__2712020058B__3__272520059B__3__27321200510B__3__2745200511B__3__27521200512B__3__2767200513B__3__27723200514B__3__2787200515B__3__27923200516B__3__2807200517B__3__28123200518B__3__2828200519B__3__28323200520B__3__2847200521B__3__28522200522B__3__2867200523B__3__28722200524B__3__288520061B__3__2892020062B__3__290420063B__3__2911920064B__3__292620065B__3__2932120066B__3__294520067B__3__2952020068B__3__296520069B__3__29721200610B__3__2986200611B__3__29921200612B__3__3007200613B__3__30123200614B__3__3027200615B__3__30323200616B__3__3048200617B__3__30523200618B__3__3068200619B__3__30723200620B__3__3087200621B__3__30922200622B__3__3107200623B__3__31122200624B__3__312620071B__3__3132020072B__3__314420073B__3__3151920074B__3__316620075B__3__3172120076B__3__318520077B__3__3192020078B__3__320620079B__3__32121200710B__3__3226200711B__3__32322200712B__3__3247200713B__3__32523200714B__3__3268200715B__3__32723200716B__3__3288200717B__3__32923200718B__3__3308200719B__3__33123200720B__3__3328200721B__3__33323200722B__3__3347200723B__3__33522200724B__3__336620081B__3__3372120082B__3__338420083B__3__3391920084B__3__340520085B__3__3412020086B__3__342420087B__3__3432020088B__3__344520089B__3__34521200810B__3__3465200811B__3__34721200812B__3__3487200813B__3__34922200814B__3__3507200815B__3__35123200816B__3__3527200817B__3__35322200818B__3__3548200819B__3__35523200820B__3__3567200821B__3__35722200822B__3__3587200823B__3__35921200824B__3__360520091B__3__3612020092B__3__362420093B__3__3631820094B__3__364520095B__3__3652020096B__3__366420097B__3__3672020098B__3__368520099B__3__36921200910B__3__3705200911B__3__37121200912B__3__3727200913B__3__37323200914B__3__3747200915B__3__37523200916B__3__3767200917B__3__37723200918B__3__3788200919B__3__37923200920B__3__3807200921B__3__38122200922B__3__3827200923B__3__38322200924B__3__384520101B__3__3852020102B__3__386420103B__3__3871820104B__3__388520105B__3__3892020106B__3__390420107B__3__3912020108B__3__392520109B__